diff options
Diffstat (limited to 'lisp/obsolete/fast-lock.el')
| -rw-r--r-- | lisp/obsolete/fast-lock.el | 26 |
1 files changed, 3 insertions, 23 deletions
diff --git a/lisp/obsolete/fast-lock.el b/lisp/obsolete/fast-lock.el index d660e5506c3..9ae6d91bde8 100644 --- a/lisp/obsolete/fast-lock.el +++ b/lisp/obsolete/fast-lock.el @@ -161,7 +161,7 @@ ;; - XEmacs: Add `font-lock-value-in-major-mode' if necessary ;; - Removed `fast-lock-submit-bug-report' and bade farewell ;; 3.11--3.12: -;; - Added Custom support (Hrvoje Niksic help) +;; - Added Custom support (Hrvoje Nikšić 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: @@ -190,10 +190,6 @@ (defvar font-lock-face-list) (eval-when-compile - ;; - ;; We don't do this at the top-level as we only use non-autoloaded macros. - (require 'cl) - ;; ;; 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." @@ -218,23 +214,6 @@ (setq faces (cdr faces)))) faces))))) -;;(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.org" "fast-lock 3.14" -;; '(fast-lock-cache-directories fast-lock-minimum-size -;; fast-lock-save-others fast-lock-save-events fast-lock-save-faces -;; fast-lock-verbose) -;; nil nil -;; (concat "Hi Si., -;; -;;I want to report a bug. I've read the `Bugs' section of `Info' on Emacs, so I -;;know how to make a clear and unambiguous report. To reproduce the bug: -;; -;;Start a fresh editor via `" invocation-name " -no-init-file -no-site-file'. -;;In the `*scratch*' buffer, evaluate:")))) - (defgroup fast-lock nil "Font Lock support mode to cache fontification." :load 'fast-lock @@ -445,7 +424,8 @@ See `fast-lock-mode'." ;; Only save if user's restrictions are satisfied. (and min-size (>= (buffer-size) min-size)) (or fast-lock-save-others - (eq (user-uid) (nth 2 (file-attributes buffer-file-name)))) + (eq (user-uid) (file-attribute-user-id + (file-attributes buffer-file-name)))) ;; ;; Only save if there are `face' properties to save. (text-property-not-all (point-min) (point-max) 'face nil)) |