[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/emacs-lisp/bytecomp.el,v
From: |
Juanma Barranquero |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/emacs-lisp/bytecomp.el,v |
Date: |
Wed, 26 Mar 2008 12:18:18 +0000 |
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
- [Emacs-diffs] Changes to emacs/lisp/emacs-lisp/bytecomp.el,v, Glenn Morris, 2008/03/01
- [Emacs-diffs] Changes to emacs/lisp/emacs-lisp/bytecomp.el,v, Glenn Morris, 2008/03/01
- [Emacs-diffs] Changes to emacs/lisp/emacs-lisp/bytecomp.el,v, Stefan Monnier, 2008/03/02
- [Emacs-diffs] Changes to emacs/lisp/emacs-lisp/bytecomp.el,v,
Juanma Barranquero <=
- [Emacs-diffs] Changes to emacs/lisp/emacs-lisp/bytecomp.el,v, Juanma Barranquero, 2008/03/31