236 |
(defmacro defcustom (symbol value doc &rest args) |
(defmacro defcustom (symbol value doc &rest args) |
237 |
`(defvar ,symbol ,value ,doc)))) |
`(defvar ,symbol ,value ,doc)))) |
238 |
|
|
239 |
;(defun fast-lock-submit-bug-report () |
;;(defun fast-lock-submit-bug-report () |
240 |
; "Submit via mail a bug report on fast-lock.el." |
;; "Submit via mail a bug report on fast-lock.el." |
241 |
; (interactive) |
;; (interactive) |
242 |
; (let ((reporter-prompt-for-summary-p t)) |
;; (let ((reporter-prompt-for-summary-p t)) |
243 |
; (reporter-submit-bug-report "simon@gnu.org" "fast-lock 3.14" |
;; (reporter-submit-bug-report "simon@gnu.org" "fast-lock 3.14" |
244 |
; '(fast-lock-cache-directories fast-lock-minimum-size |
;; '(fast-lock-cache-directories fast-lock-minimum-size |
245 |
; fast-lock-save-others fast-lock-save-events fast-lock-save-faces |
;; fast-lock-save-others fast-lock-save-events fast-lock-save-faces |
246 |
; fast-lock-verbose) |
;; fast-lock-verbose) |
247 |
; nil nil |
;; nil nil |
248 |
; (concat "Hi Si., |
;; (concat "Hi Si., |
249 |
; |
;; |
250 |
;I want to report a bug. I've read the `Bugs' section of `Info' on Emacs, so I |
;;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: |
;;know how to make a clear and unambiguous report. To reproduce the bug: |
252 |
; |
;; |
253 |
;Start a fresh editor via `" invocation-name " -no-init-file -no-site-file'. |
;;Start a fresh editor via `" invocation-name " -no-init-file -no-site-file'. |
254 |
;In the `*scratch*' buffer, evaluate:")))) |
;;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) |
260 |
|
|
261 |
(defvar fast-lock-mode nil) ; Whether we are turned on. |
(defvar fast-lock-mode nil) ; Whether we are turned on. |
262 |
(defvar fast-lock-cache-timestamp nil) ; For saving/reading. |
(defvar fast-lock-cache-timestamp nil) ; For saving/reading. |
867 |
|
|
868 |
(provide 'fast-lock) |
(provide 'fast-lock) |
869 |
|
|
870 |
;;; arch-tag: 638c431e-8cae-4538-80a1-963ff97d233e |
;; arch-tag: 638c431e-8cae-4538-80a1-963ff97d233e |
871 |
;;; fast-lock.el ends here |
;;; fast-lock.el ends here |