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

[Miles Bader]

Index: emacs/lisp/emacs-lisp/bytecomp.el
diff -c emacs/lisp/emacs-lisp/bytecomp.el:2.161 
emacs/lisp/emacs-lisp/bytecomp.el:2.162
*** emacs/lisp/emacs-lisp/bytecomp.el:2.161     Wed Feb  9 15:50:40 2005
--- emacs/lisp/emacs-lisp/bytecomp.el   Wed Mar  9 10:16:02 2005
***************
*** 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.
  
  ;; Author: Jamie Zawinski <address@hidden>
  ;;    Hallvard Furuseth <address@hidden>
--- 1,7 ----
  ;;; bytecomp.el --- compilation of Lisp code into byte code
  
  ;; Copyright (C) 1985, 1986, 1987, 1992, 1994, 1998, 2000, 2001, 2002,
! ;;   2003, 2004, 2005  Free Software Foundation, Inc.
  
  ;; Author: Jamie Zawinski <address@hidden>
  ;;    Hallvard Furuseth <address@hidden>
***************
*** 1039,1045 ****
      (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 (stringp (car new))
                               (car new)
                             (format "use `%s' instead." (car new)))))
--- 1039,1045 ----
      (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 " (as of Emacs " when ")") "")
                           (if (stringp (car new))
                               (car new)
                             (format "use `%s' instead." (car new)))))
***************
*** 2779,2785 ****
        (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 (stringp (car ob))
                                 (car ob)
                               (format "use `%s' instead." (car ob))))))
--- 2779,2785 ----
        (let* ((ob (get var 'byte-obsolete-variable))
               (when (cdr ob)))
          (byte-compile-warn "`%s' is an obsolete variable%s; %s" var
!                            (if when (concat " (as of Emacs " when ")") "")
                             (if (stringp (car ob))
                                 (car ob)
                               (format "use `%s' instead." (car ob))))))