34 |
;; See also the lazy-lock package. (But don't use the two at the same time!) |
;; See also the lazy-lock package. (But don't use the two at the same time!) |
35 |
|
|
36 |
;; Installation: |
;; Installation: |
37 |
;; |
;; |
38 |
;; Put in your ~/.emacs: |
;; Put in your ~/.emacs: |
39 |
;; |
;; |
40 |
;; (setq font-lock-support-mode 'fast-lock-mode) |
;; (setq font-lock-support-mode 'fast-lock-mode) |
67 |
;; 1.01--2.00: complete rewrite---not worth the space to document |
;; 1.01--2.00: complete rewrite---not worth the space to document |
68 |
;; - Changed structure of text properties cache and threw out file mod checks |
;; - Changed structure of text properties cache and threw out file mod checks |
69 |
;; 2.00--2.01: |
;; 2.00--2.01: |
70 |
;; - Made `condition-case' forms understand `quit'. |
;; - Made `condition-case' forms understand `quit'. |
71 |
;; - Made `fast-lock' require `font-lock' |
;; - Made `fast-lock' require `font-lock' |
72 |
;; - Made `fast-lock-cache-name' chase links (from Ben Liblit) |
;; - Made `fast-lock-cache-name' chase links (from Ben Liblit) |
73 |
;; 2.01--3.00: |
;; 2.01--3.00: |
230 |
;; |
;; |
231 |
;; We use this for compatibility with a future Emacs. |
;; We use this for compatibility with a future Emacs. |
232 |
(or (fboundp 'defcustom) |
(or (fboundp 'defcustom) |
233 |
(defmacro defcustom (symbol value doc &rest args) |
(defmacro defcustom (symbol value doc &rest args) |
234 |
`(defvar ,symbol ,value ,doc)))) |
`(defvar ,symbol ,value ,doc)))) |
235 |
|
|
236 |
;(defun fast-lock-submit-bug-report () |
;(defun fast-lock-submit-bug-report () |
553 |
(concat buffer-file-name ".flc") |
(concat buffer-file-name ".flc") |
554 |
(let* ((bufile (expand-file-name buffer-file-truename)) |
(let* ((bufile (expand-file-name buffer-file-truename)) |
555 |
(chars-alist |
(chars-alist |
556 |
(if (memq system-type '(emx windows-nt)) |
(if (memq system-type '(emx windows-nt cygwin)) |
557 |
'((?/ . (?#)) (?# . (?# ?#)) (?: . (?\;)) (?\; . (?\; ?\;))) |
'((?/ . (?#)) (?# . (?# ?#)) (?: . (?\;)) (?\; . (?\; ?\;))) |
558 |
'((?/ . (?#)) (?# . (?# ?#))))) |
'((?/ . (?#)) (?# . (?# ?#))))) |
559 |
(mapchars |
(mapchars |
807 |
(font-lock-set-face (nth 0 regions) (nth 1 regions) face) |
(font-lock-set-face (nth 0 regions) (nth 1 regions) face) |
808 |
(setq regions (nthcdr 2 regions))) |
(setq regions (nthcdr 2 regions))) |
809 |
(setq face-properties (cdr face-properties)))) |
(setq face-properties (cdr face-properties)))) |
810 |
;; XEmacs does not support the `syntax-table' text property. |
;; XEmacs does not support the `syntax-table' text property. |
811 |
)) |
)) |
812 |
;; |
;; |
813 |
;; XEmacs 19.12 font-lock.el's `font-lock-fontify-buffer' runs a hook. |
;; XEmacs 19.12 font-lock.el's `font-lock-fontify-buffer' runs a hook. |