Current File : //usr/local/share/emacs/27.2/lisp/progmodes/prog-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" #$))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(byte-code "\300\301\302\303\304\305%\210\306\307\310\311\312DD\313\314\315\316\317\304\301& \207" [custom-declare-group prog-mode nil "Generic programming mode, from which others derive." :group languages custom-declare-variable prog-mode-hook funcall function #[0 "\300\207" [nil] 1] "Normal hook run when entering programming modes." :type hook :options (flyspell-prog-mode abbrev-mode flymake-mode display-line-numbers-mode prettify-symbols-mode)] 10)
#@36 Keymap used for programming modes.
(defvar prog-mode-map (byte-code "\300 \301\302\303#\210\211\207" [make-sparse-keymap define-key [134217745] prog-indent-sexp] 5) (#$ . 864))
#@839 When non-nil, provides context for indenting embedded code chunks.
There are languages where part of the code is actually written in
a sub language, e.g., a Yacc/Bison or ANTLR grammar can also include
JS or Python code. This variable enables the primary mode of the
main language to use the indentation engine of the sub-mode for
lines in code chunks written in the sub-mode's language.
When a major mode of such a main language decides to delegate the
indentation of a line/region to the indentation engine of the sub
mode, it should bind this variable to non-nil around the call.
The non-nil value should be a list of the form:
(FIRST-COLUMN . REST)
FIRST-COLUMN is the column the indentation engine of the sub-mode
should use for top-level language constructs inside the code
chunk (instead of 0).
REST is currently unused.
(defvar prog-indentation-context nil (#$ . 1049))
#@133 Indent the expression after point.
When interactively called with prefix, indent the enclosing defun
instead.
(fn &optional DEFUN)
(defalias 'prog-indent-sexp #[256 "\212\211\203 \300\210\301 \210`\302\303!\210`\304\300#\266\202)\207" [nil beginning-of-defun forward-sexp 1 indent-region] 7 (#$ . 1944) "P"])
#@71 Return the indentation column normally used for top-level constructs.
(defalias 'prog-first-column #[0 "@\206 \301\207" [prog-indentation-context 0] 1 (#$ . 2264)])
#@339 Alist of symbol prettifications.
Each element looks like (SYMBOL . CHARACTER), where the symbol
matching SYMBOL (a string, not a regexp) will be shown as
CHARACTER instead.
CHARACTER can be a character, or it can be a list or vector, in
which case it will be used to compose the new symbol as per the
third argument of `compose-region'.
(defvar prettify-symbols-alist nil (#$ . 2438))
(make-variable-buffer-local 'prettify-symbols-alist)
#@267 Return true iff the symbol MATCH should be composed.
The symbol starts at position START and ends at position END.
This is the default for `prettify-symbols-compose-predicate'
which is suitable for most programming languages such as C or Lisp.
(fn START END MATCH)
(defalias 'prettify-symbols-default-compose-p #[771 "fz\300>\203\f \301\202
\302\206 `Sfz\303>\203 \304\202 \305\206$ `Sf\206* \306z>\206@ f\2066 \306z>\206@ \307\310 8?\207" [(119 95) (119 95) (46 92) (119 95) (119 95) (46 92) 32 8 syntax-ppss] 7 (#$ . 2884)])
#@250 A predicate for deciding if the currently matched symbol is to be composed.
The matched symbol is the car of one entry in `prettify-symbols-alist'.
The predicate receives the match's start and end positions as well
as the match-string as arguments.
(defvar prettify-symbols-compose-predicate 'prettify-symbols-default-compose-p (#$ . 3429))
(make-variable-buffer-local 'prettify-symbols-compose-predicate)
#@122 Compose a sequence of characters into a symbol.
Regexp match data 0 specifies the characters to be composed.
(fn ALIST)
(defalias 'prettify-symbols--compose-symbol #[257 "\305\224\305\225\306\305!D\232\204G #\203G \307 \310\211\310 \311\305\312\313\314!\315\"\316$\216\317\320 \"A#\210\321\322\323F#\210,\210\202M \324\325#\210\266\326\207" [prettify-symbols--current-symbol-bounds prettify-symbols-compose-predicate buffer-undo-list inhibit-read-only inhibit-modification-hooks 0 match-string buffer-modified-p t make-byte-code "\300?\205 \301\302!\207" vconcat vector [restore-buffer-modified-p nil] 2 compose-region assoc add-text-properties prettify-symbols-start prettify-symbols-end remove-list-of-text-properties (composition prettify-symbols-start prettify-symbols-end) nil] 13 (#$ . 3842)])
(defalias 'prettify-symbols--make-keywords #[0 "\205 \301\302\303\"\304\"\305\306\307DDDDC\207" [prettify-symbols-alist regexp-opt mapcar car t 0 prettify-symbols--compose-symbol quote] 5])
(defvar prettify-symbols--keywords nil nil)
(make-variable-buffer-local 'prettify-symbols--keywords)
(defvar prettify-symbols--current-symbol-bounds nil nil)
(byte-code "\300\301!\210\302\303\304\305\306DD\307\310\311\312\313\314\315& \207" [make-variable-buffer-local prettify-symbols--current-symbol-bounds custom-declare-variable prettify-symbols-unprettify-at-point funcall function #[0 "\300\207" [nil] 1] "If non-nil, show the non-prettified version of a symbol when point is on it.\nIf set to the symbol `right-edge', also unprettify if point\nis immediately after the symbol. The prettification will be\nreapplied as soon as point moves away from the symbol. If\nset to nil, the prettification persists even when point is\non the symbol." :version "25.1" :type (choice (const :tag "Never unprettify" nil) (const :tag "Unprettify when point is inside" t) (const :tag "Unprettify when point is inside or at right edge" right-edge)) :group prog-mode] 10)
(defalias 'prettify-symbols--post-command-hook #[0 "\305\306\262\203, `@W\204% `A@V\204% \307=\204, `A@U\203, \310\311\"\210\305\211\312!\211\2056 \313!\211\205= \314!\211\205E \310\315\"\211\205M \310\316\"\211\205q \317 \320\211\320 \321\322\323\324\325!\326\"\327$\216D\330\331#,\262\266\205\207" [prettify-symbols--current-symbol-bounds prettify-symbols-unprettify-at-point buffer-undo-list inhibit-read-only inhibit-modification-hooks nil #[257 "\301\302\303`\"\304=\205 o?\205 \303`S\"D\"\207" [prettify-symbols-unprettify-at-point remove nil get-text-property right-edge] 7 "\n\n(fn PROP)"] right-edge apply font-lock-flush composition prettify-symbols-start prettify-symbols-end min max buffer-modified-p t make-byte-code 0 "\300?\205 \301\302!\207" vconcat vector [restore-buffer-modified-p nil] 2 remove-text-properties (composition nil)] 14])
#@111 Non-nil if Prettify-Symbols mode is enabled.
Use the command `prettify-symbols-mode' to change this variable.
(defvar prettify-symbols-mode nil (#$ . 6711))
(make-variable-buffer-local 'prettify-symbols-mode)
#@905 Toggle Prettify Symbols mode.
If called interactively, enable Prettify-Symbols mode if ARG is
positive, and disable it if ARG is zero or negative. If called from
Lisp, also enable the mode if ARG is omitted or nil, and toggle it if
ARG is `toggle'; disable the mode otherwise.
When Prettify Symbols mode and font-locking are enabled, symbols are
prettified (displayed as composed characters) according to the rules
in `prettify-symbols-alist' (which see), which are locally defined
by major modes supporting prettifying. To add further customizations
for a given major mode, you can modify `prettify-symbols-alist' thus:
(add-hook \='emacs-lisp-mode-hook
(lambda ()
(push \='("<=" . ?≤) prettify-symbols-alist)))
You can enable this mode locally in desired buffers, or use
`global-prettify-symbols-mode' to enable it for all modes that
support it.
(fn &optional ARG)
(defalias 'prettify-symbols-mode #[256 "\306 \307=\203
?\202 \310!\311V \203 \312\313 \"\210\313\203H \314 \211\203v \315\313 \"\210\316\302!\210\317\n\320\" \203B \321\322\323\313\324$\210\325 \210\202v \326\322\323\324#\210\327\n>\203v \330\327\n\"\331 \324\211 \324 .\332\311\333\334\335!\336\"\337$\216\340ed\341#\210,\210\342\343\203\200 \344\202\201 \345\"\210\346\347!\203\245 \306 \203\225 \211\306 \232\203\245 \350\351\352\203\240 \353\202\241 \354#\266\210\355 \210\207" [prettify-symbols-mode prettify-symbols--keywords font-lock-extra-managed-props prettify-symbols-unprettify-at-point buffer-undo-list inhibit-read-only current-message toggle prefix-numeric-value 0 font-lock-remove-keywords nil prettify-symbols--make-keywords font-lock-add-keywords make-local-variable append (composition prettify-symbols-start prettify-symbols-end) add-hook post-command-hook prettify-symbols--post-command-hook t font-lock-flush remove-hook composition delq buffer-modified-p make-byte-code "\300?\205 \301\302!\207" vconcat vector [restore-buffer-modified-p nil] 2 remove-text-properties (composition nil) run-hooks prettify-symbols-mode-hook prettify-symbols-mode-on-hook prettify-symbols-mode-off-hook called-interactively-p any " in current buffer" message "Prettify-Symbols mode %sabled%s" "en" "dis" force-mode-line-update inhibit-modification-hooks] 10 (#$ . 6927) (byte-code "\206 \301C\207" [current-prefix-arg toggle] 1)])
(defvar prettify-symbols-mode-hook nil)
(byte-code "\301\302N\204\f \303\301\302\304#\210\305\306\307\310\300!\205 \307\211%\207" [prettify-symbols-mode-map prettify-symbols-mode-hook variable-documentation put "Hook run after entering or leaving `prettify-symbols-mode'.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it. (This is true for all hook variables.)" add-minor-mode prettify-symbols-mode nil boundp] 6)
(defalias 'turn-on-prettify-symbols-mode #[0 "?\205 \301\302!\205 \300\303!\207" [prettify-symbols-mode local-variable-p prettify-symbols-alist 1] 2])
(put 'global-prettify-symbols-mode 'globalized-minor-mode t)
(defvar prettify-symbols-mode-major-mode nil)
(byte-code "\300\301!\210\302\303\304\305\306DD\307\310\311\312\313\314\315\316\317& \207" [make-variable-buffer-local prettify-symbols-mode-major-mode custom-declare-variable global-prettify-symbols-mode funcall function #[0 "\300\207" [nil] 1] "Non-nil if Global Prettify-Symbols mode is enabled.\nSee the `global-prettify-symbols-mode' command\nfor a description of this minor mode.\nSetting this variable directly does not take effect;\neither customize it (see the info node `Easy Customization')\nor call the function `global-prettify-symbols-mode'." :set custom-set-minor-mode :initialize custom-initialize-default :group global-prettify-symbols :type boolean] 12)
#@401 Toggle Prettify-Symbols mode in all buffers.
With prefix ARG, enable Global Prettify-Symbols mode if ARG is positive;
otherwise, disable it. If called from Lisp, enable the mode if
ARG is omitted or nil.
Prettify-Symbols mode is enabled in all buffers where
`turn-on-prettify-symbols-mode' would do it.
See `prettify-symbols-mode' for more information on Prettify-Symbols mode.
(fn &optional ARG)
(defalias 'global-prettify-symbols-mode #[256 "\302 \303\300\304=\203 \305\300!?\202 \306!\307V\"\210\203. \310\311\312\"\210\310\313\314\"\210\310\315\316\"\210\202= \317\311\312\"\210\317\313\314\"\210\317\315\316\"\210\320 \211\203c \211@r\211q\210\203S \321 \210\202[ \203[ \301\322!\210)A\266\202\202? \210\323\324\305\300!\203p \325\202q \326\"\210\327\330!\203\233 \331\300!\210\302 \203\211 \211\302 \232\203\233 \332\333\334\305\300!\203\226 \335\202\227 \336#\266\210\337 \210\305\300!\207" [global-prettify-symbols-mode prettify-symbols-mode current-message set-default toggle default-value prefix-numeric-value 0 add-hook after-change-major-mode-hook global-prettify-symbols-mode-enable-in-buffers find-file-hook global-prettify-symbols-mode-check-buffers change-major-mode-hook global-prettify-symbols-mode-cmhh remove-hook buffer-list turn-on-prettify-symbols-mode -1 run-hooks global-prettify-symbols-mode-hook global-prettify-symbols-mode-on-hook global-prettify-symbols-mode-off-hook called-interactively-p any customize-mark-as-set "" message "Global Prettify-Symbols mode %sabled%s" "en" "dis" force-mode-line-update] 7 (#$ . 10682) (byte-code "\206 \301C\207" [current-prefix-arg toggle] 1)])
(defvar global-prettify-symbols-mode-hook nil)
(byte-code "\301\302N\204\f \303\301\302\304#\210\305\306\307\310\300!\205 \307\211%\207" [global-prettify-symbols-mode-map global-prettify-symbols-mode-hook variable-documentation put "Hook run after entering or leaving `global-prettify-symbols-mode'.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it. (This is true for all hook variables.)" add-minor-mode global-prettify-symbols-mode nil boundp] 6)
(defvar prettify-symbols-mode-set-explicitly nil nil)
(make-variable-buffer-local 'prettify-symbols-mode-set-explicitly)
(defalias 'prettify-symbols-mode-set-explicitly #[0 "\301\211\207" [prettify-symbols-mode-set-explicitly t] 2])
(byte-code "\300\301\302\303#\210\304\305\301\"\207" [put prettify-symbols-mode-set-explicitly definition-name global-prettify-symbols-mode add-hook prettify-symbols-mode-hook] 4)
(defvar global-prettify-symbols-mode-buffers nil)
(defalias 'global-prettify-symbols-mode-enable-in-buffers #[0 "\305\211\211\2059 \211@\306!\2032 r\211q\210 \204/ \n =\204/ \f\203, \304\307!\210\310 \210\202/ \310 \210 )A\266\202\202 \262\207" [global-prettify-symbols-mode-buffers prettify-symbols-mode-set-explicitly prettify-symbols-mode-major-mode major-mode prettify-symbols-mode nil buffer-live-p -1 turn-on-prettify-symbols-mode] 5])
(put 'global-prettify-symbols-mode-enable-in-buffers 'definition-name 'global-prettify-symbols-mode)
(defalias 'global-prettify-symbols-mode-check-buffers #[0 "\300 \210\301\302\303\"\207" [global-prettify-symbols-mode-enable-in-buffers remove-hook post-command-hook global-prettify-symbols-mode-check-buffers] 3])
(put 'global-prettify-symbols-mode-check-buffers 'definition-name 'global-prettify-symbols-mode)
(defalias 'global-prettify-symbols-mode-cmhh #[0 "\300\301p\"\210\302\303\304\"\207" [add-to-list global-prettify-symbols-mode-buffers add-hook post-command-hook global-prettify-symbols-mode-check-buffers] 3])
(put 'global-prettify-symbols-mode-cmhh 'definition-name 'global-prettify-symbols-mode)
(defvar prog-mode-hook nil)
(byte-code "\300\301N\204\f \302\300\301\303#\210\304\305!\204 \302\305\306\307#\210\300\207" [prog-mode-hook variable-documentation put "Hook run after entering Prog mode.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it. (This is true for all hook variables.)" boundp prog-mode-map definition-name prog-mode] 4)
(defvar prog-mode-map (make-sparse-keymap))
(byte-code "\301\302N\204 \303\301\302\304\305!#\210\306\307!\204 \303\307\310\311#\210\312\313 !\210\307\302N\204- \303\307\302\304\314!#\210\306\300!\204B \303\300\310\311#\210\315\316\300\317\"\210!\210\300\302N\204P \303\300\302\304\320!#\210\303\311\321\317#\207" [prog-mode-abbrev-table prog-mode-map variable-documentation put purecopy "Keymap for `prog-mode'." boundp prog-mode-syntax-table definition-name prog-mode (lambda (#1=#:def-tmp-var) (defvar prog-mode-syntax-table #1#)) make-syntax-table "Syntax table for `prog-mode'." (lambda (#1#) (defvar prog-mode-abbrev-table #1#)) define-abbrev-table nil "Abbrev table for `prog-mode'." derived-mode-parent] 5)
#@175 Major mode for editing programming language source code.
This mode runs the hook `prog-mode-hook', as the final or penultimate step
during initialization.
\{prog-mode-map}
(defalias 'prog-mode #[0 "\306\300!\210\307\310 \210\311\312\313 !\210\314\f!\210
\306\315!\210
\306\316!\210\307\317)\320\321!\207" [delay-mode-hooks major-mode mode-name prog-mode-map prog-mode-syntax-table prog-mode-abbrev-table make-local-variable t kill-all-local-variables prog-mode "Prog" use-local-map set-syntax-table require-final-newline parse-sexp-ignore-comments left-to-right run-mode-hooks prog-mode-hook local-abbrev-table mode-require-final-newline bidi-paragraph-direction] 2 (#$ . 15474) nil])
(provide 'prog-mode)
Mini Shell