Mercurial > emacs
diff lisp/emacs-lisp/bytecomp.el @ 60534:d599af947fb2
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)".
| author | Miles Bader <miles@gnu.org> |
|---|---|
| date | Wed, 09 Mar 2005 10:16:02 +0000 |
| parents | aac0a33f5772 |
| children | ab5cfcb3ccdb 48ba3f89c89f e330fedc9152 |
line wrap: on
line diff
--- a/lisp/emacs-lisp/bytecomp.el Wed Mar 09 01:27:23 2005 +0000 +++ b/lisp/emacs-lisp/bytecomp.el Wed Mar 09 10:16:02 2005 +0000 @@ -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 @@ (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 @@ (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))))))