# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 805123790 0
# Node ID b657158dd5c9012e06043d9f47b216efc7013c0b
# Parent  e2e84d24f0d480798848e89159d4424087ba9a44
(byte-compile-obsolete): Do the funcall to compile
the form whether or not we warn.

diff -r e2e84d24f0d4 -r b657158dd5c9 lisp/emacs-lisp/bytecomp.el
--- 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