(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 9fadfc53748bd254f5d62964c7364897c5124e46..61e1cb4a9c32918131eb696aa16decedd0a9d113 100644 (file)
--- 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)))
 \f
 ;; Compiler options