Function: shorthands-font-lock-shorthands

shorthands-font-lock-shorthands is a byte-compiled function defined in shorthands.el.gz.

Signature

(shorthands-font-lock-shorthands LIMIT)

Source Code

;; Defined in /usr/src/emacs/lisp/emacs-lisp/shorthands.el.gz
(defun shorthands-font-lock-shorthands (limit)
  (when read-symbol-shorthands
    (while (re-search-forward
            (eval-when-compile
              (concat "\\_<\\(" lisp-mode-symbol-regexp "\\)\\_>"))
            limit t)
      (let* ((existing (get-text-property (match-beginning 1) 'face))
             (probe (and (not (memq existing '(font-lock-comment-face
                                               font-lock-string-face)))
                         (intern-soft (match-string 1))))
             (sname (and probe (symbol-name probe)))
             (mm (and sname (shorthands--mismatch-from-end
                             (match-string 1) sname))))
        (unless (or (null mm) (= mm (length sname)))
          (add-face-text-property (match-beginning 1) (1+ (- (match-end 1) mm))
                                  'elisp-shorthand-font-lock-face))))))