;ELC ;;; Compiled ;;; in Emacs version 29.4 ;;; 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 (#$ . 147)]) (byte-code "\301\211\207" [hack-read-symbol-shorthands-function hack-read-symbol-shorthands] 2) (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)#@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 (#$ . 666)])#@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 (#$ . 867)]) (font-lock-add-keywords 'emacs-lisp-mode '((shorthands-font-lock-shorthands)) t)