;ELC ;;; Compiled ;;; in Emacs version 28.2 ;;; with all optimizations. (byte-code "\300\301!\210\300\302!\207" [require files mule] 2) #@64 Compute `read-symbol-shorthands' from Local Variables section. (defalias 'hack-read-symbol-shorthands #[0 "\300\301\302 \"\207" [alist-get read-symbol-shorthands hack-local-variables--find-variables] 3 (#$ . 148)]) (byte-code "\301\302\303\304\305\306\307\310\311&\207" [hack-read-symbol-shorthands-function hack-read-symbol-shorthands custom-declare-face elisp-shorthand-font-lock-face ((t :inherit font-lock-keyword-face :foreground "cyan")) "Face for highlighting shorthands in Emacs Lisp." :version "28.1" :group font-lock-faces] 8) #@18 (fn STR1 STR2) (defalias 'shorthands--mismatch-from-end #[514 "GG\300\301\211\211Z\262Z\262\302Y\2034\302Y\2034HH=\2034T\262\301\262\202S\207" [1 nil 0] 11 (#$ . 693)]) #@14 (fn LIMIT) (defalias 'shorthands-font-lock-shorthands #[257 "\205I\301\302\303#\205I\304\305\224\306\"\211\307>?\205\310\311\305!!\211\205$\312!\211\205.\313\311\305!\"\211\203D\211GU\204D\314\305\224\305\225ZT\315#\210\266\202\207" [read-symbol-shorthands re-search-forward "\\_<\\(\\(?:\\sw\\|\\s_\\|\\\\.\\)+\\)\\_>" t get-text-property 1 face (font-lock-comment-face font-lock-string-face) intern-soft match-string symbol-name shorthands--mismatch-from-end add-face-text-property elisp-shorthand-font-lock-face] 9 (#$ . 895)]) (font-lock-add-keywords 'emacs-lisp-mode '((shorthands-font-lock-shorthands)) t)