| 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/hi-lock.elc |
;ELC
;;; Compiled by mockbuild@buildfarm06-new.corp.cloudlinux.com on Fri Oct 11 10:06:20 2024
;;; from file /builddir/build/BUILD/emacs-24.3/lisp/hi-lock.el
;;; in Emacs version 24.3.1
;;; 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\315\316\310\303&\210\311\317\320\321\315\316\310\303&\210\311\322\323\324\315\325\310\303&\210\311\326\327\330\315\331\310\303\332\333& \210\334\326\335\336#\210\302\337\304\340\310\303\310\341&\210\342\343\344\345\310\337%\210\342\346\347\350\310\337%\210\342\351\352\350\310\337%\210\342\353\354\350\310\337%\210\342\355\356\350\310\337%\210\342\357\360\350\310\337%\210\342\361\362\350\310\337%\210\342\363\364\350\310\337%\210\342\365\366\350\310\337%\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 10000 "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 200000 "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 '(rmail-mode mime/viewer-mode gnus-article-mode) "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 'ask "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-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 "green1" :foreground "black")) (((background dark)) (:background "green" :foreground "black")) (((min-colors 88)) (:background "green1")) (t (:background "green"))) hi-blue ((((background dark)) (:background "light blue" :foreground "black")) (t (:background "light 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 "green1")) (t (:weight bold :foreground "green"))) hi-red-b ((((min-colors 88)) (:weight bold :foreground "red1")) (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 (#$ . 3945))
#@63 Patterns provided to hi-lock by user. Should not be changed.
(defvar hi-lock-interactive-patterns nil (#$ . 4058))
(byte-code "\302\303\304\305#\210\306\305\211\203, @\303N\203% \304N\204% \307\304\303N#\210 A\211\204 *\310\303\304\311#\207" [prop --dolist-tail-- defvaralias hi-lock-face-history hi-lock-face-defaults nil (saved-value saved-variable-comment) put make-obsolete-variable "23.1"] 6)
#@50 Default faces for hi-lock interactive functions.
(defvar hi-lock-face-defaults '("hi-yellow" "hi-pink" "hi-green" "hi-blue" "hi-black-b" "hi-blue-b" "hi-red-b" "hi-green-b" "hi-black-hb") (#$ . 4473))
(byte-code "\302\303\304\305#\210\306\305\211\203, @\303N\203% \304N\204% \307\304\303N#\210 A\211\204 *\310\303\304\311#\207" [prop --dolist-tail-- defvaralias hi-lock-regexp-history regexp-history nil (saved-value saved-variable-comment) put make-obsolete-variable "23.1"] 6)
#@60 Search target for finding hi-lock patterns at top of file.
(defvar hi-lock-file-patterns-prefix "Hi-lock" (#$ . 4968))
#@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 (#$ . 5094))
#@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 (#$ . 5450))
(byte-code "\300\301!\210\302\301\303\304#\210\300\305!\210\302\305\303\304#\207" [make-variable-buffer-local hi-lock-interactive-patterns put permanent-local t hi-lock-file-patterns] 4)
#@24 Menu for hi-lock mode.
(defvar hi-lock-menu (byte-code "\301\302!\303\304\305#\210\303\306\307#\210\303\310\311#\210\303\312\313#\210\303\314\315#\210\303\316\317#\210)\207" [map 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).") [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.")] 4) (#$ . 5878))
#@22 Key map for hi-lock.
(defvar hi-lock-map (byte-code "\301\302!\303\304\305#\210\303\306\307#\210\303\310\311#\210\303\312\313#\210\303\314\315#\210\303\316\317#\210)\207" [map make-sparse-keymap "Hi Lock" define-key "wi" hi-lock-find-patterns "wl" highlight-lines-matching-regexp "wp" highlight-phrase "wh" highlight-regexp "wr" unhighlight-regexp "wb" hi-lock-write-interactive-patterns] 4) (#$ . 7076))
#@93 Non-nil if Hi-Lock mode is enabled.
Use the command `hi-lock-mode' to change this variable.
(defvar hi-lock-mode nil (#$ . 7501))
(make-variable-buffer-local 'hi-lock-mode)
#@2604 Toggle selective highlighting of patterns (Hi Lock mode).
With a prefix argument ARG, enable Hi Lock mode if ARG is
positive, and disable it otherwise. If called from Lisp, enable
the mode if ARG is omitted or nil.
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.
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.
\[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'.
(defalias 'hi-lock-mode #[(&optional arg) "\306 \307=\203 \n?\202 \310 !\311V\312 \313\232\203: \203: \314\315!\204: \f\204: \316
\2036 \317\n!\210\202: \320\321!\210\n\203U \322*\323\324+B#\210\325 \210\326\327\330\331\316$\210\202\227 ,\204_ -\203\212 ,\203m \332\331,\"\210\331,-\203{ \332\331-\"\210\331-\333\331\211\334\316$\210.\203\212 \335 \210\322*\336\331#\210\337\327\330\316#\210\340\341\n\203\241 \342\202\242 \343\"\210\314\344!\203\303 \306 \203\266 \306 \232\203\303 \345\346\n\203\300 \347\202\301 \350\"\210)\351 \210\n\207" [#1=#:last-message arg hi-lock-mode load-in-progress hi-lock-archaic-interface-message-used hi-lock-archaic-interface-deduce current-message toggle prefix-numeric-value 0 buffer-name "*scratch*" called-interactively-p interactive t global-hi-lock-mode warn "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 font-lock-remove-keywords remove-overlays hi-lock-overlay font-lock-fontify-buffer [hi-lock] remove-hook run-hooks hi-lock-mode-hook hi-lock-mode-on-hook hi-lock-mode-off-hook any message "Hi-Lock mode %sabled" "en" "dis" force-mode-line-update menu-bar-edit-menu hi-lock-menu hi-lock-interactive-patterns hi-lock-file-patterns font-lock-fontified] 5 (#$ . 7682) (list (or current-prefix-arg 'toggle))])
(byte-code "\301\302\303\304\211%\207" [hi-lock-map add-minor-mode hi-lock-mode (:eval (if (or hi-lock-interactive-patterns hi-lock-file-patterns) " Hi" "")) nil] 6)
(defvar hi-lock-mode-major-mode nil)
(byte-code "\300\301!\210\302\303\304\305\306\307\310\311\312\313\314\315& \207" [make-variable-buffer-local hi-lock-mode-major-mode custom-declare-variable global-hi-lock-mode nil "Non-nil if Global-Hi-Lock mode is enabled.\nSee the command `global-hi-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-hi-lock-mode'." :set custom-set-minor-mode :initialize custom-initialize-default :group hi-lock :type boolean] 12)
#@333 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.
(defalias 'global-hi-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-hi-lock-mode buf --dolist-tail-- hi-lock-mode current-message toggle prefix-numeric-value 0 add-hook after-change-major-mode-hook global-hi-lock-mode-enable-in-buffers change-major-mode-after-body-hook find-file-hook global-hi-lock-mode-check-buffers change-major-mode-hook global-hi-lock-mode-cmhh remove-hook buffer-list nil 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" "en" "dis" force-mode-line-update] 4 (#$ . 12775) (list (or current-prefix-arg 'toggle))])
(byte-code "\301\302\303\304\300!\205\n \303\211%\207" [global-hi-lock-mode-map add-minor-mode global-hi-lock-mode nil boundp] 6)
(defvar global-hi-lock-mode-buffers nil)
(defalias 'global-hi-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-hi-lock-mode-buffers buf --dolist-tail-- hi-lock-mode-major-mode major-mode hi-lock-mode nil buffer-live-p -1 turn-on-hi-lock-if-enabled] 3])
(put 'global-hi-lock-mode-enable-in-buffers 'definition-name 'global-hi-lock-mode)
(defalias 'global-hi-lock-mode-check-buffers #[nil "\301 \210\302\303\304\305\"\207" [global-hi-lock-mode-buffers global-hi-lock-mode-enable-in-buffers nil 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 #[nil "\300\301p\"\210\302\303\304\"\207" [add-to-list 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 #[nil "\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)
#@395 Set face of all lines containing a match of REGEXP to FACE.
Interactively, prompt for REGEXP then FACE, using a buffer-local
history list for REGEXP and a global history list for FACE.
If Font Lock mode is enabled in the buffer, it is used to
highlight REGEXP. If Font Lock mode is disabled, overlays are
used for highlighting; in this case, the highlighting will not be
updated as you type.
(defalias 'hi-lock-line-face-buffer #[(regexp &optional face) "\303!\204 \304 \204 \301\305!\210\306\307\n\310Q\"\207" [face hi-lock-mode regexp facep hi-yellow 1 hi-lock-set-pattern "^.*\\(?:" "\\).*$"] 4 (#$ . 15660) (list (hi-lock-regexp-okay (read-regexp "Regexp to highlight line" (car regexp-history))) (hi-lock-read-face-name))])
(defalias 'highlight-regexp 'hi-lock-face-buffer)
#@377 Set face of each match of REGEXP to FACE.
Interactively, prompt for REGEXP then FACE, using a buffer-local
history list for REGEXP and a global history list for FACE.
If Font Lock mode is enabled in the buffer, it is used to
highlight REGEXP. If Font Lock mode is disabled, overlays are
used for highlighting; in this case, the highlighting will not be
updated as you type.
(defalias 'hi-lock-face-buffer #[(regexp &optional face) "\303!\204 \304 \204 \301\305!\210\306\n\"\207" [face hi-lock-mode regexp facep hi-yellow 1 hi-lock-set-pattern] 3 (#$ . 16453) (list (hi-lock-regexp-okay (read-regexp "Regexp to highlight" (car regexp-history))) (hi-lock-read-face-name))])
(defalias 'highlight-phrase 'hi-lock-face-phrase-buffer)
#@395 Set face of each match of phrase REGEXP to FACE.
If called interactively, replaces whitespace in REGEXP with
arbitrary whitespace and makes initial lower-case letters case-insensitive.
If Font Lock mode is enabled in the buffer, it is used to
highlight REGEXP. If Font Lock mode is disabled, overlays are
used for highlighting; in this case, the highlighting will not be
updated as you type.
(defalias 'hi-lock-face-phrase-buffer #[(regexp &optional face) "\303!\204 \304 \204 \301\305!\210\306\n\"\207" [face hi-lock-mode regexp facep hi-yellow 1 hi-lock-set-pattern] 3 (#$ . 17196) (list (hi-lock-regexp-okay (hi-lock-process-phrase (read-regexp "Phrase to highlight" (car regexp-history)))) (hi-lock-read-face-name))])
(defalias 'unhighlight-regexp 'hi-lock-unface-buffer)
#@172 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.
(defalias 'hi-lock-unface-buffer #[(regexp) "\304 \"\211\205# \305\306\nC\"\210\307\n \"\310\306\211\311\312!$\210 \205# \313 )\207" [regexp hi-lock-interactive-patterns keyword font-lock-fontified assoc font-lock-remove-keywords nil delq remove-overlays hi-lock-overlay-regexp hi-lock-string-serialize font-lock-fontify-buffer] 7 (#$ . 17986) (byte-code "\304 \203 <\203 \203 \305\306\215\207\307\310\n\"\n\204 \311\312!\210\313\314\n\315\316\n@@\303\317B&)C\207" [last-nonmenu-event use-dialog-box hi-lock-interactive-patterns history-list display-popup-menus-p snafu (byte-code "\301\302\303\304\305\306\"BB\"\206 \307\310\311\"\207" [hi-lock-interactive-patterns x-popup-menu t keymap "Select Pattern to Unhighlight" mapcar #[(pattern) "@\301\302@\303A@A@A@!#\304\211B@F\207" [pattern format "%s (%s)" symbol-name nil] 6] throw snafu ("")] 7) mapcar #[(p) "@\207" [p] 1] error "No highlighting to remove" completing-read "Regexp to unhighlight: " nil t 1] 8)])
#@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 #[nil "\204 \303\304!\210`\305\306\"\210\307 `\"\210)`\nV\205 \310\311!\207" [hi-lock-interactive-patterns beg hi-lock-file-patterns-range error "There are no interactive patterns" mapc #[(pattern) "\302\303\304 !#c\207" [hi-lock-file-patterns-prefix pattern format "%s: (%s)\n" prin1-to-string] 5] comment-region warn "Inserted keywords not close enough to top of file"] 3 (#$ . 19148) nil])
#@182 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.
(defalias 'hi-lock-process-phrase #[(phrase) "\302\303\304\305 #\303\306\307\302\310%\211)\207" [mod-phrase phrase nil replace-regexp-in-string "\\(^\\|\\s-\\)\\([a-z]\\)" #[(m) "\301\302\303\304\"\303\305\"\226\303\305\"$\207" [m format "%s[%s%s]" match-string 1 2] 7] "\\s-+" "[ \n]+" t] 6 (#$ . 19851)])
#@148 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.
(defalias 'hi-lock-regexp-okay #[(regexp) "\301\302\"\203 \303\304!\207\207" [regexp string-match "" error "Regexp cannot match an empty string"] 3 (#$ . 20354)])
#@61 Read face name from minibuffer with completion and history.
(defalias 'hi-lock-read-face-name #[nil "\303\304\305\306\307 @\310 @\311\312O \"\211;\203\" \n @\232\204\" \nG\202# \311)B\313 A&!\207" [obarray hi-lock-face-defaults prefix intern completing-read "Highlight using face: " facep t try-completion 0 1 face-name-history] 12 (#$ . 20673)])
#@34 Highlight REGEXP with face FACE.
(defalias 'hi-lock-set-pattern #[(regexp face) "\306\307 D\310ED\211 \235?\205\207 \n B\f\203$ \311\312\nC\310#\210\313 \202\207 \314! `\315\245Z `\315\245\\ e\306dZ]Z] d\306eZ]\\^ \212b\210\316\310#\205\205 \317\306\224\306\225\" \320\321\310#\210\320\322
#\210\320\301 #\210)\306\225b\210\202W .)\207" [regexp face pattern hi-lock-interactive-patterns font-lock-mode serial 0 quote t font-lock-add-keywords nil font-lock-fontify-buffer hi-lock-string-serialize 2 re-search-forward make-overlay overlay-put hi-lock-overlay hi-lock-overlay-regexp hi-lock-highlight-range range-min range-max search-start search-end overlay] 6 (#$ . 21029)])
#@57 Replace file patterns list with PATTERNS and refontify.
(defalias 'hi-lock-set-file-patterns #[(patterns) "\204 \205 \302\303\"\210 \304\303\305#\210\306 \207" [hi-lock-file-patterns patterns font-lock-remove-keywords nil font-lock-add-keywords t font-lock-fontify-buffer] 4 (#$ . 21742)])
#@46 Find patterns in current buffer for hi-lock.
(defalias 'hi-lock-find-patterns #[nil " >?\205x \306\307\n\310Q \212\214~\210eb\210\311 `
\\\312#\210\313 \210\311 `\314\\\312#\2038 \315\316!\2048 \306\317\320\217\210\202 *\f\205w \205w \321=\204h \322 !\203W \f!\202e \323=\203d \324\325!\202e \306\205w \326\f!\210\327\330!\205w \331\332\fG\"*\207" [major-mode hi-lock-exclude-modes hi-lock-file-patterns-prefix target-regexp all-patterns hi-lock-file-patterns-range nil "\\<" ":" re-search-forward t beginning-of-line 100 looking-at "\\s-*end" (byte-code "\301\302p!\"\301\207" [all-patterns append read] 3) ((error (byte-code "\300\301\302 \"\207" [message "Invalid pattern list expression at %d" line-number-at-pos] 3))) 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 message "Hi-lock added %d patterns." hi-lock-mode this-command hi-lock-file-patterns-policy] 4 (#$ . 22045) nil])
#@38 Add hi-lock patterns to font-lock's.
(defalias 'hi-lock-font-lock-hook #[nil "\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 (#$ . 23053)])
#@54 Hash table used to assign unique numbers to strings.
(defvar hi-lock-string-serialize-hash (make-hash-table :test 'equal) (#$ . 23302))
#@178 Number assigned to last new string in call to `hi-lock-string-serialize'.
A string is considered new if it had not previously been used in a call to
`hi-lock-string-serialize'.
(defvar hi-lock-string-serialize-serial 1 (#$ . 23445))
#@41 Return unique serial number for STRING.
(defalias 'hi-lock-string-serialize #[(string) "\304 \"\211\203
\n\202 \305 T\211 #\210 )\207" [string hi-lock-string-serialize-hash val hi-lock-string-serialize-serial gethash puthash] 5 (#$ . 23684) nil])
#@29 Unload the Hi-Lock library.
(defalias 'hi-lock-unload-function #[nil "\300\301!\210\302\207" [global-hi-lock-mode -1 nil] 2 (#$ . 23943)])
(provide 'hi-lock)