| Server IP : 217.160.0.212 / Your IP : 216.73.217.5 Web Server : Apache System : Linux www 6.18.52-i1-ampere #1203 SMP Mon Sep 14 18:29:59 CEST 2026 aarch64 User : sws1073854427 ( 1073854427) PHP Version : 8.4.23 Disable Function : NONE MySQL : OFF | cURL : ON | WGET : ON | Perl : ON | Python : OFF | Sudo : OFF | Pkexec : OFF Directory : /usr/share/emacs/28.2/lisp/emacs-lisp/ |
Upload File : |
;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\2034 HH=\2034 T\262\301\262\202 S\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)