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