[patch] Patch for app-xemacs/edit-utils-2.37

edit-utils-2.37-fast-lock.patch (text/plain), 2.10 KB, created by Ulrich Müller on 2008-06-04 07:02:35 UTC

--- edit-utils-orig/lisp/edit-utils/auto-autoloads.el	2006-12-28 10:30:15.000000000 +0100
+++ edit-utils/lisp/edit-utils/auto-autoloads.el	2008-06-04 00:14:52.000000000 +0200
@@ -612,6 +612,8 @@
 
 (defcustom fast-lock-mode nil "Non nil means `fast-lock-mode' is on" :group 'fast-lock :require 'fast-lock :type 'boolean :initialize 'custom-initialize-default :set '(lambda (var val) (if val (progn (fast-lock-mode 1) (add-hook 'font-lock-mode-hook 'turn-on-fast-lock)) (fast-lock-mode -1) (remove-hook 'font-lock-mode-hook 'turn-on-fast-lock)) (setq-default fast-lock-mode val)))
 
+(put 'fast-lock-cache-directories 'risky-local-variable t)
+
 (autoload 'fast-lock-mode "fast-lock" "\
 Toggle Fast Lock mode.
 With arg, turn Fast Lock mode on if and only if arg is positive and the buffer
--- edit-utils-orig/lisp/edit-utils/fast-lock.el	2006-03-07 08:01:56.000000000 +0100
+++ edit-utils/lisp/edit-utils/fast-lock.el	2008-06-04 00:14:46.000000000 +0200
@@ -247,7 +247,7 @@
 
 ;; User Variables:
 
-(defcustom fast-lock-cache-directories '("." "~/.emacs-flc")
+(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.
   "*Directories in which Font Lock cache files are saved and read.
@@ -265,10 +265,15 @@
  ((\"^/your/true/home/directory/\" . \".\") \"~/.emacs-flc\")
 
 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'."
+home directory hierarchy, or otherwise the absolute directory `~/.emacs-flc'.
+For security reasons, it is not advisable to use the file's current directory
+to avoid the possibility of using the cache of another user."
   :type '(repeat (choice (cons regexp directory) directory))
   :group 'fast-lock)
 
+;;;###autoload
+(put 'fast-lock-cache-directories 'risky-local-variable t)
+
 (defcustom fast-lock-minimum-size (* 25 1024)
   "*Minimum size of a buffer for cached fontification.
 Only buffers more than this can have associated Font Lock cache files saved.