/[gentoo]/src/patchsets/emacs/21.4/18_all_fast-lock.patch
Gentoo

Contents of /src/patchsets/emacs/21.4/18_all_fast-lock.patch

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1.1 - (show annotations) (download)
Mon May 12 21:11:12 2008 UTC (6 years, 5 months ago) by ulm
Branch: MAIN
Security fix for fast-lock, bug 221197.

1 http://bugs.gentoo.org/221197
2 CVE-2008-2142
3
4 --- emacs-21.4-orig/lisp/fast-lock.el 2001-07-15 18:15:34.000000000 +0200
5 +++ emacs-21.4/lisp/fast-lock.el 2008-05-12 22:43:07.000000000 +0200
6 @@ -278,7 +278,7 @@
7 (integer :tag "size")))))
8 :group 'fast-lock)
9
10 -(defcustom fast-lock-cache-directories '("." "~/.emacs-flc")
11 +(defcustom fast-lock-cache-directories '("~/.emacs-flc")
12 ; - `internal', keep each file's Font Lock cache file in the same file.
13 ; - `external', keep each file's Font Lock cache file in the same directory.
14 "*Directories in which Font Lock cache files are saved and read.
15 @@ -296,13 +296,18 @@
16 ((\"^/your/true/home/directory/\" . \".\") \"~/.emacs-flc\")
17
18 would cause a file's current directory to be used if the file is under your
19 -home directory hierarchy, or otherwise the absolute directory `~/.emacs-flc'."
20 +home directory hierarchy, or otherwise the absolute directory `~/.emacs-flc'.
21 +For security reasons, it is not advisable to use the file's current directory
22 +to avoid the possibility of using the cache of another user."
23 :type '(repeat (radio (directory :tag "directory")
24 (cons :tag "Matching"
25 (regexp :tag "regexp")
26 (directory :tag "directory"))))
27 :group 'fast-lock)
28
29 +;;;###autoload
30 +(put 'fast-lock-cache-directories 'risky-local-variable t)
31 +
32 (defcustom fast-lock-save-events '(kill-buffer kill-emacs)
33 "*Events under which caches will be saved.
34 Valid events are `save-buffer', `kill-buffer' and `kill-emacs'.
35 --- emacs-21.4-orig/lisp/loaddefs.el 2003-03-18 15:36:18.000000000 +0100
36 +++ emacs-21.4/lisp/loaddefs.el 2008-05-12 22:47:58.000000000 +0200
37 @@ -6963,6 +6963,8 @@
38 ;;;;;; "fast-lock.el" (15611 31344))
39 ;;; Generated autoloads from fast-lock.el
40
41 +(put (quote fast-lock-cache-directories) (quote risky-local-variable) t)
42 +
43 (autoload (quote fast-lock-mode) "fast-lock" "\
44 Toggle Fast Lock mode.
45 With arg, turn Fast Lock mode on if and only if arg is positive and the buffer

  ViewVC Help
Powered by ViewVC 1.1.20