Current File : //usr/local/share/emacs/27.2/lisp/hi-lock.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.
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(byte-code "\300\301!\210\302\303\304\305\306\307\310\301&\210\311\312\313\314\315DD\316\317\320\310\303&\210\311\321\313\314\322DD\323\317\320\310\303&\210\311\324\313\314\325DD\326\317\327\310\303&\210\311\330\313\314\331DD\332\317\333\310\303\334\335& \210\336\330\337\340#\210\311\341\313\314\342DD\343\317\344\334\345&\210\302\346\304\347\310\303\310\350&\210\351\352\353\354\310\346%\210\351\355\356\357\310\346%\210\351\360\361\357\310\346%\210\351\362\363\357\310\346%\210\351\364\365\357\310\346\334\366&\210\351\367\370\357\310\346\334\366&\210\351\371\372\357\310\346%\210\351\373\374\357\310\346%\210\351\375\376\357\310\346%\210\351\377\201@ \357\310\346%\210\351\201A \201B \357\310\346%\207" [require font-lock custom-declare-group hi-lock nil "Interactively add and remove font-lock patterns for highlighting text." :link (custom-manual "(emacs)Highlight Interactively") :group custom-declare-variable hi-lock-file-patterns-range funcall function #[0 "\300\207" [10000] 1] "Limit of search in a buffer for hi-lock patterns.\nWhen a file is visited and hi-lock mode is on, patterns starting\nup to this limit are added to font-lock's patterns. See documentation\nof functions `hi-lock-mode' and `hi-lock-find-patterns'." :type integer hi-lock-highlight-range #[0 "\300\207" [200000] 1] "Size of area highlighted by hi-lock when font-lock not active.\nFont-lock is not active in buffers that do their own highlighting,\nsuch as the buffer created by `list-colors-display'. In those buffers\nhi-lock patterns will only be applied over a range of\n`hi-lock-highlight-range' characters. If font-lock is active then\nhighlighting will be applied throughout the buffer." hi-lock-exclude-modes #[0 "\300\207" [(rmail-mode mime/viewer-mode gnus-article-mode)] 1] "List of major modes in which hi-lock will not run.\nFor security reasons since font lock patterns can specify function\ncalls." (repeat symbol) hi-lock-file-patterns-policy #[0 "\300\207" [ask] 1] "Specify when hi-lock should use patterns found in file.\nIf `ask', prompt when patterns found in buffer; if bound to a function,\nuse patterns when function returns t (function is called with patterns\nas first argument); if nil or `never' or anything else, don't use file\npatterns." (choice (const :tag "Do not use file patterns" never) (const :tag "Ask about file patterns" ask) (function :tag "Function to check file patterns")) :version "22.1" put risky-local-variable t hi-lock-auto-select-face #[0 "\300\207" [nil] 1] "When nil, highlighting commands prompt for the face to use.\nWhen non-nil, highlighting command determine the faces to use\nby cycling through the faces in `hi-lock-face-defaults'." boolean "24.4" hi-lock-faces "Faces for hi-lock." faces custom-declare-face hi-yellow ((((min-colors 88) (background dark)) (:background "yellow1" :foreground "black")) (((background dark)) (:background "yellow" :foreground "black")) (((min-colors 88)) (:background "yellow1")) (t (:background "yellow"))) "Default face for hi-lock mode." hi-pink ((((background dark)) (:background "pink" :foreground "black")) (t (:background "pink"))) "Face for hi-lock mode." hi-green ((((min-colors 88) (background dark)) (:background "light green" :foreground "black")) (((background dark)) (:background "green" :foreground "black")) (((min-colors 88)) (:background "light green")) (t (:background "green"))) hi-blue ((((background dark)) (:background "light blue" :foreground "black")) (t (:background "light blue"))) hi-salmon ((((min-colors 88) (background dark)) (:background "light salmon" :foreground "black")) (((background dark)) (:background "red" :foreground "black")) (((min-colors 88)) (:background "light salmon")) (t (:background "red"))) "27.1" hi-aquamarine ((((min-colors 88) (background dark)) (:background "aquamarine" :foreground "black")) (((background dark)) (:background "blue" :foreground "black")) (((min-colors 88)) (:background "aquamarine")) (t (:background "blue"))) hi-black-b ((t (:weight bold))) hi-blue-b ((((min-colors 88)) (:weight bold :foreground "blue1")) (t (:weight bold :foreground "blue"))) hi-green-b ((((min-colors 88)) (:weight bold :foreground "green3")) (t (:weight bold :foreground "green"))) hi-red-b ((((min-colors 88)) (:weight bold :foreground "firebrick2")) (t (:weight bold :foreground "red"))) hi-black-hb ((t (:weight bold :height 1.67 :inherit variable-pitch)))] 10)
#@61 Patterns found in file for hi-lock. Should not be changed.
(defvar hi-lock-file-patterns nil (#$ . 4808))
(byte-code "\300\301!\210\302\301\303\304#\207" [make-variable-buffer-local hi-lock-file-patterns put permanent-local t] 4)
#@63 Patterns provided to hi-lock by user. Should not be changed.
(defvar hi-lock-interactive-patterns nil (#$ . 5045))
(byte-code "\300\301!\210\302\301\303\304#\210\305\306\307\310#\210\311\211\2032 \211@\306N\203+ \307N\204+ \302\307\306N#\210A\266\202\202 \210\312\306\307\313#\207" [make-variable-buffer-local hi-lock-interactive-patterns put permanent-local t defvaralias hi-lock-face-history hi-lock-face-defaults nil (saved-value saved-variable-comment) make-obsolete-variable "23.1"] 7)
#@50 Default faces for hi-lock interactive functions.
(defvar hi-lock-face-defaults '("hi-yellow" "hi-pink" "hi-green" "hi-blue" "hi-salmon" "hi-aquamarine" "hi-black-b" "hi-blue-b" "hi-red-b" "hi-green-b" "hi-black-hb") (#$ . 5549))
(byte-code "\300\301\302\303#\210\304\211\203( \211@\301N\203! \302N\204! \305\302\301N#\210A\266\202\202 \210\306\301\302\307#\207" [defvaralias hi-lock-regexp-history regexp-history nil (saved-value saved-variable-comment) put make-obsolete-variable "23.1"] 7)
#@65 String used to identify hi-lock patterns at the start of files.
(defvar hi-lock-file-patterns-prefix "Hi-lock" (#$ . 6053))
#@286 True if user alerted that `global-hi-lock-mode' is now the global switch.
Earlier versions of hi-lock used `hi-lock-mode' as the global switch;
the message is issued if it appears that `hi-lock-mode' is used assuming
that older functionality. This variable avoids multiple reminders.
(defvar hi-lock-archaic-interface-message-used nil (#$ . 6184))
#@178 If non-nil, sometimes assume that `hi-lock-mode' means `global-hi-lock-mode'.
Assumption is made if `hi-lock-mode' used in the *scratch* buffer while
a library is being loaded.
(defvar hi-lock-archaic-interface-deduce nil (#$ . 6540))
#@24 Menu for hi-lock mode.
(defvar hi-lock-menu (byte-code "\300\301!\302\303\304#\210\302\305\306#\210\302\307\310#\210\302\311\312#\210\302\313\314#\210\302\315\316#\210\302\317\320#\210\211\207" [make-sparse-keymap "Hi Lock" define-key-after [highlight-regexp] (menu-item "Highlight Regexp..." highlight-regexp :help "Highlight text matching PATTERN (a regexp).") [highlight-phrase] (menu-item "Highlight Phrase..." highlight-phrase :help "Highlight text matching PATTERN (a regexp processed to match phrases).") [highlight-lines-matching-regexp] (menu-item "Highlight Lines..." highlight-lines-matching-regexp :help "Highlight lines containing match of PATTERN (a regexp).") [highlight-symbol-at-point] (menu-item "Highlight Symbol at Point" highlight-symbol-at-point :help "Highlight symbol found near point without prompting.") [unhighlight-regexp] (menu-item "Remove Highlighting..." unhighlight-regexp :help "Remove previously entered highlighting pattern." :enable hi-lock-interactive-patterns) [hi-lock-write-interactive-patterns] (menu-item "Patterns to Buffer" hi-lock-write-interactive-patterns :help "Insert interactively added REGEXPs into buffer at point." :enable hi-lock-interactive-patterns) [hi-lock-find-patterns] (menu-item "Patterns from Buffer" hi-lock-find-patterns :help "Use patterns (if any) near top of buffer.")] 5) (#$ . 6781))
#@22 Key map for hi-lock.
(defvar hi-lock-map (byte-code "\300\301!\302\303\304#\210\302\305\306#\210\302\307\310#\210\302\311\312#\210\302\313\314#\210\302\315\316#\210\302\317\320#\210\211\207" [make-sparse-keymap "Hi Lock" define-key "wi" hi-lock-find-patterns "wl" highlight-lines-matching-regexp "wp" highlight-phrase "wh" highlight-regexp "w." highlight-symbol-at-point "wr" unhighlight-regexp "wb" hi-lock-write-interactive-patterns] 5) (#$ . 8149))
#@93 Non-nil if Hi-Lock mode is enabled.
Use the command `hi-lock-mode' to change this variable.
(defvar hi-lock-mode nil (#$ . 8621))
(make-variable-buffer-local 'hi-lock-mode)
#@3029 Toggle selective highlighting of patterns (Hi Lock mode).
If called interactively, enable Hi-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.
Hi Lock mode is automatically enabled when you invoke any of the
highlighting commands listed below, such as \[highlight-regexp].
To enable Hi Lock mode in all buffers, use `global-hi-lock-mode'
or add (global-hi-lock-mode 1) to your init file.
In buffers where Font Lock mode is enabled, patterns are
highlighted using font lock. In buffers where Font Lock mode is
disabled, patterns are applied using overlays; in this case, the
highlighting will not be updated as you type. The Font Lock mode
is considered "enabled" in a buffer if its `major-mode'
causes `font-lock-specified-p' to return non-nil, which means
the major mode specifies support for Font Lock.
When Hi Lock mode is enabled, a "Regexp Highlighting" submenu
is added to the "Edit" menu. The commands in the submenu,
which can be called interactively, are:
\[highlight-regexp] REGEXP FACE
Highlight matches of pattern REGEXP in current buffer with FACE.
\[highlight-phrase] PHRASE FACE
Highlight matches of phrase PHRASE in current buffer with FACE.
(PHRASE can be any REGEXP, but spaces will be replaced by matches
to whitespace and initial lower-case letters will become case insensitive.)
\[highlight-lines-matching-regexp] REGEXP FACE
Highlight lines containing matches of REGEXP in current buffer with FACE.
\[highlight-symbol-at-point]
Highlight the symbol found near point without prompting, using the next
available face automatically.
\[unhighlight-regexp] REGEXP
Remove highlighting on matches of REGEXP in current buffer.
\[hi-lock-write-interactive-patterns]
Write active REGEXPs into buffer as comments (if possible). They may
be read the next time file is loaded or when the \[hi-lock-find-patterns] command
is issued. The inserted regexps are in the form of font lock keywords.
(See `font-lock-keywords'.) They may be edited and re-loaded with \[hi-lock-find-patterns],
any valid `font-lock-keywords' form is acceptable. When a file is
loaded the patterns are read if `hi-lock-file-patterns-policy' is
`ask' and the user responds y to the prompt, or if
`hi-lock-file-patterns-policy' is bound to a function and that
function returns t.
\[hi-lock-find-patterns]
Re-read patterns stored in buffer (in the format produced by \[hi-lock-write-interactive-patterns]).
When hi-lock is started and if the mode is not excluded or patterns
rejected, the beginning of the buffer is searched for lines of the
form:
Hi-lock: FOO
where FOO is a list of patterns. The patterns must start before
position (number of characters into buffer)
`hi-lock-file-patterns-range'. Patterns will be read until
Hi-lock: end is found. A mode is excluded if it's in the list
`hi-lock-exclude-modes'.
(fn &optional ARG)
(defalias 'hi-lock-mode #[256 "\306 \307=\203
?\202 \310!\311V\312 \313\232\203: \203: \314\315!\204: \n\204: \316 \2035 \317!\210\202: \320\321\322\"\210\203Z \323\f\324\325
B#\210\326 \210\327\330\331\332\316$\210\327\333\334\332\316$\210\202\226 .\204d /\203\212 .\203r \335\332.\"\210\332./\203\200 \335\332/\"\210\332/\336\332\211\337\316$\210\340 \210\323\f\341\332#\210\342\330\331\316#\210\343\344\203\240 \345\202\241 \346\"\210\314\347!\203\305 \306 \203\265 \211\306 \232\203\305 \350\351\352\203\300 \353\202\301 \354#\266\210\355 \210\207" [hi-lock-mode load-in-progress hi-lock-archaic-interface-message-used hi-lock-archaic-interface-deduce menu-bar-edit-menu hi-lock-menu current-message toggle prefix-numeric-value 0 buffer-name "*scratch*" called-interactively-p interactive t global-hi-lock-mode warn "%s" "Possible archaic use of (hi-lock-mode).\nUse (global-hi-lock-mode 1) in .emacs to enable hi-lock for all buffers,\nuse (hi-lock-mode 1) for individual buffers. For compatibility with Emacs\nversions before 22 use the following in your init file:\n\n (if (functionp 'global-hi-lock-mode)\n (global-hi-lock-mode 1)\n (hi-lock-mode 1))\n" define-key-after [hi-lock] "Regexp Highlighting" hi-lock-find-patterns add-hook font-lock-mode-hook hi-lock-font-lock-hook nil change-major-mode-hook #[0 "\300\301!\207" [hi-lock-mode -1] 2] font-lock-remove-keywords remove-overlays hi-lock-overlay font-lock-flush [hi-lock] remove-hook run-hooks hi-lock-mode-hook hi-lock-mode-on-hook hi-lock-mode-off-hook any " in current buffer" message "Hi-Lock mode %sabled%s" "en" "dis" force-mode-line-update hi-lock-interactive-patterns hi-lock-file-patterns] 7 (#$ . 8802) (byte-code "\206 \301C\207" [current-prefix-arg toggle] 1)])
(defvar hi-lock-mode-hook nil)
(byte-code "\301\302N\204\f \303\301\302\304#\210\305\306\307\310\211%\210\303\311\312\313#\207" [hi-lock-map hi-lock-mode-hook variable-documentation put "Hook run after entering or leaving `hi-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 hi-lock-mode (:eval (if (or hi-lock-interactive-patterns hi-lock-file-patterns) " Hi" "")) nil global-hi-lock-mode globalized-minor-mode t] 6)
(defvar hi-lock-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 hi-lock-mode-major-mode custom-declare-variable global-hi-lock-mode funcall function #[0 "\300\207" [nil] 1] "Non-nil if Global Hi-Lock mode is enabled.\nSee the `global-hi-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-hi-lock-mode'." :set custom-set-minor-mode :initialize custom-initialize-default :group hi-lock :type boolean] 12)
#@353 Toggle Hi-Lock mode in all buffers.
With prefix ARG, enable Global Hi-Lock mode if ARG is positive;
otherwise, disable it. If called from Lisp, enable the mode if
ARG is omitted or nil.
Hi-Lock mode is enabled in all buffers where
`turn-on-hi-lock-if-enabled' would do it.
See `hi-lock-mode' for more information on Hi-Lock mode.
(fn &optional ARG)
(defalias 'global-hi-lock-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-hi-lock-mode hi-lock-mode current-message set-default toggle default-value prefix-numeric-value 0 add-hook after-change-major-mode-hook global-hi-lock-mode-enable-in-buffers find-file-hook global-hi-lock-mode-check-buffers change-major-mode-hook global-hi-lock-mode-cmhh remove-hook buffer-list turn-on-hi-lock-if-enabled -1 run-hooks global-hi-lock-mode-hook global-hi-lock-mode-on-hook global-hi-lock-mode-off-hook called-interactively-p any customize-mark-as-set "" message "Global Hi-Lock mode %sabled%s" "en" "dis" force-mode-line-update] 7 (#$ . 14802) (byte-code "\206 \301C\207" [current-prefix-arg toggle] 1)])
(defvar global-hi-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-hi-lock-mode-map global-hi-lock-mode-hook variable-documentation put "Hook run after entering or leaving `global-hi-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-hi-lock-mode nil boundp] 6)
(defvar hi-lock-mode-set-explicitly nil nil)
(make-variable-buffer-local 'hi-lock-mode-set-explicitly)
(defalias 'hi-lock-mode-set-explicitly #[0 "\301\211\207" [hi-lock-mode-set-explicitly t] 2])
(byte-code "\300\301\302\303#\210\304\305\301\"\207" [put hi-lock-mode-set-explicitly definition-name global-hi-lock-mode add-hook hi-lock-mode-hook] 4)
(defvar global-hi-lock-mode-buffers nil)
(defalias 'global-hi-lock-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-hi-lock-mode-buffers hi-lock-mode-set-explicitly hi-lock-mode-major-mode major-mode hi-lock-mode nil buffer-live-p -1 turn-on-hi-lock-if-enabled] 5])
(put 'global-hi-lock-mode-enable-in-buffers 'definition-name 'global-hi-lock-mode)
(defalias 'global-hi-lock-mode-check-buffers #[0 "\300 \210\301\302\303\"\207" [global-hi-lock-mode-enable-in-buffers remove-hook post-command-hook global-hi-lock-mode-check-buffers] 3])
(put 'global-hi-lock-mode-check-buffers 'definition-name 'global-hi-lock-mode)
(defalias 'global-hi-lock-mode-cmhh #[0 "p\211\235\203\f \210\202 \211B\210\301\302\303\"\207" [global-hi-lock-mode-buffers add-hook post-command-hook global-hi-lock-mode-check-buffers] 3])
(put 'global-hi-lock-mode-cmhh 'definition-name 'global-hi-lock-mode)
(defalias 'turn-on-hi-lock-if-enabled #[0 "\303 \n>?\205\f \304\305!\207" [hi-lock-archaic-interface-message-used major-mode hi-lock-exclude-modes t hi-lock-mode 1] 2])
(defalias 'highlight-lines-matching-regexp 'hi-lock-line-face-buffer)
#@484 Highlight all lines that match REGEXP using FACE.
The lines that match REGEXP will be displayed by merging
the attributes of FACE with any other face attributes
of text in those lines.
Interactively, prompt for REGEXP using `read-regexp', then FACE.
Use the global history list for FACE.
Use Font lock mode, if enabled, to highlight REGEXP. Otherwise,
use overlays for highlighting. If overlays are used, the
highlighting will not update as you type.
(fn REGEXP &optional FACE)
(defalias 'hi-lock-line-face-buffer #[513 "\301!\204 \302\262\204 \300\303!\210\304\305\306Q\"\207" [hi-lock-mode facep hi-yellow 1 hi-lock-set-pattern "^.*\\(?:" "\\).*\\(?:$\\)\n?"] 6 (#$ . 18334) (byte-code "\300\301\302\303\"!\304 D\207" [hi-lock-regexp-okay read-regexp "Regexp to highlight line" regexp-history-last hi-lock-read-face-name] 4)])
(defalias 'highlight-regexp 'hi-lock-face-buffer)
#@692 Set face of each match of REGEXP to FACE.
Interactively, prompt for REGEXP using `read-regexp', then FACE.
Use the global history list for FACE. Limit face setting to the
corresponding SUBEXP (interactively, the prefix argument) of REGEXP.
If SUBEXP is omitted or nil, the entire REGEXP is highlighted.
Use Font lock mode, if enabled, to highlight REGEXP. Otherwise,
use overlays for highlighting. If overlays are used, the
highlighting will not update as you type. The Font Lock mode
is considered "enabled" in a buffer if its `major-mode'
causes `font-lock-specified-p' to return non-nil, which means
the major mode specifies support for Font Lock.
(fn REGEXP &optional FACE SUBEXP)
(defalias 'hi-lock-face-buffer #[769 "\301!\204 \302\262\204 \300\303!\210\304#\207" [hi-lock-mode facep hi-yellow 1 hi-lock-set-pattern] 7 (#$ . 19232) (byte-code "\301\302\303\304\"!\305 E\207" [current-prefix-arg hi-lock-regexp-okay read-regexp "Regexp to highlight" regexp-history-last hi-lock-read-face-name] 4)])
(defalias 'highlight-phrase 'hi-lock-face-phrase-buffer)
#@733 Set face of each match of phrase REGEXP to FACE.
Interactively, prompt for REGEXP using `read-regexp', then FACE.
Use the global history list for FACE.
When called interactively, replace whitespace in user-provided
regexp with arbitrary whitespace, and make initial lower-case
letters case-insensitive, before highlighting with `hi-lock-set-pattern'.
Use Font lock mode, if enabled, to highlight REGEXP. Otherwise,
use overlays for highlighting. If overlays are used, the
highlighting will not update as you type. The Font Lock mode
is considered "enabled" in a buffer if its `major-mode'
causes `font-lock-specified-p' to return non-nil, which means
the major mode specifies support for Font Lock.
(fn REGEXP &optional FACE)
(defalias 'hi-lock-face-phrase-buffer #[513 "\301!\204 \302\262\204 \300\303!\210\304\"\207" [hi-lock-mode facep hi-yellow 1 hi-lock-set-pattern] 5 (#$ . 20315) (byte-code "\300\301\302\303\304\"!!\305 D\207" [hi-lock-regexp-okay hi-lock-process-phrase read-regexp "Phrase to highlight" regexp-history-last hi-lock-read-face-name] 5)])
(defalias 'highlight-symbol-at-point 'hi-lock-face-symbol-at-point)
#@542 Highlight each instance of the symbol at point.
Uses the next face from `hi-lock-face-defaults' without prompting,
unless you use a prefix argument.
Uses `find-tag-default-as-symbol-regexp' to retrieve the symbol at point.
This uses Font lock mode if it is enabled; otherwise it uses overlays,
in which case the highlighting will not update as you type. The Font
Lock mode is considered "enabled" in a buffer if its `major-mode'
causes `font-lock-specified-p' to return non-nil, which means
the major mode specifies support for Font Lock.
(defalias 'hi-lock-face-symbol-at-point #[0 "\302\303 !\304\305 \306!\204 \307\262 \204 \301\310!\210\311\")\207" [hi-lock-auto-select-face hi-lock-mode hi-lock-regexp-okay find-tag-default-as-symbol-regexp t hi-lock-read-face-name facep hi-yellow 1 hi-lock-set-pattern] 5 (#$ . 21465) nil])
#@16
(fn KEYWORD)
(defalias 'hi-lock-keyword->face #[257 "\211A@A@A@\207" [] 2 (#$ . 22311)])
(defalias 'hi-lock--regexps-at-point #[0 "\301\302`\303\"\211\203 \211B\262\210\304`\305\"o?\205 \304`S\305\"\306\307\">\204* \301\262>\2043 \301\262\203D \203D =\204D \301\262\204L \203\216 \310\203\\ \311`\305\"\206] e\202] `\203l \312`\305\"\206m d\202m `\"\211\203\214 \211@\211@\313\"\203\204 \211B\262\210A\266\202\202o \266\266\211\207" [hi-lock-interactive-patterns nil get-char-property hi-lock-overlay-regexp get-text-property face mapcar hi-lock-keyword->face buffer-substring-no-properties previous-single-property-change next-single-property-change string-match] 11])
#@137 List of faces that is not used and is available for highlighting new text.
Face names from this list come from `hi-lock-face-defaults'.
(defvar hi-lock--unused-faces nil (#$ . 23019))
(byte-code "\300\301!\210\302\303\304\"\207" [make-variable-buffer-local hi-lock--unused-faces defalias unhighlight-regexp hi-lock-unface-buffer] 3)
#@297 Remove highlighting of each match to REGEXP set by hi-lock.
Interactively, prompt for REGEXP, accepting only regexps
previously inserted by hi-lock interactive functions.
If REGEXP is t (or if \[universal-argument] was specified interactively),
then remove all hi-lock highlighting.
(fn REGEXP)
(defalias 'hi-lock-unface-buffer #[257 "\211\303=\203\n \202 \304\"C\211\205X \211@\211\203Q \305!\2119\2034 \306!\211 \235\203/ \210\2023 \211 B\210\210\n\203? \307\310C\"\210\311\"\312\310\211\313\314@!$\210\315 \210A\266\202\202 \207" [hi-lock-interactive-patterns hi-lock--unused-faces font-lock-fontified t assoc hi-lock-keyword->face face-name font-lock-remove-keywords nil delq remove-overlays hi-lock-overlay-regexp hi-lock--hashcons font-lock-flush] 9 (#$ . 23359) (byte-code "\203 \304C\207\305 \203- <\203- \n\203- \3062X \307\304\310\311\312\313 \"BB\"\206+ \314\306\315\"0\207 \2045 \316\317!\210\320 \206> \312\321 \"\322\204G \323\202L \324\325@\" \326\304\326\211&C\262\207" [current-prefix-arg last-nonmenu-event use-dialog-box hi-lock-interactive-patterns t display-popup-menus-p snafu x-popup-menu keymap "Select Pattern to Unhighlight" mapcar #[257 "\211@\300\301@\302!#\303\211B@F\207" [format "%s (%s)" hi-lock-keyword->face nil] 7 "\n\n(fn PATTERN)"] throw ("") error "No highlighting to remove" hi-lock--regexps-at-point car completing-read "Regexp to unhighlight: " format "Regexp to unhighlight (default %s): " nil] 9)])
#@252 Write interactively added patterns, if any, into buffer at point.
Interactively added patterns are those normally specified using
`highlight-regexp' and `highlight-lines-matching-regexp'; they can
be found in variable `hi-lock-interactive-patterns'.
(defalias 'hi-lock-write-interactive-patterns #[0 "\204 \302\303!\210`\304\305\"\210\306`\"\266` V\205 \307\310!\207" [hi-lock-interactive-patterns hi-lock-file-patterns-range error "There are no interactive patterns" mapc #[257 "\301\302\303!#c\207" [hi-lock-file-patterns-prefix format "%s: (%s)\n" prin1-to-string] 6 "\n\n(fn PATTERN)"] comment-region warn "Inserted keywords not close enough to top of file"] 4 (#$ . 24836) nil])
#@195 Convert regexp PHRASE to a regexp that matches phrases.
Blanks in PHRASE replaced by regexp that matches arbitrary whitespace
and initial lower-case letters made case insensitive.
(fn PHRASE)
(defalias 'hi-lock-process-phrase #[257 "\300\301\302\303#\262\301\304\305\300\306%\211\262\207" [nil replace-regexp-in-string "\\(^\\|\\s-\\)\\([a-z]\\)" #[257 "\300\301\302\303\"\302\304\"\226\302\304\"$\207" [format "%s[%s%s]" match-string 1 2] 8 "\n\n(fn M)"] "\\s-+" "[ \n]+" t] 8 (#$ . 25536)])
#@161 Return REGEXP if it appears suitable for a font-lock pattern.
Otherwise signal an error. A pattern that matches the null string is
not suitable.
(fn REGEXP)
(defalias 'hi-lock-regexp-okay #[257 "\211\204 \300\301!\207\302\303\"\203 \300\304!\207\207" [error "Regexp cannot match nil" string-match "" "Regexp cannot match an empty string"] 4 (#$ . 26047)])
#@213 Return face for interactive highlighting.
When `hi-lock-auto-select-face' is non-nil, just return the next face.
Otherwise, or with a prefix argument, read a face from the minibuffer
with completion and history.
(defalias 'hi-lock-read-face-name #[0 "\204 \205 \306\307@!!\310\n \235A #\311 \2030 \f\2040 \n\211A\242\206+ @\262\202W \312\313\314@\"
\315\316\311\317&\262\320\n\"\211 \235\203Q \210\202W \310 C\"\321!\207" [hi-lock-interactive-patterns hi-lock-face-defaults hi-lock--unused-faces hi-lock-auto-select-face current-prefix-arg obarray face-name hi-lock-keyword->face append nil completing-read format "Highlight using face (default %s): " facep t face-name-history remove intern] 11 (#$ . 26416)])
#@162 Highlight SUBEXP of REGEXP with face FACE.
If omitted or nil, SUBEXP defaults to zero, i.e. the entire
REGEXP is highlighted.
(fn REGEXP FACE &optional SUBEXP)
(defalias 'hi-lock-set-pattern #[770 "\305!\262\211\206\n \306\262\307D\310ED\311\312\"\2033 \313!\211 \235\203) \202. \211 B\211\262\202\301 B\n\203M \314 !\203M \315\316C\311#\210\317 \202\301 `\f\320\245Z`\f\320\245\\e\306dZ]Z]d\306eZ]\\^\212b\210\321 \311#\203\242 \203~ \316\262\322\224\225\"\323\324\311#\210\323\325\f#\210\323\326 #\266\306\225b\210\202n \205\276 \313!\211 \235\203\265 \210\202\271 \211 B\210A\211)\266\204\207" [hi-lock-interactive-patterns hi-lock--unused-faces font-lock-mode major-mode hi-lock-highlight-range hi-lock--hashcons 0 quote prepend t assoc face-name font-lock-specified-p font-lock-add-keywords nil font-lock-flush 2 re-search-forward make-overlay overlay-put hi-lock-overlay hi-lock-overlay-regexp face] 14 (#$ . 27156)])
#@72 Replace file patterns list with PATTERNS and refontify.
(fn PATTERNS)
(defalias 'hi-lock-set-file-patterns #[257 "\204 \211\205 \301\302\"\210\211\303\302\304#\210\305 \207" [hi-lock-file-patterns font-lock-remove-keywords nil font-lock-add-keywords t font-lock-flush] 5 (#$ . 28130)])
#@71 Add patterns from the current buffer to the list of hi-lock patterns.
(defalias 'hi-lock-find-patterns #[0 " >?\205\210 \306\307\n\310Q\212\214~\210eb\210\311` \\\312#\210\313 \210\311`\314\\\312#\203I \315\316!\204I \3171? \320\321p!\"\211\2620\202E \210\322\323\324 \"\210\202 *\205\206 \f\205\206
\325=\204w \326 !\203f !\202t \327=\203s \330\331!\202t \306\205\206 \332!\210\333\334!\205\206 \322\335G\"\266\202\207" [major-mode hi-lock-exclude-modes hi-lock-file-patterns-prefix hi-lock-file-patterns-range hi-lock-mode this-command nil "\\<" ":" re-search-forward t beginning-of-line 100 looking-at "\\s-*end" (error) append read message "Invalid pattern list expression at %d" line-number-at-pos hi-lock-find-patterns functionp ask y-or-n-p "Add patterns from this buffer to hi-lock? " hi-lock-set-file-patterns called-interactively-p interactive "Hi-lock added %d patterns." hi-lock-file-patterns-policy] 6 (#$ . 28429) nil])
#@38 Add hi-lock patterns to font-lock's.
(defalias 'hi-lock-font-lock-hook #[0 "\205 \303\304 \305#\210\303\304\n\305#\207" [font-lock-fontified hi-lock-file-patterns hi-lock-interactive-patterns font-lock-add-keywords nil t] 4 (#$ . 29385)])
#@39 Hash table used to hash cons regexps.
(defvar hi-lock--hashcons-hash (make-hash-table :test 'equal :weakness t) (#$ . 29632))
#@52 Return unique object equal to STRING.
(fn STRING)
(defalias 'hi-lock--hashcons #[257 "\301\"\206\f \302\211#\207" [hi-lock--hashcons-hash gethash puthash] 5 (#$ . 29764)])
#@29 Unload the Hi-Lock library.
(defalias 'hi-lock-unload-function #[0 "\300\301!\210\302\207" [global-hi-lock-mode -1 nil] 2 (#$ . 29947)])
(provide 'hi-lock)
Mini Shell