diff lisp/emacs-lisp/bytecomp.el @ 12487:b657158dd5c9

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

--- a/lisp/emacs-lisp/bytecomp.el	Fri Jul 07 13:29:18 1995 +0000
+++ b/lisp/emacs-lisp/bytecomp.el	Fri Jul 07 13:29:50 1995 +0000
@@ -812,13 +812,13 @@
 
 ;;; 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