;ELC ;;; Compiled by buildd@akateko.buildd on Fri Oct 25 13:51:24 2013 ;;; from file /build/buildd/emacs23-23.4+1/debian/build-x/lisp/hi-lock.el ;;; in Emacs version 23.4.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&\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 '(#$ . 794) :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 '(#$ . 1149) :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) '(#$ . 1633) :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 ''ask '(#$ . 1916) :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 (#$ . 4098)) #@63 Patterns provided to hi-lock by user. Should not be changed. (defvar hi-lock-interactive-patterns nil (#$ . 4211)) #@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") (#$ . 4333)) (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#\210\302\312\313\305#\210\306\305\211\203_ @\312N\203X\313N\204X\307\313\312N#\210 A\211\204A*\310\312\313\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" hi-lock-regexp-history regexp-history] 6) #@60 Search target for finding hi-lock patterns at top of file. (defvar hi-lock-file-patterns-prefix "Hi-lock" (#$ . 4994)) #@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 (#$ . 5120)) #@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 (#$ . 5476)) (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 (make-sparse-keymap "Hi Lock") (#$ . 5904)) (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") (#$ . 7097)) (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 (#$ . 7516)) (make-variable-buffer-local 'hi-lock-mode) #@2237 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  \307=\203\n?\202( \203\310 !\311V\202(\n\204\"\312\202(\313\314\302\"\210\315\316 \317\232\203O \203O\320\321!\204O\f\204O\312 \203K\322\n!\210\202O\323\324!\210\n\203s\204\\\325\326!\210\327-\330\331.B#\210\332 \210\333\334\335\315\312$\210\202\265/\204}0\203\250/\203\213\336\315/\"\210\315/0\203\231\336\3150\"\210\3150\337\315\211\340\312$\2101\203\250\341 \210\327-\342\315#\210\343\334\335\312#\210\344\345\n\203\277\346\202\300\347\"\210\320\350!\203\341\306 \203\324\306 \232\203\341\313\351\n\203\336\352\202\337\353\"\210)\354 \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 t message "Toggling %s off; better pass an explicit argument." nil buffer-name "*scratch*" called-interactively-p interactive 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" font-lock-mode 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 any "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 (#$ . 7697) (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 '(#$ . 12118) :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) "\306  \307=\203\n?\202( \203\310 !\311V\202(\n\204\"\312\202(\313\314\302\"\210\315\211\203?\316\317\320\"\210\316\321\322\"\210\316\323\324\"\210\202N\325\317\320\"\210\325\321\322\"\210\325\323\324\"\210\326 \315\211\203x\f@r q\210\n\203h\327 \210\202p \203p\305\330!\210)\fA\211\204W*\331\332\n\203\203\333\202\204\334\"\210\335\336!\203\251\337\302!\210\306 \203\234\306 \232\203\251\313\340\n\203\246\341\202\247\342\"\210)\343 \210\n\207" [#1=#:last-message arg global-hi-lock-mode buf --dolist-tail-- hi-lock-mode current-message 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 any customize-mark-as-set "Global-Hi-Lock mode %sabled" "en" "dis" force-mode-line-update] 4 (#$ . 12566) (list (or current-prefix-arg 'toggle))]) (byte-code "\302\303\304\305\300!\205\n#\210\306 B\307\306!\204\310\306\304\"\210\304\207" [global-hi-lock-mode-map current-load-list add-minor-mode global-hi-lock-mode nil boundp global-hi-lock-mode-buffers default-boundp set-default] 5) (defalias 'global-hi-lock-mode-enable-in-buffers #[nil "\306\211\2059\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 --dolist-tail-- 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) #@379 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 \[previous-history-element] to retrieve previous history items, and \[next-history-element] to retrieve default values. (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 (#$ . 15501) (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) #@361 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 \[previous-history-element] to retrieve previous history items, and \[next-history-element] to retrieve default values. (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 (#$ . 16278) (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) #@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 (#$ . 17005) (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) #@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 (#$ . 17560) (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 (#$ . 18946) 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 (#$ . 19649)]) #@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 (#$ . 20085)]) #@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 (#$ . 20404)]) #@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-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 (#$ . 20760)]) #@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 (#$ . 21478)]) #@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 (#$ . 21781) 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 (#$ . 22789)]) #@54 Hash table used to assign unique numbers to strings. (defvar hi-lock-string-serialize-hash (make-hash-table :test 'equal) (#$ . 23038)) #@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 (#$ . 23181)) #@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 (#$ . 23420) 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 (#$ . 23679)]) (provide 'hi-lock)