;ELC
;;; Compiled
;;; in Emacs version 28.2
;;; with all optimizations.



(byte-code "\300\301\302\303\304\305\306\307&\210\310\311\312\313\314DD\315\316\317\306\301&\210\310\320\312\313\321DD\322\316\317\306\301&\210\310\323\312\313\324DD\325\316\326\306\301&\210\310\327\312\313\330DD\331\316\332\306\301\333\334&	\210\335\327\336\337#\210\310\340\312\313\341DD\342\316\343\333\344&\210\300\345\302\346\306\301\306\347&\210\350\351\352\353\306\345%\210\350\354\355\356\306\345%\210\350\357\360\356\306\345%\210\350\361\362\356\306\345%\210\350\363\364\356\306\345\333\365&\210\350\366\367\356\306\345\333\365&\210\350\370\371\356\306\345%\210\350\372\373\356\306\345%\210\350\374\375\356\306\345%\210\350\376\377\356\306\345%\210\350\201@\201A\356\306\345%\207" [custom-declare-group hi-lock nil "Interactively add and remove font-lock patterns for highlighting text." :link (custom-manual "(emacs)Highlight Interactively") :group font-lock custom-declare-variable hi-lock-file-patterns-range funcall function #[0 "\300\207" [10000] 1 #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" [2000000] 1 #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 term-mode)] 1 #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 #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 #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 (#$ . 4494))
(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 (#$ . 4731))
(byte-code "\300\301!\210\302\301\303\304#\207" [make-variable-buffer-local hi-lock-interactive-patterns put permanent-local t] 4)
#@61 Human-readable lighters for `hi-lock-interactive-patterns'.
(defvar hi-lock-interactive-lighters nil (#$ . 4984))
(byte-code "\300\301!\210\302\301\303\304#\207" [make-variable-buffer-local hi-lock-interactive-lighters put permanent-local t] 4)
#@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") (#$ . 5235))
#@65 String used to identify hi-lock patterns at the start of files.
(defvar hi-lock-file-patterns-prefix "Hi-lock" (#$ . 5470))
#@289 Non-nil 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 (#$ . 5601))
#@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 (#$ . 5960))
#@24 Menu for hi-lock mode.
(defvar hi-lock-menu nil (#$ . 6201))
(easy-menu-do-define 'hi-lock-menu nil "Menu for hi-lock mode." '("Hi Lock" ["Highlight Regexp..." highlight-regexp :help "Highlight text matching PATTERN (a regexp)."] ["Highlight Phrase..." highlight-phrase :help "Highlight text matching PATTERN (a regexp processed to match phrases)."] ["Highlight Lines..." highlight-lines-matching-regexp :help "Highlight lines containing match of PATTERN (a regexp)."] ["Highlight Symbol at Point" highlight-symbol-at-point :help "Highlight symbol found near point without prompting."] ["Remove Highlighting..." unhighlight-regexp :help "Remove previously entered highlighting pattern." :enable hi-lock-interactive-patterns] ["Patterns to Buffer" hi-lock-write-interactive-patterns :help "Insert interactively added REGEXPs into buffer at point." :enable hi-lock-interactive-patterns] ["Patterns from Buffer" hi-lock-find-patterns :help "Use patterns (if any) near top of buffer."]))
#@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\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) (#$ . 7191))
#@93 Non-nil if Hi-Lock mode is enabled.
Use the command `hi-lock-mode' to change this variable.
(defvar hi-lock-mode nil (#$ . 7659))
(make-variable-buffer-local 'hi-lock-mode)
#@3330 Toggle selective highlighting of patterns (Hi Lock mode).

This is a minor mode.  If called interactively, toggle the `Hi-Lock
mode' mode.  If the prefix argument is positive, enable the mode, and
if it is zero or negative, disable the mode.

If called from Lisp, toggle the mode if ARG is `toggle'.  Enable the
mode if ARG is nil, omitted, or is a positive number.  Disable the
mode if ARG is a negative number.

To check whether the minor mode is enabled in the current buffer,
evaluate `hi-lock-mode'.

The mode's hook is called both when the mode is enabled and when it is
disabled.

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
\247\203
\310W\203\311\202\312\313\301!\2031\314\300	\"\2031\300	B\315 \316\232\203X\n\203X\317\320!\204X\204X\312\f\203S\321!\210\202X\322\323\324\"\210\203y\325
\326\327/B#\210\330 \210\331\332\333\311\312$\210\331\334\335\311\312$\210\202\2700\204\2031\203\2540\203\224\336\3110\"\210\311\211021\203\242\336\3111\"\210\3111\337\311\211\340\312$\210\341 \210\325
\342\311#\210\343\332\333\312#\210\344\345\203\302\346\202\303\347\"\210\317\350!\203\345\306 \203\327\211\306 \232\203\345\351\352\203\341\353\202\342\354\355#\210\210\356 \210\207" [hi-lock-mode local-minor-modes load-in-progress hi-lock-archaic-interface-message-used hi-lock-archaic-interface-deduce menu-bar-edit-menu current-message toggle 1 nil t boundp delq buffer-name "*scratch*" called-interactively-p interactive 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." define-key-after [hi-lock] "Regexp Highlighting" hi-lock-find-patterns add-hook font-lock-mode-hook hi-lock-font-lock-hook 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 message "Hi-Lock mode %sabled%s" "en" "dis" " in current buffer" force-mode-line-update hi-lock-menu hi-lock-interactive-patterns hi-lock-file-patterns hi-lock-interactive-lighters] 8 (#$ . 7840) (byte-code "\203\n\301!\202\302C\207" [current-prefix-arg prefix-numeric-value toggle] 2)])
(defvar hi-lock-mode-hook nil)
(byte-code "\301\302N\204\f\303\301\302\304#\210\303\301\305\306#\210\303\301\307\310C#\210\311\312\313\310\211%\210\303\314\315\316#\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.)" custom-type hook standard-value nil add-minor-mode hi-lock-mode (:eval (if (or hi-lock-interactive-patterns hi-lock-file-patterns) " Hi" "")) global-hi-lock-mode globalized-minor-mode t] 6)
(defvar hi-lock-mode-major-mode nil 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 :type boolean :group hi-lock] 12)
#@459 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, toggle the mode if ARG is `toggle'.
Enable the mode if ARG is nil, omitted, or is a positive number.
Disable the mode if ARG is a negative number.

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 "\303 \304\301\305=\203\306\301!?\202!\247\203 \307W\203 \310\202!\311\"\210\312\300!\2038\313\301\"\306\301!\2038\301B	\203N\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 \211\203\203\211@r\211q\210	\203s\325 \210\202{\n\203{\302\326!\210)
A\266\202\202_\210\327\330\306\301!\203\220\331\202\221\332\"\210\333\334!\203\271\335\301!\210\303 \203\251\211\303 \232\203\271\336\337\306\301!\203\265\340\202\266\341\342#\210\210\343 \210\306\301!\207" [global-minor-modes global-hi-lock-mode hi-lock-mode current-message set-default toggle default-value 1 nil t boundp delq 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] 6 (#$ . 14169) (byte-code "\203\n\301!\202\302C\207" [current-prefix-arg prefix-numeric-value toggle] 2)])
(defvar global-hi-lock-mode-hook nil)
(byte-code "\301\302N\204\f\303\301\302\304#\210\303\301\305\306#\210\303\301\307\310C#\210\311\312\310\313\300!\205#\310\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.)" custom-type hook standard-value nil add-minor-mode global-hi-lock-mode 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
!\2032r\211q\210	\204/\n=\204/\f\203,\304\307!\210\310 \210\202/\310 \210)
A\266\202\202\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
\266\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)
#@628 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.

If REGEXP contains upper case characters (excluding those preceded by `\')
and `search-upper-case' is non-nil, the matching is case-sensitive.

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 "\303
!\204	\304\262
\204\300\305!\210\306\307\310Q\311\211	\203)\n\203)\312\313\"\202*	%\207" [hi-lock-mode case-fold-search search-upper-case facep hi-yellow 1 hi-lock-set-pattern "^.*\\(?:" "\\).*\\(?:$\\)\n?" nil isearch-no-upper-case-p t] 10 (#$ . 18010) (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)
#@1002 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.

LIGHTER is a human-readable string that can be used to select
a regexp to unhighlight by its name instead of selecting a possibly
complex regexp or closure.

If REGEXP contains upper case characters (excluding those preceded by `\')
and `search-upper-case' is non-nil, the matching is case-sensitive.

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 LIGHTER)
(defalias 'hi-lock-face-buffer #[1025 ";\203\n\304!\262\305!\204\306\262\204\300\307!\210\310	\2030\n\2030\311	\312\"\2021	&\207" [hi-lock-mode case-fold-search search-upper-case search-spaces-regexp intern facep hi-yellow 1 hi-lock-set-pattern isearch-no-upper-case-p t] 12 (#$ . 19160) (byte-code "\301\302\303\304 \203\305 \306 {\307 \210\202\310\"!\311 E\207" [current-prefix-arg hi-lock-regexp-okay read-regexp "Regexp to highlight" use-region-p region-beginning region-end deactivate-mark regexp-history-last hi-lock-read-face-name] 5)])
(defalias 'highlight-phrase 'hi-lock-face-phrase-buffer)
#@753 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.

If REGEXP contains upper case characters (excluding those preceded by `\')
and `search-upper-case' is non-nil, the matching is case-sensitive.
Also set `search-spaces-regexp' to the value of `search-whitespace-regexp'.

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 "\304
!\204	\305\262
\204\300\306!\210\307\310\211	\203&\n\203&\311\312\"\202'	&\207" [hi-lock-mode case-fold-search search-upper-case search-whitespace-regexp facep hi-yellow 1 hi-lock-set-pattern nil isearch-no-upper-case-p t] 10 (#$ . 20795) (byte-code "\300\301\302\303\"!\304 D\207" [hi-lock-regexp-okay read-regexp "Phrase to highlight" regexp-history-last hi-lock-read-face-name] 4)])
(defalias 'highlight-symbol-at-point 'hi-lock-face-symbol-at-point)
#@686 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.

If REGEXP contains upper case characters (excluding those preceded by `\')
and `search-upper-case' is non-nil, the matching is case-sensitive.

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 "\304\305 !\306\307 \310
!\204\311\262
	\204\301\312!\210\313\314\211\n\203.\203.\315\306\"\202/\n%)\207" [hi-lock-auto-select-face hi-lock-mode case-fold-search search-upper-case hi-lock-regexp-okay find-tag-default-as-symbol-regexp t hi-lock-read-face-name facep hi-yellow 1 hi-lock-set-pattern nil isearch-no-upper-case-p] 10 (#$ . 22071) nil])
#@16 

(fn KEYWORD)
(defalias 'hi-lock-keyword->face #[257 "\211A@A@A@\207" [] 2 (#$ . 23167)])
(defalias 'hi-lock--regexps-at-point #[0 "\302\303`\304\"\211\203
\211C\262\210\305`\306\"o?\205\305`S\306\"\307!\203&
\202(
C\307!\2032
\2024
C\310\311\"\312\313\314\"\"\312\313\315\"\"\211\203W
\203W\211=\204W\302\262

\204_\211\203\251\316
\203o\317`\306\"\206pe\202p`\203\320`\306\"\206\200d\202\200`\"\211\203\247\211@\321
	\"@\206\222\211@\322
\"\203\237\211\fB\262\f\210
A\266\202\202\202\266\266\207" [hi-lock-interactive-patterns hi-lock-interactive-lighters nil get-char-property hi-lock-overlay-regexp get-text-property face proper-list-p mapcar hi-lock-keyword->face seq-some make-closure #[257 "\211\300>@\207" [V0] 3 "\n\n(fn FACE)"] #[257 "\211\300>@\207" [V0] 3 "\n\n(fn FACE)"] buffer-substring-no-properties previous-single-property-change next-single-property-change rassq string-match] 15])
#@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 (#$ . 24114))
(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 "\304
\"\203\304
\"A@\262
\211\305=\203	\202\304
	\"C\211\205u\211@\211\203n\306
!\2119\203D\307
!\211\n\235\203?\n\266\202E\211\nB\210\210\203O\310\311C\"\210\312
	\"\313\311\211\314\315\"@\206d\316@!$\210\317
\"\320 \210
A\266\202\202\207" [hi-lock-interactive-lighters hi-lock-interactive-patterns hi-lock--unused-faces font-lock-fontified assoc t hi-lock-keyword->face face-name font-lock-remove-keywords nil delq remove-overlays hi-lock-overlay-regexp rassq hi-lock--hashcons rassq-delete-all font-lock-flush] 10 (#$ . 24454) (byte-code "\203\304C\207\305 \203-	<\203-\n\203-\3062S\307\304\310\311\312\313\"BB\"\206+\314\306\315\"0\207\2045\316\317!\210\320 \206>\312\321\"\322\323\324@\"\312\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 "\301
\"@\206\n\211@\211\302\303\304!#\305CF\207" [hi-lock-interactive-lighters rassq format "%s (%s)" hi-lock-keyword->face nil] 8 "\n\n(fn PATTERN)"] throw ("") user-error "No highlighting to remove" hi-lock--regexps-at-point #[257 "\301
\"@\206\n\211@\207" [hi-lock-interactive-lighters rassq] 4 "\n\n(fn PATTERN)"] completing-read format-prompt "Regexp to unhighlight" #[257 "\301
\"@\206\n\211@
AB\207" [hi-lock-interactive-lighters rassq] 4 "\n\n(fn PATTERN)"] 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 user-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 (#$ . 26238) nil])
#@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 (#$ . 26943)])
#@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-prompt "Highlight using face" facep t face-name-history remove intern] 11 (#$ . 27312)])
#@363 Highlight SUBEXP of REGEXP with face FACE.
If omitted or nil, SUBEXP defaults to zero, i.e. the entire
REGEXP is highlighted.  LIGHTER is a human-readable string to
display instead of a regexp.  Non-nil CASE-FOLD ignores case.
SPACES-REGEXP is a regexp to substitute spaces in font-lock search.

(fn REGEXP FACE &optional SUBEXP LIGHTER CASE-FOLD SPACES-REGEXP)
(defalias 'hi-lock-set-pattern #[1538 "C\211\306\242!\240\210\206\307\262\310\311$\312D\313ED\314\315\242\"\2044\315\206/\242	\"\203F\316!\211\n\235\203@\n\207\211\nB\211\207
B\206P\242B	B\203i\317\f!\203i\320\321C\314#\210\322 \207`
\323\245Z`
\323\245\\e\307dZ]Z]d\307eZ]\\^\212
b\210\324\242\314#\203\315\203\243\321\262\325\224\f\225\"\326
\327\314#\210\326
\330
\206\274\n\242#\210\326
\331#\266\307\225b\210\202\222\203\354\316\f!\211\n\235\203\341\n\266\202\346\211\nB\210A	A)
eV\204\371\211dW\205\376\332\333#*\207" [hi-lock-interactive-patterns hi-lock-interactive-lighters hi-lock--unused-faces font-lock-mode major-mode hi-lock-highlight-range hi-lock--hashcons 0 make-closure #[257 "\301\302\305\300\242\306#*\207" [V0 V1 V2 search-spaces-regexp case-fold-search re-search-forward t] 5 "\n\n(fn LIMIT)"] 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 message "Hi-lock added only in range %d-%d" case-fold-search search-spaces-regexp] 18 (#$ . 28044)])
#@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 (#$ . 29597)])
#@71 Add patterns from the current buffer to the list of hi-lock patterns.
(defalias 'hi-lock-find-patterns #[0 "	>?\205\211\306\307\n\310Q\212\214~\210eb\210\311
`\\\312#\210\313 \210\311
`\314\\\312#\203J\315\316!\204J\3171@\320\321p!\"\211\2620\210\202\210\322\323\324 \"\210\202*
\205\207\f\205\207
\325=\204x\326!\203g!\202u\327=\203t\330\331!\202u\306\205\207\332!\210\333\334!\205\207\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 line %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 (#$ . 29896) 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 (#$ . 30861)])
#@39 Hash table used to hash cons regexps.
(defvar hi-lock--hashcons-hash (make-hash-table :test 'equal :weakness t) (#$ . 31108))
#@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 (#$ . 31240)])
#@29 Unload the Hi-Lock library.
(defalias 'hi-lock-unload-function #[0 "\300\301!\210\302\207" [global-hi-lock-mode -1 nil] 2 (#$ . 31423)])
(provide 'hi-lock)