Mercurial > emacs
diff lisp/emacs-lisp/bytecomp.el @ 90118:e330fedc9152
Revision: miles@gnu.org--gnu-2005/emacs--unicode--0--patch-24
Merge from emacs--cvs-trunk--0
Patches applied:
* miles@gnu.org--gnu-2005/emacs--cvs-trunk--0 (patch 166-172)
- Update from CVS
- Tweak obsolete function/variable warning message
- Merge from gnus--rel--5.10
* miles@gnu.org--gnu-2005/gnus--rel--5.10 (patch 38)
- Update from CVS
| author | Miles Bader <miles@gnu.org> |
|---|---|
| date | Thu, 10 Mar 2005 23:36:47 +0000 |
| parents | a01e7a9f1659 d599af947fb2 |
| children | 08185296b491 |
line wrap: on
line diff
--- a/lisp/emacs-lisp/bytecomp.el Wed Mar 09 07:54:53 2005 +0000 +++ b/lisp/emacs-lisp/bytecomp.el Thu Mar 10 23:36:47 2005 +0000 @@ -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))))))