| Current Path : /usr/share/emacs/24.3/lisp/ |
Linux gator3171.hostgator.com 4.19.286-203.ELK.el7.x86_64 #1 SMP Wed Jun 14 04:33:55 CDT 2023 x86_64 |
| Current File : //usr/share/emacs/24.3/lisp/font-core.elc |
;ELC ;;; Compiled by mockbuild@buildfarm06-new.corp.cloudlinux.com on Fri Oct 11 10:12:50 2024 ;;; from file /builddir/build/BUILD/emacs-24.3/lisp/font-core.el ;;; in Emacs version 24.3 ;;; 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. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; #@2487 Defaults for Font Lock mode specified by the major mode. Defaults should be of the form: (KEYWORDS [KEYWORDS-ONLY [CASE-FOLD [SYNTAX-ALIST [SYNTAX-BEGIN ...]]]]) 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'). If SYNTAX-BEGIN is non-nil, it should be a function with no args used to move backwards outside any enclosing syntactic block, for syntactic fontification. Typical values are `beginning-of-line' (i.e., the start of the line is known to be outside a syntactic block), or `beginning-of-defun' for programming modes or `backward-paragraph' for textual modes (i.e., the mode-dependent function is known to move outside a syntactic block). If nil, the beginning of the buffer is used as a position outside of a syntactic block, in the worst case. (See also Info node `(elisp)Font Lock Basics'.) 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' and `font-lock-beginning-of-syntax-function', respectively. 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 (#$ . 552)) (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 (#$ . 3214)) #@97 Non-nil if Font-Lock mode is enabled. Use the command `font-lock-mode' to change this variable. (defvar font-lock-mode nil (#$ . 3429)) (make-variable-buffer-local 'font-lock-mode) #@2255 Toggle syntax highlighting in this buffer (Font Lock mode). With a prefix argument ARG, enable Font Lock mode if ARG is positive, and disable it otherwise. If called from Lisp, enable the mode if ARG is omitted or nil. 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) "\305 \306=\203 \n?\202 \307 !\310V \204! \311 \310H\312=\203# \313\f\n!\210\n\2035 \314\315\316\313\317$\210\202; \320\315\316\317#\210\321\322\n\203E \323\202F \324\"\210\325\326!\203g \305 \203Z \305 \232\203g \327\330\n\203d \331\202e \332\"\210\333 \210)\334 \210\n\207" [#1=#:last-message arg font-lock-mode noninteractive font-lock-function 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 message "Font-Lock mode %sabled" "en" "dis" font-lock-initial-fontify force-mode-line-update] 5 (#$ . 3618) (list (or current-prefix-arg 'toggle))]) (byte-code "\301\302\303\304\300!\205\n \303\211%\207" [font-lock-mode-map 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 (#$ . 6864)]) (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 (#$ . 7680)]) #@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 '(#$ . 7837) :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]) (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 command `global-font-lock-mode' for 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=\203 \n?\202 \310 !\311V\211\203/ \312\313\314\"\210\312\315\314\"\210\312\316\317\"\210\312\320\321\"\210\202C \322\313\314\"\210\322\315\314\"\210\322\316\317\"\210\322\320\321\"\210\323 \324\211 \203m \f@r q\210\n\203] \325 \210\202e \203e \305\326!\210)\fA\211\204L *\327\330\n\203x \331\202y \332\"\210\333\334!\203\236 \335\302!\210\306 \203\221 \306 \232\203\236 \336\337\n\203\233 \340\202\234 \341\"\210)\342 \210\n\207" [#1=#:last-message arg global-font-lock-mode buf --dolist-tail-- font-lock-mode current-message toggle prefix-numeric-value 0 add-hook after-change-major-mode-hook global-font-lock-mode-enable-in-buffers change-major-mode-after-body-hook 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" "en" "dis" force-mode-line-update] 4 (#$ . 9551) (list (or current-prefix-arg 'toggle))]) (byte-code "\301\302\303\304\300!\205\n \303\211%\207" [global-font-lock-mode-map add-minor-mode global-font-lock-mode nil boundp] 6) (defvar global-font-lock-mode-buffers nil) (defalias 'global-font-lock-mode-enable-in-buffers #[nil "\306\211\2059 \n@\307 !\2031 r q\210 \f=\2040 \203+ \305\310!\210\311 \210\f\2020 \311 \210\f)\nA\211\204 \306*\207" [global-font-lock-mode-buffers buf --dolist-tail-- font-lock-mode-major-mode major-mode font-lock-mode nil buffer-live-p -1 turn-on-font-lock-if-desired] 3]) (put 'global-font-lock-mode-enable-in-buffers 'definition-name 'global-font-lock-mode) (defalias 'global-font-lock-mode-check-buffers #[nil "\301 \210\302\303\304\305\"\207" [global-font-lock-mode-buffers global-font-lock-mode-enable-in-buffers nil 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)