Mercurial > emacs
comparison lisp/obsolete/fast-lock.el @ 65305:f91648b9f8b1
(fast-lock) <defgroup>: Move from font-lock.el.
author | Stefan Monnier <monnier@iro.umontreal.ca> |
---|---|
date | Thu, 01 Sep 2005 13:59:17 +0000 |
parents | 7e96548de65c |
children | 547765a33579 |
comparison
equal
deleted
inserted
replaced
65304:379e08762d65 | 65305:f91648b9f8b1 |
---|---|
234 ;; We use this for compatibility with a future Emacs. | 234 ;; We use this for compatibility with a future Emacs. |
235 (or (fboundp 'defcustom) | 235 (or (fboundp 'defcustom) |
236 (defmacro defcustom (symbol value doc &rest args) | 236 (defmacro defcustom (symbol value doc &rest args) |
237 `(defvar ,symbol ,value ,doc)))) | 237 `(defvar ,symbol ,value ,doc)))) |
238 | 238 |
239 ;(defun fast-lock-submit-bug-report () | 239 ;;(defun fast-lock-submit-bug-report () |
240 ; "Submit via mail a bug report on fast-lock.el." | 240 ;; "Submit via mail a bug report on fast-lock.el." |
241 ; (interactive) | 241 ;; (interactive) |
242 ; (let ((reporter-prompt-for-summary-p t)) | 242 ;; (let ((reporter-prompt-for-summary-p t)) |
243 ; (reporter-submit-bug-report "simon@gnu.org" "fast-lock 3.14" | 243 ;; (reporter-submit-bug-report "simon@gnu.org" "fast-lock 3.14" |
244 ; '(fast-lock-cache-directories fast-lock-minimum-size | 244 ;; '(fast-lock-cache-directories fast-lock-minimum-size |
245 ; fast-lock-save-others fast-lock-save-events fast-lock-save-faces | 245 ;; fast-lock-save-others fast-lock-save-events fast-lock-save-faces |
246 ; fast-lock-verbose) | 246 ;; fast-lock-verbose) |
247 ; nil nil | 247 ;; nil nil |
248 ; (concat "Hi Si., | 248 ;; (concat "Hi Si., |
249 ; | 249 ;; |
250 ;I want to report a bug. I've read the `Bugs' section of `Info' on Emacs, so I | 250 ;;I want to report a bug. I've read the `Bugs' section of `Info' on Emacs, so I |
251 ;know how to make a clear and unambiguous report. To reproduce the bug: | 251 ;;know how to make a clear and unambiguous report. To reproduce the bug: |
252 ; | 252 ;; |
253 ;Start a fresh editor via `" invocation-name " -no-init-file -no-site-file'. | 253 ;;Start a fresh editor via `" invocation-name " -no-init-file -no-site-file'. |
254 ;In the `*scratch*' buffer, evaluate:")))) | 254 ;;In the `*scratch*' buffer, evaluate:")))) |
255 | |
256 (defgroup fast-lock nil | |
257 "Font Lock support mode to cache fontification." | |
258 :load 'fast-lock | |
259 :group 'font-lock) | |
255 | 260 |
256 (defvar fast-lock-mode nil) ; Whether we are turned on. | 261 (defvar fast-lock-mode nil) ; Whether we are turned on. |
257 (defvar fast-lock-cache-timestamp nil) ; For saving/reading. | 262 (defvar fast-lock-cache-timestamp nil) ; For saving/reading. |
258 (defvar fast-lock-cache-filename nil) ; For deleting. | 263 (defvar fast-lock-cache-filename nil) ; For deleting. |
259 | 264 |
860 | 865 |
861 ;; Provide ourselves: | 866 ;; Provide ourselves: |
862 | 867 |
863 (provide 'fast-lock) | 868 (provide 'fast-lock) |
864 | 869 |
865 ;;; arch-tag: 638c431e-8cae-4538-80a1-963ff97d233e | 870 ;; arch-tag: 638c431e-8cae-4538-80a1-963ff97d233e |
866 ;;; fast-lock.el ends here | 871 ;;; fast-lock.el ends here |