1--- lisp/obsolete/fast-lock.el 2008/01/07 01:58:14 1.11.2.3 2+++ lisp/obsolete/fast-lock.el 2008/05/12 17:30:29 1.11.2.4 3@@ -286,7 +286,7 @@ 4 (integer :tag "size"))))) 5 :group 'fast-lock) 6 7-(defcustom fast-lock-cache-directories '("." "~/.emacs-flc") 8+(defcustom fast-lock-cache-directories '("~/.emacs-flc") 9 ; - `internal', keep each file's Font Lock cache file in the same file. 10 ; - `external', keep each file's Font Lock cache file in the same directory. 11 "*Directories in which Font Lock cache files are saved and read. 12@@ -304,12 +304,15 @@ 13 ((\"^/your/true/home/directory/\" . \".\") \"~/.emacs-flc\") 14 15 would cause a file's current directory to be used if the file is under your 16-home directory hierarchy, or otherwise the absolute directory `~/.emacs-flc'." 17+home directory hierarchy, or otherwise the absolute directory `~/.emacs-flc'. 18+For security reasons, it is not advisable to use the file's current directory 19+to avoid the possibility of using the cache of another user." 20 :type '(repeat (radio (directory :tag "directory") 21 (cons :tag "Matching" 22 (regexp :tag "regexp") 23 (directory :tag "directory")))) 24 :group 'fast-lock) 25+(put 'fast-lock-cache-directories 'risky-local-variable t) 26 27 (defcustom fast-lock-save-events '(kill-buffer kill-emacs) 28 "*Events under which caches will be saved. 29