;ELC ;;; Compiled by proclus@darwintel on Wed Jan 2 15:45:52 2008 ;;; from file /mnt/gmirror/ports/deskutils/howm/work/howm-1.3.4/cheat-font-lock.el ;;; in Emacs version 21.2.1 ;;; with bytecomp version 1.1.1.4 ;;; 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 "`cheat-font-lock.el' was compiled for Emacs 19.29 or later")) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (require 'font-lock) (defalias 'cheat-font-lock-20040624-format-p #[nil "\300 \210\301\302!G\303Y\207" [font-lock-set-defaults font-lock-compile-keywords (("dummy" quote dummy)) 3] 2]) (defalias 'cheat-font-lock-compiled-p #[(keywords) "\242\301=\207" [keywords t] 2]) (byte-code "\300 \203\f\301\302M\210\202\301\303M\210\300\207" [cheat-font-lock-20040624-format-p cheat-font-lock-compiled-body #[(keywords) "\211AA)\207" [keywords x] 2] #[(keywords) "A\207" [keywords] 1]] 2) (defalias 'cheat-font-lock-keywords #[(keywords) "\301!\203\n\302!\207\207" [keywords cheat-font-lock-compiled-p cheat-font-lock-compiled-body] 2]) (defalias 'cheat-font-lock-merge-keywords #[(&rest keywords-list) "\303\304\"\305\306 \"\211)\207" [keywords-list bodies-list font-lock-keywords mapcar cheat-font-lock-keywords apply append] 3]) (defalias 'cheat-font-lock-append-keywords #[(entries) "\302 \"\207" [font-lock-keywords entries cheat-font-lock-merge-keywords] 3]) (defalias 'cheat-font-lock-prepend-keywords #[(entries) "\302 \"\207" [entries font-lock-keywords cheat-font-lock-merge-keywords] 3]) #@55 Enable font-lock-mode without calling fontify-buffer. (defalias 'cheat-font-lock-mode #[(&optional silent) "\203\n\305\306!\307L\210 \204\305\301!\310L\210\305\302!\210\311\312 \312 \313H\314=\211\203/\315\316 P\311\"\210\317\320!\210\f\203;\315 !\210+\321 \207" [silent font-lock-defaults font-lock-fontified bname need-rename make-local-variable font-lock-verbose nil (nil) t buffer-name 0 32 rename-buffer "xxx-" font-lock-mode 1 font-lock-set-defaults] 4 (#$ . 1748)]) (defalias 'cheat-font-lock-fontify #[(&optional dummy) "\300 \207" [font-lock-fontify-buffer] 1]) (provide 'cheat-font-lock)