[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] /srv/bzr/emacs/trunk r106442: * lisp/emacs-lisp/bytecomp.e
From: |
Stefan Monnier |
Subject: |
[Emacs-diffs] /srv/bzr/emacs/trunk r106442: * lisp/emacs-lisp/bytecomp.el: Silence obsolete warnings more reliably. |
Date: |
Sat, 19 Nov 2011 23:33:36 -0500 |
User-agent: |
Bazaar (2.3.1) |
------------------------------------------------------------
revno: 106442
committer: Stefan Monnier <address@hidden>
branch nick: trunk
timestamp: Sat 2011-11-19 23:33:36 -0500
message:
* lisp/emacs-lisp/bytecomp.el: Silence obsolete warnings more reliably.
(byte-compile-global-not-obsolete-vars): New var.
(byte-compile-check-variable, byte-compile-make-obsolete-variable):
Use it.
(byte-compile-warn-obsolete): Align text with the one in *Help*.
modified:
lisp/ChangeLog
lisp/emacs-lisp/bytecomp.el
=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog 2011-11-20 03:48:53 +0000
+++ b/lisp/ChangeLog 2011-11-20 04:33:36 +0000
@@ -1,3 +1,11 @@
+2011-11-20 Stefan Monnier <address@hidden>
+
+ * emacs-lisp/bytecomp.el: Silence obsolete warnings more reliably.
+ (byte-compile-global-not-obsolete-vars): New var.
+ (byte-compile-check-variable, byte-compile-make-obsolete-variable):
+ Use it.
+ (byte-compile-warn-obsolete): Align text with the one in *Help*.
+
2011-11-20 Juanma Barranquero <address@hidden>
* progmodes/cwarn.el (cwarn-is-enabled, cwarn-font-lock-keywords):
=== modified file 'lisp/emacs-lisp/bytecomp.el'
--- a/lisp/emacs-lisp/bytecomp.el 2011-11-20 02:29:42 +0000
+++ b/lisp/emacs-lisp/bytecomp.el 2011-11-20 04:33:36 +0000
@@ -359,10 +359,12 @@
"List of commands that are not meant to be called from Lisp.")
(defvar byte-compile-not-obsolete-vars nil
- "If non-nil, a list of variables that shouldn't be reported as obsolete.")
+ "List of variables that shouldn't be reported as obsolete.")
+(defvar byte-compile-global-not-obsolete-vars nil
+ "Global list of variables that shouldn't be reported as obsolete.")
(defvar byte-compile-not-obsolete-funcs nil
- "If non-nil, a list of functions that shouldn't be reported as obsolete.")
+ "List of functions that shouldn't be reported as obsolete.")
(defcustom byte-compile-generate-call-tree nil
"Non-nil means collect call-graph information when compiling.
@@ -1113,7 +1115,7 @@
(unless (and funcp (memq symbol byte-compile-not-obsolete-funcs))
(byte-compile-warn "`%s' is an obsolete %s%s%s" symbol
(if funcp "function" "variable")
- (if asof (concat " (as of Emacs " asof ")") "")
+ (if asof (concat " (as of " asof ")") "")
(cond ((stringp instead)
(concat "; " instead))
(instead
@@ -3030,6 +3032,7 @@
((let ((od (get var 'byte-obsolete-variable)))
(and od
(not (memq var byte-compile-not-obsolete-vars))
+ (not (memq var byte-compile-global-not-obsolete-vars))
(or (case (nth 1 od)
(set (not (eq access-type 'reference)))
(get (eq access-type 'reference))
@@ -4116,7 +4119,7 @@
(byte-defop-compiler-1 make-obsolete-variable)
(defun byte-compile-make-obsolete-variable (form)
(when (eq 'quote (car-safe (nth 1 form)))
- (push (nth 1 (nth 1 form)) byte-compile-not-obsolete-vars))
+ (push (nth 1 (nth 1 form)) byte-compile-global-not-obsolete-vars))
(byte-compile-normal-call form))
(defun byte-compile-defvar (form)
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] /srv/bzr/emacs/trunk r106442: * lisp/emacs-lisp/bytecomp.el: Silence obsolete warnings more reliably.,
Stefan Monnier <=