changeset 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 0f133cddd741
children 3ca72ee8c474
files lisp/ChangeLog lisp/obsolete/fast-lock.el
diffstat 2 files changed, 12 insertions(+), 4 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/ChangeLog	Mon May 12 08:30:56 2008 +0000
+++ b/lisp/ChangeLog	Mon May 12 17:30:29 2008 +0000
@@ -1,3 +1,8 @@
+2008-05-12  Simon Marshall  <simon@gnu.org>
+
+	* fast-lock.el (fast-lock-cache-directories): Remove "." from its
+	default value and give it the risky-local-variable property.
+
 2008-05-10  Reiner Steib  <reiner.steib@gmx.de>
 
 	* smerge-mode.el (smerge-command-prefix): Fix custom type.
@@ -9,8 +14,8 @@
 
 2008-05-01  Nick Roberts  <nickrob@snap.net.nz>
 
-	* progmodes/gdb-ui.el (gdb-info-breakpoints-custom): Don't
-	throw error if no file is found.
+	* progmodes/gdb-ui.el (gdb-info-breakpoints-custom):
+	Don't throw error if no file is found.
 
 2008-04-28  Michael Albinus  <michael.albinus@gmx.de>
 
--- 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.