diff options
| author | Miles Bader <miles@gnu.org> | 2005-03-09 10:16:02 +0000 |
|---|---|---|
| committer | Miles Bader <miles@gnu.org> | 2005-03-09 10:16:02 +0000 |
| commit | f195388009ff7218ff09cedaf5f303a46790dae7 (patch) | |
| tree | b1195a9ee4d2928ea22a704c66ccca9972ec0899 /lisp/emacs-lisp/bytecomp.el | |
| parent | ec4e909a0f4b15e64e39cd4c27a2a68a3453ec02 (diff) | |
| download | emacs-f195388009ff7218ff09cedaf5f303a46790dae7.tar.gz | |
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)".
Diffstat (limited to 'lisp/emacs-lisp/bytecomp.el')
| -rw-r--r-- | lisp/emacs-lisp/bytecomp.el | 6 |
1 files changed, 3 insertions, 3 deletions
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)))))) |