| Current File : //proc/self/root/kunden/usr/share/emacs/27.2/lisp/font-core.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.
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
#@1820 Defaults for Font Lock mode specified by the major mode.
Defaults should be of the form:
(KEYWORDS [KEYWORDS-ONLY [CASE-FOLD [SYNTAX-ALIST ...]]])
KEYWORDS may be a symbol (a variable or function whose value is the keywords
to use for fontification) or a list of symbols (specifying different levels
of fontification).
If KEYWORDS-ONLY is non-nil, syntactic fontification (strings and
comments) is not performed.
If CASE-FOLD is non-nil, the case of the keywords is ignored when fontifying.
If SYNTAX-ALIST is non-nil, it should be a list of cons pairs of the form
(CHAR-OR-STRING . STRING) used to set the local Font Lock syntax table, for
keyword and syntactic fontification (see `modify-syntax-entry').
These item elements are used by Font Lock mode to set the variables
`font-lock-keywords', `font-lock-keywords-only',
`font-lock-keywords-case-fold-search', `font-lock-syntax-table'.
Further item elements are alists of the form (VARIABLE . VALUE) and are in no
particular order. Each VARIABLE is made buffer-local before set to VALUE.
Currently, appropriate variables include `font-lock-mark-block-function'.
If this is non-nil, it should be a function with no args used to mark any
enclosing block of text, for fontification via \[font-lock-fontify-block].
Typical values are `mark-defun' for programming modes or `mark-paragraph' for
textual modes (i.e., the mode-dependent function is known to put point and mark
around a text block relevant to that mode).
Other variables include that for syntactic keyword fontification,
`font-lock-syntactic-keywords' and those for buffer-specialized fontification
functions, `font-lock-fontify-buffer-function',
`font-lock-unfontify-buffer-function', `font-lock-fontify-region-function',
`font-lock-unfontify-region-function', and `font-lock-inhibit-thing-lock'.
(defvar font-lock-defaults nil (#$ . 410))
(byte-code "\300\301\302\303#\210\304\301!\207" [put font-lock-defaults risky-local-variable t make-variable-buffer-local] 4)
#@142 A function which is called when `font-lock-mode' is toggled.
It will be passed one argument, which is the current value of
`font-lock-mode'.
(defvar font-lock-function 'font-lock-default-function (#$ . 2405))
#@97 Non-nil if Font-Lock mode is enabled.
Use the command `font-lock-mode' to change this variable.
(defvar font-lock-mode nil (#$ . 2620))
(make-variable-buffer-local 'font-lock-mode)
#@2340 Toggle syntax highlighting in this buffer (Font Lock mode).
If called interactively, enable Font-Lock 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 Font Lock mode is enabled, text is fontified as you type it:
- Comments are displayed in `font-lock-comment-face';
- Strings are displayed in `font-lock-string-face';
- Certain other expressions are displayed in other faces
according to the value of the variable `font-lock-keywords'.
To customize the faces (colors, fonts, etc.) used by Font Lock for
fontifying different parts of buffer text, use \[customize-face].
You can enable Font Lock mode in any major mode automatically by
turning on in the major mode's hook. For example, put in your
~/.emacs:
(add-hook \='c-mode-hook \='turn-on-font-lock)
Alternatively, you can use Global Font Lock mode to automagically
turn on Font Lock mode in buffers whose major mode supports it
and whose major mode is one of `font-lock-global-modes'. For
example, put in your ~/.emacs:
(global-font-lock-mode t)
Where major modes support different levels of fontification, you
can use the variable `font-lock-maximum-decoration' to specify
which level you generally prefer. When you turn Font Lock mode
on/off the buffer is fontified/defontified, though fontification
occurs only if the buffer is less than `font-lock-maximum-size'.
To add your own highlighting for some major mode, and modify the
highlighting selected automatically via the variable
`font-lock-maximum-decoration', you can use
`font-lock-add-keywords'.
To fontify a buffer, without turning on Font Lock mode and
regardless of buffer size, you can use \[font-lock-fontify-buffer].
To fontify a block (the function or paragraph containing point,
or a number of lines around point), perhaps because modification
on the current line caused syntactic change on other lines, you
can use \[font-lock-fontify-block].
You can set your own default settings for some mode, by setting a
buffer local value for `font-lock-defaults', via its mode hook.
The above is the default behavior of `font-lock-mode'; you may
specify your own function which is called when `font-lock-mode'
is toggled via `font-lock-function'.
(defalias 'font-lock-mode #[(&optional arg) "\306 \307=\203 \n?\202 \310 !\311V \204! \312 \311H\313=\203# \314\f\n!\210\n\2035 \315\316\317\314\320$\210\202; \321\316\317\320#\210\322\323\n\203E \324\202F \325\"\210\326\327!\203k \306 \203Z \306 \232\203k \330 \331\332\n\203f \333\202g \334
#\210)\335 \210)\336 \210\n\207" [#1=#:last-message arg font-lock-mode noninteractive font-lock-function local current-message toggle prefix-numeric-value 0 buffer-name 32 nil add-hook change-major-mode-hook font-lock-change-mode t remove-hook run-hooks font-lock-mode-hook font-lock-mode-on-hook font-lock-mode-off-hook called-interactively-p any " in current buffer" message "Font-Lock mode %sabled%s" "en" "dis" font-lock-initial-fontify force-mode-line-update] 5 (#$ . 2809) (list (or current-prefix-arg 'toggle))])
(defvar font-lock-mode-hook nil)
(byte-code "\301\302N\204\f \303\301\302\304#\210\305\306\307\310\300!\205 \307\211%\207" [font-lock-mode-map font-lock-mode-hook variable-documentation put "Hook run after entering or leaving `font-lock-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 font-lock-mode nil boundp] 6)
(defalias 'font-lock-change-mode #[nil "\300\301!\207" [font-lock-mode -1] 2])
#@176 Clear out all `font-lock-face' properties in current buffer.
A major mode that uses `font-lock-face' properties might want to put
this function onto `change-major-mode-hook'.
(defalias 'font-lock-defontify #[nil "\302 \303\214~\210\304ed\305#\210)\306 !*\207" [inhibit-read-only modp buffer-modified-p t remove-list-of-text-properties (font-lock-face) restore-buffer-modified-p] 4 (#$ . 6473)])
(defalias 'font-lock-default-function #[(mode) "\203- \303\301!\210\304 !\305 \236\211\203& \306\nA>\204, \n\211A\306C\244\241\210\202, \305\306D B)\204T \303\301!\210\304 !\305 \236\211\203S \n\307\306\nA\"\241\210\nA\204S \310\n \")\311!\205] \312!\207" [mode char-property-alias-alist elt make-local-variable copy-tree face font-lock-face remq delq font-lock-specified-p font-lock-mode-internal] 5])
#@63 Turn on Font Lock mode (only if the terminal can display it).
(defalias 'turn-on-font-lock #[nil "?\205 \300 \207" [font-lock-mode] 1 (#$ . 7289)])
#@569 Modes for which Font Lock mode is automagically turned on.
Global Font Lock mode is controlled by the command `global-font-lock-mode'.
If nil, means no modes have Font Lock mode automatically turned on.
If t, all modes that support Font Lock mode have it automatically turned on.
If a list, it should be a list of `major-mode' symbol names for which Font Lock
mode should be automatically turned on. The sense of the list is negated if it
begins with `not'. For example:
(c-mode c++-mode)
means that Font Lock mode is turned on for buffers in C and C++ modes only.
(custom-declare-variable 'font-lock-global-modes t '(#$ . 7446) :type '(choice (const :tag "none" nil) (const :tag "all" t) (set :menu-tag "mode specific" :tag "modes" :value (not) (const :tag "Except" not) (repeat :inline t (symbol :tag "mode")))) :group 'font-lock)
(defalias 'turn-on-font-lock-if-desired #[nil "\303=\204 \242\304=\203 A>?\202 >\205 \305\306 )\207" [font-lock-global-modes major-mode inhibit-quit t not nil turn-on-font-lock] 2])
(put 'global-font-lock-mode 'globalized-minor-mode t)
(defvar font-lock-mode-major-mode nil)
(byte-code "\300\301!\210\302\303\304\305\306\307\310\311\312\313\314\315\316\317&
\207" [make-variable-buffer-local font-lock-mode-major-mode custom-declare-variable global-font-lock-mode (not (or noninteractive emacs-basic-display)) "Non-nil if Global Font-Lock mode is enabled.\nSee the `global-font-lock-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-font-lock-mode'." :set custom-set-minor-mode :initialize custom-initialize-delay :group font-lock :type boolean :version "22.1"] 14)
#@345 Toggle Font-Lock mode in all buffers.
With prefix ARG, enable Global Font-Lock mode if ARG is positive;
otherwise, disable it. If called from Lisp, enable the mode if
ARG is omitted or nil.
Font-Lock mode is enabled in all buffers where
`turn-on-font-lock-if-desired' would do it.
See `font-lock-mode' for more information on Font-Lock mode.
(defalias 'global-font-lock-mode #[(&optional arg) "\306 \307\302 \310=\203 \311\302!?\202 \312 !\313V\"\210\n\203/ \314\315\316\"\210\314\317\320\"\210\314\321\322\"\210\202> \323\315\316\"\210\323\317\320\"\210\323\321\322\"\210\324 \325\211 \203h \f@r q\210\n\203X \326 \210\202`
\203` \305\327!\210)\fA\211\204G *\330\331\311\302!\203u \332\202v \333\"\210\334\335!\203\243 \336\302!\210\306 \203\216 \306 \232\203\243 \337 %\340\341\311\302!\203\235 \342\202\236 \343%#\210))\344 \210\311\302!\207" [#1=#:last-message arg global-font-lock-mode buf --dolist-tail-- font-lock-mode current-message set-default toggle default-value prefix-numeric-value 0 add-hook after-change-major-mode-hook global-font-lock-mode-enable-in-buffers find-file-hook global-font-lock-mode-check-buffers change-major-mode-hook global-font-lock-mode-cmhh remove-hook buffer-list nil turn-on-font-lock-if-desired -1 run-hooks global-font-lock-mode-hook global-font-lock-mode-on-hook global-font-lock-mode-off-hook called-interactively-p any customize-mark-as-set "" message "Global Font-Lock mode %sabled%s" "en" "dis" force-mode-line-update local] 5 (#$ . 9215) (list (or current-prefix-arg 'toggle))])
(defvar global-font-lock-mode-hook nil)
(byte-code "\301\302N\204\f \303\301\302\304#\210\305\306\307\310\300!\205 \307\211%\207" [global-font-lock-mode-map global-font-lock-mode-hook variable-documentation put "Hook run after entering or leaving `global-font-lock-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-font-lock-mode nil boundp] 6)
(defvar font-lock-mode-set-explicitly nil nil)
(make-variable-buffer-local 'font-lock-mode-set-explicitly)
(defalias 'font-lock-mode-set-explicitly #[nil "\301\211\207" [font-lock-mode-set-explicitly t] 2])
(byte-code "\300\301\302\303#\210\304\305\301\"\207" [put font-lock-mode-set-explicitly definition-name global-font-lock-mode add-hook font-lock-mode-hook] 4)
(defvar global-font-lock-mode-buffers nil)
(defalias 'global-font-lock-mode-enable-in-buffers #[nil "\306 \306\211\205B @\307\n!\203: r\nq\210\f\2046
=\2046 \2033 \310\311!\210\312 \210\2026 \312 \210 ) A\211\204\f \306+\207" [global-font-lock-mode-buffers buffers buf --dolist-tail-- font-lock-mode-set-explicitly font-lock-mode-major-mode nil buffer-live-p font-lock-mode -1 turn-on-font-lock-if-desired major-mode] 3])
(put 'global-font-lock-mode-enable-in-buffers 'definition-name 'global-font-lock-mode)
(defalias 'global-font-lock-mode-check-buffers #[nil "\300 \210\301\302\303\"\207" [global-font-lock-mode-enable-in-buffers remove-hook post-command-hook global-font-lock-mode-check-buffers] 3])
(put 'global-font-lock-mode-check-buffers 'definition-name 'global-font-lock-mode)
(defalias 'global-font-lock-mode-cmhh #[nil "\300\301p\"\210\302\303\304\"\207" [add-to-list global-font-lock-mode-buffers add-hook post-command-hook global-font-lock-mode-check-buffers] 3])
(byte-code "\300\301\302\303#\210\304\305!\207" [put global-font-lock-mode-cmhh definition-name global-font-lock-mode provide font-core] 4)