Function: lisp-mode--search-key

lisp-mode--search-key is a byte-compiled function defined in lisp-mode.el.gz.

Signature

(lisp-mode--search-key CHAR BOUND)

Source Code

;; Defined in /usr/src/emacs/lisp/emacs-lisp/lisp-mode.el.gz
(defun lisp-mode--search-key (char bound)
  (catch 'found
    (while (re-search-forward
            (concat "\\_<" char (rx lisp-mode-symbol) "\\_>")
            bound t)
      (when (or (< (match-beginning 0) (+ (point-min) 2))
                ;; A quoted white space before the &/: means that this
                ;; is not the start of a :keyword or an &option.
                (not (eql (char-after (- (match-beginning 0) 2))
                          ?\\))
                (not (memq (char-after (- (match-beginning 0) 1))
                           '(?\s ?\n ?\t))))
        (throw 'found t)))))