From 6483b8c7937f3c9c2debc2b749293e2adcac0e63 Mon Sep 17 00:00:00 2001 From: Stefan Monnier Date: Mon, 12 May 2008 17:30:29 +0000 Subject: [PATCH] (fast-lock-cache-directories): Remove "." from its default value and give it the risky-local-variable property. --- lisp/ChangeLog | 9 +++++++-- lisp/obsolete/fast-lock.el | 7 +++++-- 2 files changed, 12 insertions(+), 4 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 5889ab5fa81..c815d586692 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2008-05-12 Simon Marshall + + * 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 * smerge-mode.el (smerge-command-prefix): Fix custom type. @@ -9,8 +14,8 @@ 2008-05-01 Nick Roberts - * 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 diff --git a/lisp/obsolete/fast-lock.el b/lisp/obsolete/fast-lock.el index 409027bc2d9..21ae1a0403c 100644 --- a/lisp/obsolete/fast-lock.el +++ b/lisp/obsolete/fast-lock.el @@ -286,7 +286,7 @@ for buffers in Rmail mode, and size is irrelevant otherwise." (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 @@ For example: ((\"^/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. -- 2.11.4.GIT