Commit 6dc3311d authored by Glenn Morris's avatar Glenn Morris
Browse files

Define risky-local-variable property here rather than in files.el.

parent e49c0179
...@@ -173,6 +173,8 @@ corresponding to the mode line clicked." ...@@ -173,6 +173,8 @@ corresponding to the mode line clicked."
(:propertize ("" (:eval (if (frame-parameter nil 'client) "@" ""))) (:propertize ("" (:eval (if (frame-parameter nil 'client) "@" "")))
help-echo "emacsclient frame")) help-echo "emacsclient frame"))
"Mode-line control for identifying emacsclient frames.") "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 (defvar mode-line-mule-info
`("" `(""
...@@ -214,6 +216,7 @@ mnemonics of the following coding systems: ...@@ -214,6 +216,7 @@ mnemonics of the following coding systems:
;; coding system for encoding text to send to buffer process (if any)." ;; 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) (make-variable-buffer-local 'mode-line-mule-info)
;; MSDOS frames have window-system, but want the Fn identification. ;; MSDOS frames have window-system, but want the Fn identification.
...@@ -235,6 +238,7 @@ Value is used for `mode-line-frame-identification', which see." ...@@ -235,6 +238,7 @@ Value is used for `mode-line-frame-identification', which see."
Mode-line control for displaying info on process status. Mode-line control for displaying info on process status.
Normally nil in most modes, since there is no process to display.") 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) (make-variable-buffer-local 'mode-line-process)
(defvar mode-line-modified (defvar mode-line-modified
...@@ -265,6 +269,7 @@ Normally nil in most modes, since there is no process to display.") ...@@ -265,6 +269,7 @@ Normally nil in most modes, since there is no process to display.")
'mouse-face 'mode-line-highlight)) 'mouse-face 'mode-line-highlight))
"Mode-line control for displaying whether current buffer is modified.") "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) (make-variable-buffer-local 'mode-line-modified)
(defvar mode-line-remote (defvar mode-line-remote
...@@ -281,6 +286,7 @@ Normally nil in most modes, since there is no process to display.") ...@@ -281,6 +286,7 @@ Normally nil in most modes, since there is no process to display.")
"Current directory is local: ") "Current directory is local: ")
default-directory))))))) default-directory)))))))
"Mode-line flag to show if default-directory for current buffer is remote.") "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) (make-variable-buffer-local 'mode-line-remote)
...@@ -289,9 +295,11 @@ Normally nil in most modes, since there is no process to display.") ...@@ -289,9 +295,11 @@ Normally nil in most modes, since there is no process to display.")
"Mode-line control for displaying the position in the buffer. "Mode-line control for displaying the position in the buffer.
Normally displays the buffer percentage and, optionally, the Normally displays the buffer percentage and, optionally, the
buffer size, the line number and the column number.") buffer size, the line number and the column number.")
(put 'mode-line-position 'risky-local-variable t)
(defvar mode-line-modes nil (defvar mode-line-modes nil
"Mode-line control for displaying major and minor modes.") "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") "\ (defvar mode-line-mode-menu (make-sparse-keymap "Minor Modes") "\
Menu of mode operations in the mode line.") Menu of mode operations in the mode line.")
...@@ -470,6 +478,7 @@ Its default value is (\"%12b\") with some text properties added. ...@@ -470,6 +478,7 @@ Its default value is (\"%12b\") with some text properties added.
Major modes that edit things other than ordinary files may change this Major modes that edit things other than ordinary files may change this
\(e.g. Info, Dired,...)") \(e.g. Info, Dired,...)")
(put 'mode-line-buffer-identification 'risky-local-variable t)
(make-variable-buffer-local 'mode-line-buffer-identification) (make-variable-buffer-local 'mode-line-buffer-identification)
(defun unbury-buffer () "\ (defun unbury-buffer () "\
...@@ -576,6 +585,7 @@ STRING is included in the mode line if VARIABLE's value is non-nil. ...@@ -576,6 +585,7 @@ STRING is included in the mode line if VARIABLE's value is non-nil.
Actually, STRING need not be a string; any possible mode-line element Actually, STRING need not be a string; any possible mode-line element
is okay. See `mode-line-format'.") 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. ;; Don't use purecopy here--some people want to change these strings.
(setq minor-mode-alist (setq minor-mode-alist
'((abbrev-mode " Abbrev") '((abbrev-mode " Abbrev")
......
...@@ -175,6 +175,7 @@ ...@@ -175,6 +175,7 @@
((5) (50 110) ,#'(lambda () (+ 1900 parse-time-elt))) ((5) (50 110) ,#'(lambda () (+ 1900 parse-time-elt)))
((5) (0 49) ,#'(lambda () (+ 2000 parse-time-elt)))) ((5) (0 49) ,#'(lambda () (+ 2000 parse-time-elt))))
"(slots predicate extractor...)") "(slots predicate extractor...)")
;;;###autoload(put 'parse-time-rules 'risky-local-variable t)
;;;###autoload ;;;###autoload
(defun parse-time-string (string) (defun parse-time-string (string)
......
...@@ -145,6 +145,7 @@ Any other non-nil version means case is not significant." ...@@ -145,6 +145,7 @@ Any other non-nil version means case is not significant."
(const :tag "like search" case-fold-search) (const :tag "like search" case-fold-search)
(other :tag "on" t)) (other :tag "on" t))
:group 'dabbrev) :group 'dabbrev)
;;;###autoload(put 'dabbrev-case-fold-search 'risky-local-variable t)
(defcustom dabbrev-upcase-means-case-search nil (defcustom dabbrev-upcase-means-case-search nil
"The significance of an uppercase character in an abbreviation. "The significance of an uppercase character in an abbreviation.
...@@ -185,6 +186,7 @@ This variable has an effect only when the value of ...@@ -185,6 +186,7 @@ This variable has an effect only when the value of
(const :tag "based on `case-replace'" case-replace) (const :tag "based on `case-replace'" case-replace)
(other :tag "on" t)) (other :tag "on" t))
:group 'dabbrev) :group 'dabbrev)
;;;###autoload(put 'dabbrev-case-replace 'risky-local-variable t)
(defcustom dabbrev-abbrev-char-regexp nil (defcustom dabbrev-abbrev-char-regexp nil
"Regexp to recognize a character in an abbreviation or expansion. "Regexp to recognize a character in an abbreviation or expansion.
......
...@@ -75,6 +75,8 @@ Other variables include that for syntactic keyword fontification, ...@@ -75,6 +75,8 @@ Other variables include that for syntactic keyword fontification,
functions, `font-lock-fontify-buffer-function', functions, `font-lock-fontify-buffer-function',
`font-lock-unfontify-buffer-function', `font-lock-fontify-region-function', `font-lock-unfontify-buffer-function', `font-lock-fontify-region-function',
`font-lock-unfontify-region-function', and `font-lock-inhibit-thing-lock'.") `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) (make-variable-buffer-local 'font-lock-defaults)
(defvar font-lock-defaults-alist nil (defvar font-lock-defaults-alist nil
......
...@@ -136,6 +136,8 @@ MODE-FN, if specified, is called when visiting a file with that format. ...@@ -136,6 +136,8 @@ MODE-FN, if specified, is called when visiting a file with that format.
PRESERVE, if non-nil, means that `format-write-file' should not remove PRESERVE, if non-nil, means that `format-write-file' should not remove
this format from `buffer-file-format'.") 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) ;;; Basic Functions (called from Lisp)
......
...@@ -198,6 +198,7 @@ For example, see the value of `fortran-imenu-generic-expression' used by ...@@ -198,6 +198,7 @@ For example, see the value of `fortran-imenu-generic-expression' used by
`fortran-mode' with `imenu-syntax-alist' set locally to give the `fortran-mode' with `imenu-syntax-alist' set locally to give the
characters which normally have \"symbol\" syntax \"word\" syntax characters which normally have \"symbol\" syntax \"word\" syntax
during matching.") during matching.")
;;;###autoload(put 'imenu-generic-expression 'risky-local-variable t)
;;;###autoload ;;;###autoload
(make-variable-buffer-local 'imenu-generic-expression) (make-variable-buffer-local 'imenu-generic-expression)
...@@ -444,6 +445,7 @@ if it is a sub-alist. ...@@ -444,6 +445,7 @@ if it is a sub-alist.
There is one simple element with negative POSITION; selecting that There is one simple element with negative POSITION; selecting that
element recalculates the buffer's index alist.") element recalculates the buffer's index alist.")
;;;###autoload(put 'imenu--index-alist 'risky-local-variable t)
(make-variable-buffer-local 'imenu--index-alist) (make-variable-buffer-local 'imenu--index-alist)
......
...@@ -1337,6 +1337,8 @@ This function is called with no argument.") ...@@ -1337,6 +1337,8 @@ This function is called with no argument.")
Each element has the form: Each element has the form:
(INPUT-METHOD LANGUAGE-ENV ACTIVATE-FUNC TITLE DESCRIPTION ARGS...) (INPUT-METHOD LANGUAGE-ENV ACTIVATE-FUNC TITLE DESCRIPTION ARGS...)
See the function `register-input-method' for the meanings of the elements.") 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) (defun register-input-method (input-method lang-env &rest args)
"Register INPUT-METHOD as an input method for language environment LANG-ENV. "Register INPUT-METHOD as an input method for language environment LANG-ENV.
......
...@@ -46,6 +46,7 @@ a file name as a string." ...@@ -46,6 +46,7 @@ a file name as a string."
(string :tag "File Name") (string :tag "File Name")
sexp))) sexp)))
:group 'rmail-output) :group 'rmail-output)
;;;###autoload(put 'rmail-output-file-alist 'risky-local-variable t)
(defcustom rmail-fields-not-to-output nil (defcustom rmail-fields-not-to-output nil
"Regexp describing fields to exclude when outputting a message to a file. "Regexp describing fields to exclude when outputting a message to a file.
......
...@@ -380,6 +380,7 @@ See the command `outline-mode' for more information on this mode." ...@@ -380,6 +380,7 @@ See the command `outline-mode' for more information on this mode."
"*Function of no args to compute a header's nesting level in an outline. "*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 It can assume point is at the beginning of a header line and that the match
data reflects the `outline-regexp'.") data reflects the `outline-regexp'.")
;;;###autoload(put 'outline-level 'risky-local-variable t)
(defvar outline-heading-alist () (defvar outline-heading-alist ()
"Alist associating a heading for every possible level. "Alist associating a heading for every possible level.
......
...@@ -105,6 +105,7 @@ A value of nil means 1 <= hh <= 12, and an AM/PM suffix is used." ...@@ -105,6 +105,7 @@ A value of nil means 1 <= hh <= 12, and an AM/PM suffix is used."
:group 'display-time) :group 'display-time)
(defvar display-time-string nil) (defvar display-time-string nil)
;;;###autoload(put 'display-time-string 'risky-local-variable t)
(defcustom display-time-hook nil (defcustom display-time-hook nil
"List of functions to be called when the time is updated on the mode line." "List of functions to be called when the time is updated on the mode line."
......
;;; vc-hooks.el --- resident support for version-control ;;; vc-hooks.el --- resident support for version-control
;; Copyright (C) 1992, 1993, 1994, 1995, 1996, 1998, 1999, 2000, 2001, ;; 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) ;; Author: FSF (see vc.el for full credits)
;; Maintainer: Andre Spiegel <spiegel@gnu.org> ;; Maintainer: Andre Spiegel <spiegel@gnu.org>
...@@ -204,6 +205,8 @@ individually should stay local." ...@@ -204,6 +205,8 @@ individually should stay local."
;; Tell Emacs about this new kind of minor mode ;; Tell Emacs about this new kind of minor mode
;; (add-to-list 'minor-mode-alist '(vc-mode vc-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) (make-variable-buffer-local 'vc-mode)
(put 'vc-mode 'permanent-local t) (put 'vc-mode 'permanent-local t)
......
...@@ -591,6 +591,8 @@ and `same-window-regexps'. Those variables take precedence over ...@@ -591,6 +591,8 @@ and `same-window-regexps'. Those variables take precedence over
this one. this one.
See also `special-display-regexps'." See also `special-display-regexps'."
;; Autoload if this file no longer dumped.
:risky t
:type '(repeat :type '(repeat
(choice :tag "Buffer" (choice :tag "Buffer"
:value "" :value ""
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment