Mercurial > emacs
diff lisp/obsolete/fast-lock.el @ 80574:fb7b4a3039a9
(fast-lock-cache-directories): Remove "." from its
default value and give it the risky-local-variable property.
author | Stefan Monnier <monnier@iro.umontreal.ca> |
---|---|
date | Mon, 12 May 2008 17:30:29 +0000 |
parents | e68f97372143 |
children | d2b202fafd8c |
line wrap: on
line diff
--- a/lisp/obsolete/fast-lock.el Mon May 12 08:30:56 2008 +0000 +++ b/lisp/obsolete/fast-lock.el Mon May 12 17:30:29 2008 +0000 @@ -286,7 +286,7 @@ (integer :tag "size"))))) :group 'fast-lock) -(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. @@ -304,12 +304,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 (radio (directory :tag "directory") (cons :tag "Matching" (regexp :tag "regexp") (directory :tag "directory")))) :group 'fast-lock) +(put 'fast-lock-cache-directories 'risky-local-variable t) (defcustom fast-lock-save-events '(kill-buffer kill-emacs) "*Events under which caches will be saved.