%PDF- %PDF-
Direktori : /usr/local/share/emacs/27.2/lisp/emacs-lisp/ |
Current File : //usr/local/share/emacs/27.2/lisp/emacs-lisp/lisp-mode.elc |
;ELC ;;; Compiled ;;; in Emacs version 27.2 ;;; with all optimizations. ;;; This file contains utf-8 non-ASCII characters, ;;; and so cannot be loaded into Emacs 22 or earlier. (and (boundp 'emacs-version) (< (aref emacs-version (1- (length emacs-version))) ?A) (string-lessp emacs-version "23") (error "`%s' was compiled for Emacs 23 or later" #$)) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (define-abbrev-table 'lisp-mode-abbrev-table nil "Abbrev table for Lisp mode.") #@41 Parent syntax table used in Lisp modes. (defvar lisp--mode-syntax-table (byte-code "\300 \301\211\302W\203 \303\304#\210\211T\262\202 \305\262\211\306W\203, \303\304#\210\211T\262\202 \307\262\211\310W\203B \303\304#\210\211T\262\202/ \311\262\211\312W\203X \303\304#\210\211T\262\202E \303\313\314#\210\303\315\314#\210\303\316\314#\210\303\317\314#\210\303\320\321#\210\303\322\323#\210\303\324\325#\210\303\326\325#\210\303\327\325#\210\303\330\331#\210\303\332\304#\210\303\333\325#\210\303\334\335#\210\303\336\337#\210\303\340\341#\210\303\342\343#\210\207" [make-syntax-table 0 48 modify-syntax-entry "_ " 58 65 91 97 123 128 32 " " 160 9 12 10 "> " 59 "< " 96 "' " 39 44 64 "_ p" 46 35 34 "\" " 92 "\\ " 40 "() " 41 ")( "] 6) (#$ . 488)) #@35 Syntax table used in `lisp-mode'. (defvar lisp-mode-syntax-table (byte-code "\301!\302\303\304#\210\302\305\304#\210\302\306\307#\210\302\310\311#\210\211\207" [lisp--mode-syntax-table make-syntax-table modify-syntax-entry 91 "_ " 93 35 "' 14" 124 "\" 23bn"] 5) (#$ . 1293)) (defconst lisp-mode-symbol-regexp "\\(?:\\sw\\|\\s_\\|\\\\.\\)+") #@74 Imenu generic expression for Lisp mode. See `imenu-generic-expression'. (defvar lisp-imenu-generic-expression (byte-code "\301\302\303\304Q!\305E\302\306!\302\307\304Q!\305E\302\306!\302\310\311Q!\312E\302\313!\302\314\304Q!\305EF\207" [lisp-mode-symbol-regexp nil purecopy "^\\s-*(\\(cl-def\\(?:generic\\|ine-compiler-macro\\|m\\(?:acro\\|ethod\\)\\|subst\\|un\\)\\|def\\(?:advice\\|generic\\|ine-\\(?:advice\\|compil\\(?:ation-mode\\|er-macro\\)\\|derived-mode\\|g\\(?:\\(?:eneric\\|lobal\\(?:\\(?:ized\\)?-minor\\)\\)-mode\\)\\|inline\\|m\\(?:ethod-combination\\|inor-mode\\|odify-macro\\)\\|s\\(?:etf-expander\\|keleton\\)\\)\\|m\\(?:acro\\|ethod\\)\\|s\\(?:etf\\|ubst\\)\\|un\\*?\\)\\|ert-deftest\\)\\s-+\\(" "\\)" 2 "Variables" "^\\s-*(\\(def\\(?:c\\(?:onst\\(?:ant\\)?\\|ustom\\)\\|ine-symbol-macro\\|parameter\\)\\)\\s-+\\(" "^\\s-*(defvar\\(?:-local\\)?\\s-+\\(" "\\)[[:space:]\n]+[^)]" 1 "Types" "^\\s-*(\\(cl-def\\(?:struct\\|type\\)\\|def\\(?:class\\|face\\|group\\|ine-\\(?:condition\\|error\\|widget\\)\\|package\\|struct\\|t\\(?:\\(?:hem\\|yp\\)e\\)\\)\\)\\s-+'?\\("] 8) (#$ . 1647)) (byte-code "\300\301\302\303#\210\300\304\302\303#\210\300\305\302\303#\210\300\306\302\303#\210\300\307\302\303#\210\300\310\302\303#\210\300\311\302\312#\210\300\313\302\303#\210\300\314\302\303#\207" [put autoload doc-string-elt 3 defmethod defvar defconst defalias defvaralias define-category 2 defconstant defparameter] 4) #@61 The symbol property that holds the docstring position info. (defvar lisp-doc-string-elt-property 'doc-string-elt (#$ . 3085)) #@54 Alist of symbol/"pretty" characters to be displayed. (defconst lisp-prettify-symbols-alist '(("lambda" . 955)) (#$ . 3217)) #@14 (fn LIMIT) (defalias 'lisp--match-hidden-arg #[257 "\300\301\302 \303 \304#\305\306!\210\211@\307Y\204 \310\311!\203\"