/[emacs]/emacs/lisp/obsolete/fast-lock.el
ViewVC logotype

Diff of /emacs/lisp/obsolete/fast-lock.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.4 by lektu, Mon Aug 29 10:13:42 2005 UTC revision 1.5 by monnier, Thu Sep 1 13:59:17 2005 UTC
# Line 236  Line 236 
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.
# Line 862  See `fast-lock-get-face-properties'." Line 867  See `fast-lock-get-face-properties'."
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

Legend:
Removed from v.1.4  
changed lines
  Added in v.1.5

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26