(timezone-parse-date): Match forms 1 and 2 first.

[gnu-emacs] / lisp / fast-lock.el

diff --git a/lisp/fast-lock.el b/lisp/fast-lock.el
index efa0e873c24f5e8c9eca4101adc23d3df28794f6..09ecd27d4e0295e16df2ab6f75b57c45baebe18e 100644 (file)
--- a/lisp/fast-lock.el
+++ b/lisp/fast-lock.el
@@ -4,7 +4,7 @@
 
 ;; Author: Simon Marshall <simon@gnu.ai.mit.edu>
 ;; Keywords: faces files
-;; Version: 3.12
+;; Version: 3.12.01
 
 ;;; This file is part of GNU Emacs.
 
@@ -162,7 +162,10 @@
 ;; - Removed `fast-lock-submit-bug-report' and bade farewell
 ;; 3.11--3.12:
 ;; - Added Custom support (Hrvoje Niksic help)
+;; - Made `save-buffer-state' wrap `inhibit-point-motion-hooks'
 ;; - Made `fast-lock-cache-data' simplify calls of `font-lock-compile-keywords'
+;; 3.12--3.13:
+;; - Removed `byte-*' variables from `eval-when-compile' (Erik Naggum hint)
 \f
 ;;; Code:
 
@@ -177,11 +180,6 @@
   ;; We don't do this at the top-level as we only use non-autoloaded macros.
   (require 'cl)
   ;;
-  ;; I prefer lazy code---and lazy mode.
-  (setq byte-compile-dynamic t byte-compile-dynamic-docstrings t)
-  ;; But, we make sure that the code is as zippy as can be.
-  (setq byte-optimize t)
-  ;;
   ;; We use this to preserve or protect things when modifying text properties.
   (defmacro save-buffer-state (varlist &rest body)
     "Bind variables according to VARLIST and eval BODY restoring buffer state."
@@ -204,13 +202,18 @@
             (let ((faces (, face)))
               (while (unless (memq (car faces) fast-lock-save-faces)
                        (setq faces (cdr faces))))
-              faces))))))
+              faces)))))
+  ;;
+  ;; We use this for compatibility with a future Emacs.
+  (or (fboundp 'defcustom)
+      (defmacro defcustom (symbol value doc &rest args) 
+       (` (defvar (, symbol) (, value) (, doc))))))
 
 ;(defun fast-lock-submit-bug-report ()
 ;  "Submit via mail a bug report on fast-lock.el."
 ;  (interactive)
 ;  (let ((reporter-prompt-for-summary-p t))
-;    (reporter-submit-bug-report "simon@gnu.ai.mit.edu" "fast-lock 3.12"
+;    (reporter-submit-bug-report "simon@gnu.ai.mit.edu" "fast-lock 3.12.01"
 ;     '(fast-lock-cache-directories fast-lock-minimum-size
 ;       fast-lock-save-others fast-lock-save-events fast-lock-save-faces
 ;       fast-lock-verbose)
@@ -229,11 +232,6 @@
 \f
 ;; User Variables:
 
-(defgroup fast-lock nil
-  "Font Lock support mode to cache fontification."
-  :link '(custom-manual "(emacs)Support Modes")
-  :group 'font-lock)
-
 (defcustom fast-lock-cache-directories '("." "~/.emacs-flc")
 ; - `internal', keep each file's Font Lock cache file in the same file.
 ; - `external', keep each file's Font Lock cache file in the same directory.
@@ -253,10 +251,10 @@ For example:
 
 would cause a file's current directory to be used if the file is under your
 home directory hierarchy, or otherwise the absolute directory `~/.emacs-flc'."
-  :type '(repeat (radio (cons :tag "Matching"
+  :type '(repeat (radio (directory :tag "directory")
+                       (cons :tag "Matching"
                              (regexp :tag "regexp")
-                             (directory :tag "directory"))
-                       (directory :tag "directory")))
+                             (directory :tag "directory"))))
   :group 'fast-lock)
 
 (defcustom fast-lock-minimum-size (* 25 1024)