Mercurial > emacs
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)