[Emacs-diffs] Changes to emacs/lisp/emacs-lisp/bytecomp.el,v

[Juanma Barranquero]

CVSROOT:        /sources/emacs
Module name:    emacs
Changes by:     Juanma Barranquero <lektu>      08/03/26 12:18:17

Index: bytecomp.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/emacs-lisp/bytecomp.el,v
retrieving revision 2.233
retrieving revision 2.234
diff -u -b -r2.233 -r2.234
--- bytecomp.el 3 Mar 2008 03:40:03 -0000       2.233
+++ bytecomp.el 26 Mar 2008 12:18:17 -0000      2.234
@@ -1119,15 +1119,17 @@
 ;;; Used by make-obsolete.
 (defun byte-compile-obsolete (form)
   (let* ((new (get (car form) 'byte-obsolete-info))
+        (use (car new))
         (handler (nth 1 new))
         (when (nth 2 new)))
     (byte-compile-set-symbol-position (car form))
     (if (byte-compile-warning-enabled-p 'obsolete)
-       (byte-compile-warn "`%s' is an obsolete function%s; %s" (car form)
+       (byte-compile-warn "`%s' is an obsolete function%s%s" (car form)
                           (if when (concat " (as of Emacs " when ")") "")
-                          (if (stringp (car new))
-                              (car new)
-                            (format "use `%s' instead." (car new)))))
+                          (cond ((stringp use)
+                                 (concat "; " use))
+                                (use (format "; use `%s' instead." use))
+                                (t "."))))
     (funcall (or handler 'byte-compile-normal-call) form)))
 
 ;; Compiler options