[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] emacs/lisp bindings.el dabbrev.el font-core.el ...
From: |
Glenn Morris |
Subject: |
[Emacs-diffs] emacs/lisp bindings.el dabbrev.el font-core.el ... |
Date: |
Wed, 26 Aug 2009 03:07:27 +0000 |
CVSROOT: /sources/emacs
Module name: emacs
Changes by: Glenn Morris <gm> 09/08/26 03:07:27
Modified files:
lisp : bindings.el dabbrev.el font-core.el format.el
imenu.el outline.el time.el vc-hooks.el
window.el
lisp/calendar : parse-time.el
lisp/international: mule-cmds.el
lisp/mail : rmailout.el
Log message:
Define risky-local-variable property here rather than in files.el.
CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/bindings.el?cvsroot=emacs&r1=1.221&r2=1.222
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/dabbrev.el?cvsroot=emacs&r1=1.94&r2=1.95
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/font-core.el?cvsroot=emacs&r1=1.55&r2=1.56
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/format.el?cvsroot=emacs&r1=1.68&r2=1.69
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/imenu.el?cvsroot=emacs&r1=1.131&r2=1.132
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/outline.el?cvsroot=emacs&r1=1.43&r2=1.44
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/time.el?cvsroot=emacs&r1=1.114&r2=1.115
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/vc-hooks.el?cvsroot=emacs&r1=1.280&r2=1.281
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/window.el?cvsroot=emacs&r1=1.180&r2=1.181
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/calendar/parse-time.el?cvsroot=emacs&r1=1.23&r2=1.24
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/international/mule-cmds.el?cvsroot=emacs&r1=1.365&r2=1.366
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/mail/rmailout.el?cvsroot=emacs&r1=1.101&r2=1.102
Patches:
Index: bindings.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/bindings.el,v
retrieving revision 1.221
retrieving revision 1.222
diff -u -b -r1.221 -r1.222
--- bindings.el 26 Aug 2009 02:59:36 -0000 1.221
+++ bindings.el 26 Aug 2009 03:07:25 -0000 1.222
@@ -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")
Index: dabbrev.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/dabbrev.el,v
retrieving revision 1.94
retrieving revision 1.95
diff -u -b -r1.94 -r1.95
--- dabbrev.el 15 Jan 2009 03:18:21 -0000 1.94
+++ dabbrev.el 26 Aug 2009 03:07:25 -0000 1.95
@@ -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.
Index: font-core.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/font-core.el,v
retrieving revision 1.55
retrieving revision 1.56
diff -u -b -r1.55 -r1.56
--- font-core.el 19 Jun 2009 14:22:45 -0000 1.55
+++ font-core.el 26 Aug 2009 03:07:25 -0000 1.56
@@ -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
Index: format.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/format.el,v
retrieving revision 1.68
retrieving revision 1.69
diff -u -b -r1.68 -r1.69
--- format.el 25 Aug 2009 03:07:16 -0000 1.68
+++ format.el 26 Aug 2009 03:07:26 -0000 1.69
@@ -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)
Index: imenu.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/imenu.el,v
retrieving revision 1.131
retrieving revision 1.132
diff -u -b -r1.131 -r1.132
--- imenu.el 22 Aug 2009 19:41:49 -0000 1.131
+++ imenu.el 26 Aug 2009 03:07:26 -0000 1.132
@@ -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)
Index: outline.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/outline.el,v
retrieving revision 1.43
retrieving revision 1.44
diff -u -b -r1.43 -r1.44
--- outline.el 15 Apr 2009 23:32:25 -0000 1.43
+++ outline.el 26 Aug 2009 03:07:26 -0000 1.44
@@ -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.
Index: time.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/time.el,v
retrieving revision 1.114
retrieving revision 1.115
diff -u -b -r1.114 -r1.115
--- time.el 21 Mar 2009 18:55:47 -0000 1.114
+++ time.el 26 Aug 2009 03:07:26 -0000 1.115
@@ -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."
Index: vc-hooks.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/vc-hooks.el,v
retrieving revision 1.280
retrieving revision 1.281
diff -u -b -r1.280 -r1.281
--- vc-hooks.el 25 Aug 2009 09:02:59 -0000 1.280
+++ vc-hooks.el 26 Aug 2009 03:07:26 -0000 1.281
@@ -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 <address@hidden>
@@ -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)
Index: window.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/window.el,v
retrieving revision 1.180
retrieving revision 1.181
diff -u -b -r1.180 -r1.181
--- window.el 7 May 2009 09:21:31 -0000 1.180
+++ window.el 26 Aug 2009 03:07:26 -0000 1.181
@@ -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 ""
Index: calendar/parse-time.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/calendar/parse-time.el,v
retrieving revision 1.23
retrieving revision 1.24
diff -u -b -r1.23 -r1.24
--- calendar/parse-time.el 16 Aug 2009 18:38:19 -0000 1.23
+++ calendar/parse-time.el 26 Aug 2009 03:07:26 -0000 1.24
@@ -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)
Index: international/mule-cmds.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/international/mule-cmds.el,v
retrieving revision 1.365
retrieving revision 1.366
diff -u -b -r1.365 -r1.366
--- international/mule-cmds.el 22 Aug 2009 21:59:45 -0000 1.365
+++ international/mule-cmds.el 26 Aug 2009 03:07:26 -0000 1.366
@@ -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.
Index: mail/rmailout.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/mail/rmailout.el,v
retrieving revision 1.101
retrieving revision 1.102
diff -u -b -r1.101 -r1.102
--- mail/rmailout.el 9 Apr 2009 16:48:28 -0000 1.101
+++ mail/rmailout.el 26 Aug 2009 03:07:26 -0000 1.102
@@ -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.
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] emacs/lisp bindings.el dabbrev.el font-core.el ...,
Glenn Morris <=