changeset 104612:c220a29e75fd

Define risky-local-variable property here rather than in files.el.
author Glenn Morris <rgm@gnu.org>
date Wed, 26 Aug 2009 03:07:25 +0000
parents d3071821d3ea
children def1fd7623f7
files lisp/bindings.el lisp/calendar/parse-time.el lisp/dabbrev.el lisp/font-core.el lisp/format.el lisp/imenu.el lisp/international/mule-cmds.el lisp/mail/rmailout.el lisp/outline.el lisp/time.el lisp/vc-hooks.el lisp/window.el
diffstat 12 files changed, 30 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/bindings.el	Wed Aug 26 02:59:34 2009 +0000
+++ b/lisp/bindings.el	Wed Aug 26 03:07:25 2009 +0000
@@ -173,6 +173,8 @@
     (:propertize ("" (:eval (if (frame-parameter nil 'client) "@" "")))
 		 help-echo "emacsclient frame"))
   "Mode-line control for identifying emacsclient frames.")
+;; Autoload all risky properties if this file no longer dumped.
+(put 'mode-line-client 'risky-local-variable t)
 
 (defvar mode-line-mule-info
   `(""
@@ -214,6 +216,7 @@
   ;;  coding system for encoding text to send to buffer process (if any)."
 )
 
+(put 'mode-line-mule-info 'risky-local-variable t)
 (make-variable-buffer-local 'mode-line-mule-info)
 
 ;; MSDOS frames have window-system, but want the Fn identification.
@@ -235,6 +238,7 @@
 Mode-line control for displaying info on process status.
 Normally nil in most modes, since there is no process to display.")
 
+(put 'mode-line-process 'risky-local-variable t)
 (make-variable-buffer-local 'mode-line-process)
 
 (defvar mode-line-modified
@@ -265,6 +269,7 @@
 	 'mouse-face 'mode-line-highlight))
   "Mode-line control for displaying whether current buffer is modified.")
 
+(put 'mode-line-modified 'risky-local-variable t)
 (make-variable-buffer-local 'mode-line-modified)
 
 (defvar mode-line-remote
@@ -281,6 +286,7 @@
 					     "Current directory is local: ")
 					   default-directory)))))))
   "Mode-line flag to show if default-directory for current buffer is remote.")
+(put 'mode-line-remote 'risky-local-variable t)
 
 (make-variable-buffer-local 'mode-line-remote)
 
@@ -289,9 +295,11 @@
   "Mode-line control for displaying the position in the buffer.
 Normally displays the buffer percentage and, optionally, the
 buffer size, the line number and the column number.")
+(put 'mode-line-position 'risky-local-variable t)
 
 (defvar mode-line-modes nil
   "Mode-line control for displaying major and minor modes.")
+(put 'mode-line-modes 'risky-local-variable t)
 
 (defvar mode-line-mode-menu (make-sparse-keymap "Minor Modes") "\
 Menu of mode operations in the mode line.")
@@ -470,6 +478,7 @@
 Major modes that edit things other than ordinary files may change this
 \(e.g. Info, Dired,...)")
 
+(put 'mode-line-buffer-identification 'risky-local-variable t)
 (make-variable-buffer-local 'mode-line-buffer-identification)
 
 (defun unbury-buffer () "\
@@ -576,6 +585,7 @@
 
 Actually, STRING need not be a string; any possible mode-line element
 is okay.  See `mode-line-format'.")
+(put 'minor-mode-alist 'risky-local-variable t)
 ;; Don't use purecopy here--some people want to change these strings.
 (setq minor-mode-alist
       '((abbrev-mode " Abbrev")
--- a/lisp/calendar/parse-time.el	Wed Aug 26 02:59:34 2009 +0000
+++ b/lisp/calendar/parse-time.el	Wed Aug 26 03:07:25 2009 +0000
@@ -175,6 +175,7 @@
     ((5) (50 110) ,#'(lambda () (+ 1900 parse-time-elt)))
     ((5) (0 49) ,#'(lambda () (+ 2000 parse-time-elt))))
   "(slots predicate extractor...)")
+;;;###autoload(put 'parse-time-rules 'risky-local-variable t)
 
 ;;;###autoload
 (defun parse-time-string (string)
--- a/lisp/dabbrev.el	Wed Aug 26 02:59:34 2009 +0000
+++ b/lisp/dabbrev.el	Wed Aug 26 03:07:25 2009 +0000
@@ -145,6 +145,7 @@
 		 (const :tag "like search" case-fold-search)
 		 (other :tag "on" t))
   :group 'dabbrev)
+;;;###autoload(put 'dabbrev-case-fold-search 'risky-local-variable t)
 
 (defcustom dabbrev-upcase-means-case-search nil
   "The significance of an uppercase character in an abbreviation.
@@ -185,6 +186,7 @@
 		 (const :tag "based on `case-replace'" case-replace)
 		 (other :tag "on" t))
   :group 'dabbrev)
+;;;###autoload(put 'dabbrev-case-replace 'risky-local-variable t)
 
 (defcustom dabbrev-abbrev-char-regexp nil
   "Regexp to recognize a character in an abbreviation or expansion.
--- a/lisp/font-core.el	Wed Aug 26 02:59:34 2009 +0000
+++ b/lisp/font-core.el	Wed Aug 26 03:07:25 2009 +0000
@@ -75,6 +75,8 @@
 functions, `font-lock-fontify-buffer-function',
 `font-lock-unfontify-buffer-function', `font-lock-fontify-region-function',
 `font-lock-unfontify-region-function', and `font-lock-inhibit-thing-lock'.")
+;; Autoload if this file no longer dumped.
+(put 'font-lock-defaults 'risky-local-variable t)
 (make-variable-buffer-local 'font-lock-defaults)
 
 (defvar font-lock-defaults-alist nil
--- a/lisp/format.el	Wed Aug 26 02:59:34 2009 +0000
+++ b/lisp/format.el	Wed Aug 26 03:07:25 2009 +0000
@@ -136,6 +136,8 @@
 
 PRESERVE, if non-nil, means that `format-write-file' should not remove
           this format from `buffer-file-format'.")
+;; Autoload if this file no longer dumped.
+(put 'format-alist 'risky-local-variable t)
 
 ;;; Basic Functions (called from Lisp)
 
--- a/lisp/imenu.el	Wed Aug 26 02:59:34 2009 +0000
+++ b/lisp/imenu.el	Wed Aug 26 03:07:25 2009 +0000
@@ -198,6 +198,7 @@
 `fortran-mode' with `imenu-syntax-alist' set locally to give the
 characters which normally have \"symbol\" syntax \"word\" syntax
 during matching.")
+;;;###autoload(put 'imenu-generic-expression 'risky-local-variable t)
 
 ;;;###autoload
 (make-variable-buffer-local 'imenu-generic-expression)
@@ -444,6 +445,7 @@
 
 There is one simple element with negative POSITION; selecting that
 element recalculates the buffer's index alist.")
+;;;###autoload(put 'imenu--index-alist 'risky-local-variable t)
 
 (make-variable-buffer-local 'imenu--index-alist)
 
--- a/lisp/international/mule-cmds.el	Wed Aug 26 02:59:34 2009 +0000
+++ b/lisp/international/mule-cmds.el	Wed Aug 26 03:07:25 2009 +0000
@@ -1337,6 +1337,8 @@
 Each element has the form:
    (INPUT-METHOD LANGUAGE-ENV ACTIVATE-FUNC TITLE DESCRIPTION ARGS...)
 See the function `register-input-method' for the meanings of the elements.")
+;; Autoload if this file no longer dumped.
+(put 'input-method-alist 'risky-local-variable t)
 
 (defun register-input-method (input-method lang-env &rest args)
   "Register INPUT-METHOD as an input method for language environment LANG-ENV.
--- a/lisp/mail/rmailout.el	Wed Aug 26 02:59:34 2009 +0000
+++ b/lisp/mail/rmailout.el	Wed Aug 26 03:07:25 2009 +0000
@@ -46,6 +46,7 @@
 			       (string :tag "File Name")
 			       sexp)))
   :group 'rmail-output)
+;;;###autoload(put 'rmail-output-file-alist 'risky-local-variable t)
 
 (defcustom rmail-fields-not-to-output nil
   "Regexp describing fields to exclude when outputting a message to a file.
--- a/lisp/outline.el	Wed Aug 26 02:59:34 2009 +0000
+++ b/lisp/outline.el	Wed Aug 26 03:07:25 2009 +0000
@@ -380,6 +380,7 @@
   "*Function of no args to compute a header's nesting level in an outline.
 It can assume point is at the beginning of a header line and that the match
 data reflects the `outline-regexp'.")
+;;;###autoload(put 'outline-level 'risky-local-variable t)
 
 (defvar outline-heading-alist ()
   "Alist associating a heading for every possible level.
--- a/lisp/time.el	Wed Aug 26 02:59:34 2009 +0000
+++ b/lisp/time.el	Wed Aug 26 03:07:25 2009 +0000
@@ -105,6 +105,7 @@
   :group 'display-time)
 
 (defvar display-time-string nil)
+;;;###autoload(put 'display-time-string 'risky-local-variable t)
 
 (defcustom display-time-hook nil
   "List of functions to be called when the time is updated on the mode line."
--- a/lisp/vc-hooks.el	Wed Aug 26 02:59:34 2009 +0000
+++ b/lisp/vc-hooks.el	Wed Aug 26 03:07:25 2009 +0000
@@ -1,7 +1,8 @@
 ;;; vc-hooks.el --- resident support for version-control
 
 ;; Copyright (C) 1992, 1993, 1994, 1995, 1996, 1998, 1999, 2000, 2001,
-;;   2002, 2003, 2004, 2005, 2006, 2007, 2008, 2009 Free Software Foundation, Inc.
+;;   2002, 2003, 2004, 2005, 2006, 2007, 2008, 2009
+;;   Free Software Foundation, Inc.
 
 ;; Author:     FSF (see vc.el for full credits)
 ;; Maintainer: Andre Spiegel <spiegel@gnu.org>
@@ -204,6 +205,8 @@
 ;; Tell Emacs about this new kind of minor mode
 ;; (add-to-list 'minor-mode-alist '(vc-mode vc-mode))
 
+;; Autoload if this file no longer dumped.
+(put 'vc-mode 'risky-local-variable t)
 (make-variable-buffer-local 'vc-mode)
 (put 'vc-mode 'permanent-local t)
 
--- a/lisp/window.el	Wed Aug 26 02:59:34 2009 +0000
+++ b/lisp/window.el	Wed Aug 26 03:07:25 2009 +0000
@@ -591,6 +591,8 @@
 this one.
 
 See also `special-display-regexps'."
+  ;; Autoload if this file no longer dumped.
+  :risky t
   :type '(repeat
 	  (choice :tag "Buffer"
 		  :value ""