Mercurial > emacs
diff lisp/bindings.el @ 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 | c603ee2aac17 |
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")