;ELC ;;; Compiled by cyd@localhost on Mon Apr 23 22:20:51 2007 ;;; from file /home/cyd/emacs/lisp/hi-lock.el ;;; in Emacs version 22.0.99 ;;; with all optimizations. ;;; This file uses dynamic docstrings, first added in Emacs 19.29. (if (and (boundp 'emacs-version) (< (aref emacs-version (1- (length emacs-version))) ?A) (or (and (boundp 'epoch::version) epoch::version) (string-lessp emacs-version "19.29"))) (error "`hi-lock.el' was compiled for Emacs 19.29 or later")) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (byte-code "\300\301!\210\302\303\304\305\306\307\310\301&\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] 8) #@244 Limit of search in a buffer for hi-lock patterns. When a file is visited and hi-lock mode is on, patterns starting up to this limit are added to font-lock's patterns. See documentation of functions `hi-lock-mode' and `hi-lock-find-patterns'. (custom-declare-variable 'hi-lock-file-patterns-range '10000 '(#$ . 818) :type 'integer :group 'hi-lock) #@375 Size of area highlighted by hi-lock when font-lock not active. Font-lock is not active in buffers that do their own highlighting, such as the buffer created by `list-colors-display'. In those buffers hi-lock patterns will only be applied over a range of `hi-lock-highlight-range' characters. If font-lock is active then highlighting will be applied throughout the buffer. (custom-declare-variable 'hi-lock-highlight-range '200000 '(#$ . 1173) :type 'integer :group 'hi-lock) #@126 List of major modes in which hi-lock will not run. For security reasons since font lock patterns can specify function calls. (custom-declare-variable 'hi-lock-exclude-modes ''(rmail-mode mime/viewer-mode gnus-article-mode) '(#$ . 1657) :type '(repeat symbol) :group 'hi-lock) #@281 Specify when hi-lock should use patterns found in file. If `ask', prompt when patterns found in buffer; if bound to a function, use patterns when function returns t (function is called with patterns as first argument); if nil or `never' or anything else, don't use file patterns. (custom-declare-variable 'hi-lock-file-patterns-policy ''never '(#$ . 1940) :type '(choice (const :tag "Do not use file patterns" never) (const :tag "Ask about file patterns" ask) (function :tag "Function to check file patterns")) :group 'hi-lock :version "22.1") (byte-code "\300\301\302\303#\210\304\305\306\307\310\311\310\312&\210\313\314\315\316\310\305%\210\313\317\320\321\310\305%\210\313\322\323\321\310\305%\210\313\324\325\321\310\305%\210\313\326\327\321\310\305%\210\313\330\331\321\310\305%\210\313\332\333\321\310\305%\210\313\334\335\321\310\305%\210\313\336\337\321\310\305%\207" [put hi-lock-file-patterns-policy risky-local-variable t custom-declare-group hi-lock-faces nil "Faces for hi-lock." :group 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)))] 8) #@61 Patterns found in file for hi-lock. Should not be changed. (defvar hi-lock-file-patterns nil (#$ . 4124)) #@63 Patterns provided to hi-lock by user. Should not be changed. (defvar hi-lock-interactive-patterns nil (#$ . 4237)) #@58 History list of faces for hi-lock interactive functions. (defvar hi-lock-face-history (list "hi-yellow" "hi-pink" "hi-green" "hi-blue" "hi-black-b" "hi-blue-b" "hi-red-b" "hi-green-b" "hi-black-hb") (#$ . 4359)) #@56 History of regexps used for interactive fontification. (defvar hi-lock-regexp-history nil (#$ . 4577)) #@60 Search target for finding hi-lock patterns at top of file. (defvar hi-lock-file-patterns-prefix "Hi-lock" (#$ . 4686)) #@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 (#$ . 4812)) #@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 (#$ . 5168)) (byte-code "\300\301!\210\302\301\303\304#\210\300\305!\210\302\305\303\304#\210\300\306!\210\302\306\303\304#\207" [make-variable-buffer-local hi-lock-interactive-patterns put permanent-local t hi-lock-regexp-history hi-lock-file-patterns] 4) #@24 Menu for hi-lock mode. (defvar hi-lock-menu (make-sparse-keymap "Hi Lock") (#$ . 5653)) (byte-code "\301\302\303#\210\301\304\305#\210\301\306\307#\210\301\310\311#\210\301\312\313#\210\301\314\315#\207" [hi-lock-menu 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) #@22 Key map for hi-lock. (defvar hi-lock-map (make-sparse-keymap "Hi Lock") (#$ . 6847)) (byte-code "\301\302\303#\210\301\304\305#\210\301\306\307#\210\301\310\311#\210\301\312\313#\210\301\314\315#\207" [hi-lock-map 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) #@93 Non-nil if Hi-Lock mode is enabled. Use the command `hi-lock-mode' to change this variable. (defvar hi-lock-mode nil (#$ . 7266)) (make-variable-buffer-local 'hi-lock-mode) #@2236 Toggle minor mode for interactively adding font-lock highlighting patterns. If ARG positive, turn hi-lock on. Issuing a hi-lock command will also turn hi-lock on. To turn hi-lock on in all buffers use `global-hi-lock-mode' or in your .emacs file (global-hi-lock-mode 1). When hi-lock is turned on, 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. These are added to the font lock keywords already present. 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=\203 ?\202%\203\307!\310V\202% \204\311\202%\312\313\301\"\210\314\315 \316\232\203J\n\203Jt\204J \204J\311\f\203F\317 !\210\202J\320\321!\210 \203m \204V\305\322!\210\323)\324\325*B#\210\326 \210\327\330\331\314\311$\210\202\257+\204w,\203\242+\203\205\332\314+\"\210\314+,\203\223\332\314,\"\210\314,\333\314\211\334\311$\210-\203\242\335 \210\323)\336\314#\210\337\330\331\311#\210\340\341 \203\271\342\202\272\343\"\210\344 \203\316\312\345 \203\313\346\202\314\347\"\210\350 \210 \207" [arg hi-lock-mode load-in-progress hi-lock-archaic-interface-message-used hi-lock-archaic-interface-deduce font-lock-mode toggle prefix-numeric-value 0 t message "Toggling %s off; better pass an explicit argument." nil buffer-name "*scratch*" 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 .emacs file:\n\n (if (functionp 'global-hi-lock-mode)\n (global-hi-lock-mode 1)\n (hi-lock-mode 1))\n" 1 define-key-after [hi-lock] "Regexp Highlighting" hi-lock-find-patterns add-hook font-lock-mode-hook hi-lock-font-lock-hook 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 called-interactively-p "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 (#$ . 7447) (list (or current-prefix-arg 'toggle))]) (byte-code "\302\303\304#\210\305 B\306\305!\204\307\305\310\"\210\311\305!\207" [hi-lock-map current-load-list add-minor-mode hi-lock-mode (:eval (if (or hi-lock-interactive-patterns hi-lock-file-patterns) " Hi" "")) hi-lock-mode-major-mode default-boundp set-default nil make-variable-buffer-local] 4) #@278 Non-nil if Global-Hi-Lock mode is enabled. See the command `global-hi-lock-mode' for a description of this minor-mode. Setting this variable directly does not take effect; either customize it (see the info node `Easy Customization') or call the function `global-hi-lock-mode'. (custom-declare-variable 'global-hi-lock-mode 'nil '(#$ . 11756) :set 'custom-set-minor-mode :initialize 'custom-initialize-default :group 'hi-lock :type 'boolean) #@268 Toggle Hi-Lock mode in every possible buffer. With prefix ARG, turn Global-Hi-Lock mode on if and only if ARG is positive. 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) "\305=\203 ?\202%\203\306!\307V\202% \204\310\202%\311\312\301\"\210\313\211\203<\314\315\316\"\210\314\317\320\"\210\314\321\322\"\210\202K\323\315\316\"\210\323\317\320\"\210\323\321\322\"\210\324 \313\211\203u @r\nq\210 \203e\325 \210\202m\f\203m\304\326!\210) A\211\204T*\327\330 \203\200\331\202\201\332\"\210\333 \203\231\334\301!\210\311\335 \203\226\336\202\227\337\"\210\340 \210 \207" [arg global-hi-lock-mode buf #1=#:--cl-dolist-temp-- hi-lock-mode toggle prefix-numeric-value 0 t message "Toggling %s off; better pass an explicit argument." nil 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 customize-mark-as-set "Global-Hi-Lock mode %sabled" "en" "dis" force-mode-line-update] 4 (#$ . 12204) (list (or current-prefix-arg 'toggle))]) (byte-code "\301\302\303\304\305!\205 \305J#\210\306B\307\306!\204\310\306\303\"\210\303\207" [current-load-list add-minor-mode global-hi-lock-mode nil boundp global-hi-lock-mode-map global-hi-lock-mode-buffers default-boundp set-default] 5) (defalias 'global-hi-lock-mode-enable-in-buffers #[nil "\306\211\2038\n@\307 !\2031r q\210 \203+\f =\2040\303\310!\210\311 \210 \2020\311 \210 )\nA\211\204*\306\207" [global-hi-lock-mode-buffers buf #1=#:--cl-dolist-temp-- hi-lock-mode hi-lock-mode-major-mode major-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) #@358 Set face of all lines containing a match of REGEXP to FACE. Interactively, prompt for REGEXP then FACE. Buffer-local history list maintained for regexps, global history maintained for faces. \Use \[next-history-element] and \[previous-history-element] to retrieve next or previous history item. (See info node `Minibuffer History'.) (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 (#$ . 15069) (list (hi-lock-regexp-okay (read-from-minibuffer "Regexp to highlight line: " (cons (or (car hi-lock-regexp-history) "") 1) nil nil 'hi-lock-regexp-history)) (hi-lock-read-face-name))]) (defalias 'highlight-regexp 'hi-lock-face-buffer) #@340 Set face of each match of REGEXP to FACE. Interactively, prompt for REGEXP then FACE. Buffer-local history list maintained for regexps, global history maintained for faces. \Use \[next-history-element] and \[previous-history-element] to retrieve next or previous history item. (See info node `Minibuffer History'.) (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 (#$ . 15893) (list (hi-lock-regexp-okay (read-from-minibuffer "Regexp to highlight: " (cons (or (car hi-lock-regexp-history) "") 1) nil nil 'hi-lock-regexp-history)) (hi-lock-read-face-name))]) (defalias 'highlight-phrase 'hi-lock-face-phrase-buffer) #@160 Set face of each match of phrase REGEXP to FACE. Whitespace in REGEXP converted to arbitrary whitespace and initial lower-case letters made case insensitive. (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 (#$ . 16667) (list (hi-lock-regexp-okay (hi-lock-process-phrase (read-from-minibuffer "Phrase to highlight: " (cons (or (car hi-lock-regexp-history) "") 1) nil nil 'hi-lock-regexp-history))) (hi-lock-read-face-name))]) (defalias 'unhighlight-regexp 'hi-lock-unface-buffer) #@396 Remove highlighting of each match to REGEXP set by hi-lock. Interactively, prompt for REGEXP. Buffer-local history of inserted regexp's maintained. Will accept only regexps inserted by hi-lock interactive functions. (See `hi-lock-interactive-patterns'.) \Use \[minibuffer-complete] to complete a partially typed regexp. (See info node `Minibuffer History'.) (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 (#$ . 17290) (byte-code "\302 \203\303\304 !\203\305\306\215\207\307\310\"\204\311\312!\210\313\314\315\316@@\301\317B&)C\207" [hi-lock-interactive-patterns history-list display-popup-menus-p vectorp this-command-keys 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" mapcar #[(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 (#$ . 18665) 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 "\\<[a-z]" #[(m) "\301\302\226#\207" [m format "[%s%s]"] 4] "\\s-+" "[ \n]+" t] 6 (#$ . 19370)]) #@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 (#$ . 19806)]) #@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\313\314 \"\"\211;\203%\n @\232\204%\nG\202&\311)B\315&!\207" [obarray hi-lock-face-history prefix intern completing-read "Highlight using face: " facep t try-completion 0 1 mapcar #[(f) "\211B\207" [f] 2] (hi-lock-face-history . 0)] 13 (#$ . 20125)]) #@34 Highlight REGEXP with face FACE. (defalias 'hi-lock-set-pattern #[(regexp face) "\306\307 D\310ED\211 \235?\205\207\311\312\nC\310#\210\n B\f\203$\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-fontified 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 (#$ . 20528)]) #@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 (#$ . 21246)]) #@46 Find patterns in current buffer for hi-lock. (defalias 'hi-lock-find-patterns #[nil " >?\205v\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\205u\205u\321=\204h\322!\203W\f!\202e\323=\203d\324\325!\202e\306\205u\326\f!\210t\205u\327\330\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 message "Hi-lock added %d patterns." hi-lock-mode this-command hi-lock-file-patterns-policy] 4 (#$ . 21549) nil]) #@38 Add hi-lock patterns to font-lock's. (defalias 'hi-lock-font-lock-hook #[nil "\203\303\304 \305#\210\303\304\n\305#\207\306\307!\207" [font-lock-mode hi-lock-file-patterns hi-lock-interactive-patterns font-lock-add-keywords nil t hi-lock-mode -1] 4 (#$ . 22514)]) #@54 Hash table used to assign unique numbers to strings. (defvar hi-lock-string-serialize-hash (make-hash-table :test 'equal) (#$ . 22787)) #@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 (#$ . 22930)) #@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 (#$ . 23169) nil]) (provide 'hi-lock)