From: Miles Bader <miles@gnu.org>
Date: Wed, 9 Mar 2005 10:16:02 +0000 (+0000)
Subject: Revision: miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-167
X-Git-Tag: ttn-vms-21-2-B4~1865
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=f195388009ff7218ff09cedaf5f303a46790dae7;p=emacs.git

Revision: miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-167

Tweak obsolete function/variable warning message

2005-03-09  Miles Bader  <miles@gnu.org>

   * lisp/emacs-lisp/bytecomp.el (byte-compile-variable-ref)
   (byte-compile-obsolete): Change " since VER" to " (as of Emacs VER)".
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index b245d602e14..12d9a777e56 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2005-03-09  Miles Bader  <miles@gnu.org>
+
+	* emacs-lisp/bytecomp.el (byte-compile-variable-ref)
+	(byte-compile-obsolete): Change " since VER" to " (as of Emacs VER)".
+
 2005-03-09  Kenichi Handa  <handa@m17n.org>
 
 	* international/latin-1.el: Set case and syntax for 255 only if
diff --git a/lisp/emacs-lisp/bytecomp.el b/lisp/emacs-lisp/bytecomp.el
index 25a1ba080d1..08d5515524d 100644
--- a/lisp/emacs-lisp/bytecomp.el
+++ b/lisp/emacs-lisp/bytecomp.el
@@ -1,7 +1,7 @@
 ;;; bytecomp.el --- compilation of Lisp code into byte code
 
 ;; Copyright (C) 1985, 1986, 1987, 1992, 1994, 1998, 2000, 2001, 2002,
-;;   2003, 2004  Free Software Foundation, Inc.
+;;   2003, 2004, 2005  Free Software Foundation, Inc.
 
 ;; Author: Jamie Zawinski <jwz@lucid.com>
 ;;	Hallvard Furuseth <hbf@ulrik.uio.no>
@@ -1039,7 +1039,7 @@ Each function's symbol gets added to `byte-compile-noruntime-functions'."
     (byte-compile-set-symbol-position (car form))
     (if (memq 'obsolete byte-compile-warnings)
 	(byte-compile-warn "`%s' is an obsolete function%s; %s" (car form)
-			   (if when (concat " since " when) "")
+			   (if when (concat " (as of Emacs " when ")") "")
 			   (if (stringp (car new))
 			       (car new)
 			     (format "use `%s' instead." (car new)))))
@@ -2779,7 +2779,7 @@ That command is designed for interactive use only" fn))
 	(let* ((ob (get var 'byte-obsolete-variable))
 	       (when (cdr ob)))
 	  (byte-compile-warn "`%s' is an obsolete variable%s; %s" var
-			     (if when (concat " since " when) "")
+			     (if when (concat " (as of Emacs " when ")") "")
 			     (if (stringp (car ob))
 				 (car ob)
 			       (format "use `%s' instead." (car ob))))))