[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] emacs/lisp ChangeLog files.el
From: |
Glenn Morris |
Subject: |
[Emacs-diffs] emacs/lisp ChangeLog files.el |
Date: |
Wed, 26 Aug 2009 03:08:36 +0000 |
CVSROOT: /sources/emacs
Module name: emacs
Changes by: Glenn Morris <gm> 09/08/26 03:08:36
Modified files:
lisp : ChangeLog files.el
Log message:
(enable-local-variables, enable-local-eval)
(safe-local-variable-values, safe-local-eval-forms): Mark as risky in
the defcustoms.
(auto-mode-alist, ignored-local-variables)
(save-some-buffers-action-alist): Move risky declarations to the
definitions.
(dabbrev-case-fold-search, dabbrev-case-replace, display-time-string)
(font-lock-defaults, format-alist, imenu--index-alist)
(imenu-generic-expression, input-method-alist, minor-mode-alist)
(mode-line-buffer-identification, mode-line-client, mode-line-modes)
(mode-line-modified, mode-line-mule-info, mode-line-position)
(mode-line-process, mode-line-remote, outline-level)
(parse-time-rules, rmail-output-file-alist)
(special-display-buffer-names, vc-mode):
Move risky declarations to the relevant files.
CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/ChangeLog?cvsroot=emacs&r1=1.16012&r2=1.16013
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/files.el?cvsroot=emacs&r1=1.1070&r2=1.1071
Patches:
Index: ChangeLog
===================================================================
RCS file: /sources/emacs/emacs/lisp/ChangeLog,v
retrieving revision 1.16012
retrieving revision 1.16013
diff -u -b -r1.16012 -r1.16013
--- ChangeLog 26 Aug 2009 02:59:34 -0000 1.16012
+++ ChangeLog 26 Aug 2009 03:08:33 -0000 1.16013
@@ -3,6 +3,38 @@
* bindings.el (standard-mode-line-format): Reposition dashes in
which-func entry. (Bug#4217)
+ * files.el (enable-local-variables, enable-local-eval)
+ (safe-local-variable-values, safe-local-eval-forms): Mark as risky in
+ the defcustoms.
+ (auto-mode-alist, ignored-local-variables)
+ (save-some-buffers-action-alist): Move risky declarations to the
+ definitions.
+ (dabbrev-case-fold-search, dabbrev-case-replace, display-time-string)
+ (font-lock-defaults, format-alist, imenu--index-alist)
+ (imenu-generic-expression, input-method-alist, minor-mode-alist)
+ (mode-line-buffer-identification, mode-line-client, mode-line-modes)
+ (mode-line-modified, mode-line-mule-info, mode-line-position)
+ (mode-line-process, mode-line-remote, outline-level)
+ (parse-time-rules, rmail-output-file-alist)
+ (special-display-buffer-names, vc-mode):
+ Move risky declarations to the relevant files.
+ * bindings.el (mode-line-client, mode-line-mule-info, mode-line-process)
+ (mode-line-modified, mode-line-remote, mode-line-position)
+ (mode-line-modes, mode-line-buffer-identification, minor-mode-alist)
+ * font-core.el (font-lock-defaults):
+ * format.el (format-alist):
+ * vc-hooks.el (vc-mode):
+ * window.el (special-display-buffer-names):
+ * international/mule-cmds.el (input-method-alist):
+ Define riskiness here (dumped file) rather than in files.el.
+ * dabbrev.el (dabbrev-case-fold-search, dabbrev-case-replace):
+ * imenu.el (imenu-generic-expression, imenu--index-alist):
+ * outline.el (outline-level):
+ * time.el (display-time-string):
+ * calendar/parse-time.el (parse-time-rules):
+ * mail/rmailout.el (rmail-output-file-alist):
+ Autoload riskiness here, rather than placing in files.el.
+
2009-08-26 Andreas Schwab <address@hidden>
* emacs-lisp/bytecomp.el (byte-compile-lapcode): Signal overflow.
Index: files.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/files.el,v
retrieving revision 1.1070
retrieving revision 1.1071
diff -u -b -r1.1070 -r1.1071
--- files.el 23 Aug 2009 00:45:20 -0000 1.1070
+++ files.el 26 Aug 2009 03:08:35 -0000 1.1071
@@ -493,6 +493,7 @@
The command \\[normal-mode], when used interactively,
always obeys file local variable specifications and the -*- line,
and ignores this variable."
+ :risky t
:type '(choice (const :tag "Query Unsafe" t)
(const :tag "Safe Only" :safe)
(const :tag "Do all" :all)
@@ -514,6 +515,7 @@
The value can be t, nil or something else.
A value of t means obey `eval' variables.
A value of nil means ignore them; anything else means query."
+ :risky t
:type '(choice (const :tag "Obey" t)
(const :tag "Ignore" nil)
(other :tag "Query" other))
@@ -2306,6 +2308,7 @@
See also `interpreter-mode-alist', which detects executable script modes
based on the interpreters they specify to run,
and `magic-mode-alist', which determines modes based on file contents.")
+(put 'auto-mode-alist 'risky-local-variable t)
(defun conf-mode-maybe ()
"Select Conf mode or XML mode according to start of file."
@@ -2641,6 +2644,7 @@
'(ignored-local-variables safe-local-variable-values
file-local-variables-alist dir-local-variables-alist)
"Variables to be ignored in a file's local variable spec.")
+(put 'ignored-local-variables 'risky-local-variable t)
(defvar hack-local-variables-hook nil
"Normal hook run after processing a file's local variables specs.
@@ -2651,6 +2655,7 @@
"List variable-value pairs that are considered safe.
Each element is a cons cell (VAR . VAL), where VAR is a variable
symbol and VAL is a value that is considered safe."
+ :risky t
:group 'find-file
:type 'alist)
@@ -2659,6 +2664,7 @@
Add expressions to this list if you want Emacs to evaluate them, when
they appear in an `eval' local variable specification, without first
asking you for confirmation."
+ :risky t
:group 'find-file
:version "22.2"
:type '(repeat sexp))
@@ -2666,63 +2672,34 @@
;; Risky local variables:
(mapc (lambda (var) (put var 'risky-local-variable t))
'(after-load-alist
- auto-mode-alist
buffer-auto-save-file-name
buffer-file-name
buffer-file-truename
buffer-undo-list
- dabbrev-case-fold-search
- dabbrev-case-replace
debugger
default-text-properties
- display-time-string
- enable-local-eval
- enable-local-variables
eval
exec-directory
exec-path
file-name-handler-alist
- font-lock-defaults
- format-alist
frame-title-format
global-mode-string
header-line-format
icon-title-format
- ignored-local-variables
- imenu--index-alist
- imenu-generic-expression
inhibit-quit
- input-method-alist
load-path
max-lisp-eval-depth
max-specpdl-size
- minor-mode-alist
minor-mode-map-alist
minor-mode-overriding-map-alist
- mode-line-buffer-identification
mode-line-format
- mode-line-client
- mode-line-modes
- mode-line-modified
- mode-line-mule-info
- mode-line-position
- mode-line-process
- mode-line-remote
mode-name
- outline-level
overriding-local-map
overriding-terminal-local-map
- parse-time-rules
process-environment
- rmail-output-file-alist
- safe-local-variable-values
- safe-local-eval-forms
- save-some-buffers-action-alist
- special-display-buffer-names
standard-input
standard-output
- unread-command-events
- vc-mode))
+ unread-command-events))
;; Safe local variables:
;;
@@ -4399,6 +4376,7 @@
nil)
"view changes in this buffer"))
"ACTION-ALIST argument used in call to `map-y-or-n-p'.")
+(put 'save-some-buffers-action-alist 'risky-local-variable t)
(defvar buffer-save-without-query nil
"Non-nil means `save-some-buffers' should save this buffer without asking.")
- [Emacs-diffs] emacs/lisp ChangeLog files.el, Chong Yidong, 2009/08/14
- [Emacs-diffs] emacs/lisp ChangeLog files.el, Chong Yidong, 2009/08/15
- [Emacs-diffs] emacs/lisp ChangeLog files.el, Chong Yidong, 2009/08/15
- [Emacs-diffs] emacs/lisp ChangeLog files.el, Chong Yidong, 2009/08/17
- [Emacs-diffs] emacs/lisp ChangeLog files.el, Glenn Morris, 2009/08/22
- [Emacs-diffs] emacs/lisp ChangeLog files.el,
Glenn Morris <=
- [Emacs-diffs] emacs/lisp ChangeLog files.el, Stefan Monnier, 2009/08/29