From: Richard M. Stallman <rms@gnu.org>
Date: Fri, 7 Jul 1995 13:29:50 +0000 (+0000)
Subject: (byte-compile-obsolete): Do the funcall to compile
X-Git-Tag: emacs-19.34~3372
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=e0b934886f096e54f8c36799f0466d047c25edbc;p=emacs.git

(byte-compile-obsolete): Do the funcall to compile
the form whether or not we warn.
---

diff --git a/lisp/emacs-lisp/bytecomp.el b/lisp/emacs-lisp/bytecomp.el
index 9fadfc53748..61e1cb4a9c3 100644
--- a/lisp/emacs-lisp/bytecomp.el
+++ b/lisp/emacs-lisp/bytecomp.el
@@ -812,13 +812,13 @@ otherwise pop it")
 
 ;;; Used by make-obsolete.
 (defun byte-compile-obsolete (form)
-  (if (memq 'obsolete byte-compile-warnings)
-      (let ((new (get (car form) 'byte-obsolete-info)))
+  (let ((new (get (car form) 'byte-obsolete-info)))
+    (if (memq 'obsolete byte-compile-warnings)
 	(byte-compile-warn "%s is an obsolete function; %s" (car form)
 			   (if (stringp (car new))
 			       (car new)
-			       (format "use %s instead." (car new))))
-	(funcall (or (cdr new) 'byte-compile-normal-call) form))))
+			       (format "use %s instead." (car new)))))
+    (funcall (or (cdr new) 'byte-compile-normal-call) form)))
 
 ;; Compiler options