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."
(: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 @@ mnemonics of the following coding systems:
;; 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 @@ Value is used for `mode-line-frame-identification', which see."
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 @@ Normally nil in most modes, since there is no process to display.")
'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 @@ Normally nil in most modes, since there is no process to display.")
"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 @@ Normally nil in most modes, since there is no process to display.")
"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 @@ Its default value is (\"%12b\") with some text properties added.
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 @@ 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
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")
......
......@@ -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)
......
......@@ -145,6 +145,7 @@ Any other non-nil version means case is not significant."
(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 @@ This variable has an effect only when the value of
(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.
......
......@@ -75,6 +75,8 @@ Other variables include that for syntactic keyword fontification,
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
......
......@@ -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
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)
......
......@@ -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
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 @@ if it is a sub-alist.
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)
......
......@@ -1337,6 +1337,8 @@ This function is called with no argument.")
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.
......
......@@ -46,6 +46,7 @@ a file name as a string."
(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.
......
......@@ -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.
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.
......
......@@ -105,6 +105,7 @@ A value of nil means 1 <= hh <= 12, and an AM/PM suffix is used."
: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."
......
;;; 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 @@ individually should stay local."
;; 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)
......
......@@ -591,6 +591,8 @@ and `same-window-regexps'. Those variables take precedence over
this one.
See also `special-display-regexps'."
;; Autoload if this file no longer dumped.
:risky t
:type '(repeat
(choice :tag "Buffer"
: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