Current File : //usr/local/share/emacs/27.2/lisp/emacs-lisp/generic.elc
;ELC
;;; Compiled
;;; in Emacs version 27.2
;;; with all optimizations.
;;; This file uses dynamic docstrings, first added in Emacs 19.29.
;;; This file does not contain utf-8 non-ASCII characters,
;;; and so can be loaded in Emacs versions earlier than 23.
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
#@54 Keywords for `font-lock-defaults' in a generic mode.
(defvar generic-font-lock-keywords nil (#$ . 408))
(make-variable-buffer-local 'generic-font-lock-keywords)
#@131 A list of mode names for `generic-mode'.
Do not add entries to this list directly; use `define-generic-mode'
instead (which see).
(defvar generic-mode-list nil (#$ . 576))
#@1418 Create a new generic mode MODE.
MODE is the name of the command for the generic mode; don't quote it.
The optional DOCSTRING is the documentation for the mode command. If
you do not supply it, `define-generic-mode' uses a default
documentation string instead.
COMMENT-LIST is a list in which each element is either a character, a
string of one or two characters, or a cons cell. A character or a
string is set up in the mode's syntax table as a "comment starter".
If the entry is a cons cell, the `car' is set up as a "comment
starter" and the `cdr' as a "comment ender". (Use nil for the
latter if you want comments to end at the end of the line.) Note that
the syntax table has limitations about what comment starters and
enders are actually possible.
KEYWORD-LIST is a list of keywords to highlight with
`font-lock-keyword-face'. Each keyword should be a string.
FONT-LOCK-LIST is a list of additional expressions to highlight. Each
element of this list should have the same form as an element of
`font-lock-keywords'.
AUTO-MODE-LIST is a list of regular expressions to add to
`auto-mode-alist'. These regular expressions are added when Emacs
runs the macro expansion.
FUNCTION-LIST is a list of functions to call to do some additional
setup. The mode command calls these functions just before it runs the
mode hook `MODE-hook'.
See the file generic-x.el for some examples of `define-generic-mode'.
(defalias 'define-generic-mode '(macro . #[(mode comment-list keyword-list font-lock-list auto-mode-list function-list &optional docstring) "\242\306=\203 \307!\310!\311\312\313\314 #!\315\316\317 E\320\321 D\316\322\323\321\306DEEE\324\325\f\2066 \n\326 \327R\330\331\306D
\257\257F*\207" [mode name pretty-name auto-mode-list docstring comment-list quote eval symbol-name capitalize replace-regexp-in-string "-mode\\'" "" progn add-to-list 'generic-mode-list dolist re 'auto-mode-alist cons defun nil " mode.\nThis a generic mode defined with `define-generic-mode'.\nIt runs `" "-hook' as the last thing it does." (interactive) generic-mode-internal keyword-list font-lock-list function-list] 14 (#$ . 756)]))
(byte-code "\300\301\302\303#\210\304\301\305\306#\304\301\307\310#\300\207" [put define-generic-mode edebug-form-spec (sexp def-form def-form def-form form def-form [&optional stringp] &rest [keywordp form]) function-put lisp-indent-function 1 doc-string-elt 7] 5)
#@32 Go into the generic mode MODE.
(defalias 'generic-mode-internal #[(mode comment-list keyword-list font-lock-list function-list) "\306!\307\310\311\312 #!\313 \314P!\315 \210\n\316!\210\2034 \317\320\321\"\322QB\323\324\325 \"\210\326 !+\207" [mode name pretty-name mode-hook major-mode mode-name symbol-name capitalize replace-regexp-in-string "-mode\\'" "" intern "-hook" kill-all-local-variables generic-mode-set-comments "\\_<" regexp-opt t "\\_>" (generic-font-lock-keywords) mapc funcall run-mode-hooks comment-list font-lock-list generic-font-lock-keywords keyword-list font-lock-defaults function-list] 5 (#$ . 3175)])
#@338 Enter generic mode MODE.
Generic modes provide basic comment and font-lock functionality
for "generic" files. (Files which are too small to warrant their
own mode, but have comment characters, keywords, and the like.)
To define a generic-mode, use the function `define-generic-mode'.
Some generic modes are defined in `generic-x.el'.
(defalias 'generic-mode #[(mode) "\301! \207" [mode intern] 2 (#$ . 3832) (list (completing-read "Generic mode: " generic-mode-list nil t))])
(defalias 'generic--normalize-comments #[(comment-list) "\305 \305\211\203H @\305 \n:\203 \nA\n@\306\n!\203$ \307\n!\306\f!\2031 \307\f!\202: \fG\310U\203: \311\n\fBB) A\211\204\n *\237)\207" [normalized comment-list start --dolist-tail-- end nil characterp char-to-string 0 "\n"] 3])
#@48 Set up comment functionality for generic mode.
(defalias 'generic-set-comment-syntax #[(st comment-list) "\306\211\307\306\f\306 \211 \203\350 @\211@
A\211 \310 \n\"A\206M \310 \n\"A\206M \311\307\n\"\204A \307\202M \311\312\n\"\204L \312\202M \313 B\nB B\nB G\314U\203s \315 \316H\317 P #\210\202\235 \316H \314H \211 !\310! \"A\320PB B \310 \"A\321 PPB B* G\314U\203\264 \315 \316H\322 P #\210\202\336 \316H \314H \211 !\310! \"A\323 PPB B \310 \"A\324PB B*-A\211\204 *\325 p \" #\326\216\327 !\210 \237\306 $\211 \205$@$\315$@\330$@z!\331$AQ #\210A\211\204\306. \207" [comment-start comstyle comstyles chars comment-list #1=#:x0 nil "" assoc rassoc "b" "c" 1 modify-syntax-entry 0 "< " "1" "2" ">" "3" "4" syntax-table #[nil "rq\210\302 !)\207" [#2=#:buffer #3=#:table set-syntax-table] 2] set-syntax-table char-to-string " " --dolist-tail-- #4=#:x1 #5=#:x2 start end st c1 c0 #2# #3# cs] 6 (#$ . 4618)])
(defalias 'generic-set-comment-vars #[(comment-list) "\205< \306\301!\210@@\306\303!\210@A\211\307\230\203 \310\202 \n)\306\304!\210\311\312\313\"!\314P\306\305!\210\315\311\312\316\"!P\211\207" [comment-list comment-start end comment-end comment-start-skip comment-end-skip make-local-variable "\n" "" regexp-opt mapcar car "+[ ]*" "[ ]*" cdr] 6])
#@48 Set up comment functionality for generic mode.
(defalias 'generic-mode-set-comments #[(comment-list) "\302 \303!\304 \"\210\305!\210\306 !*\207" [comment-list st make-syntax-table generic--normalize-comments generic-set-comment-syntax generic-set-comment-vars set-syntax-table] 3 (#$ . 5969)])
#@75 Imenu support for [KEYWORD] constructs found in INF, INI and Samba files.
(defalias 'generic-bracket-support #[nil "\302\300!\210\303\302\301!\210\304\211\207" [imenu-generic-expression imenu-case-fold-search make-local-variable ((nil "^\\[\\(.*\\)\\]" 1)) t] 2 (#$ . 6274)])
#@393 Return a `font-lock-keywords' construct that highlights KEYWORD-LIST.
KEYWORD-LIST is a list of keyword strings that should be
highlighted with face FACE. This function calculates a regular
expression that matches these keywords and concatenates it with
PREFIX and SUFFIX. Then it returns a construct based on this
regular expression that can be used as an element of
`font-lock-keywords'.
(defalias 'generic-make-keywords-list #[(keyword-list face &optional prefix suffix) "<\204 \304\305!\210 \306\307\310\"\311\n\260\312 E\207" [keyword-list prefix suffix face error "Keywords argument must be a list of strings" "\\_<" regexp-opt t "\\_>" 1] 5 (#$ . 6559)])
(byte-code "\300\301\302\303#\210\304\305!\207" [make-obsolete generic-make-keywords-list regexp-opt "24.4" provide generic] 4)
Mini Shell