Mercurial > emacs

changeset 12487:b657158dd5c9

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(byte-compile-obsolete): Do the funcall to compile the form whether or not we warn.
author Richard M. Stallman <rms@gnu.org>
date Fri, 07 Jul 1995 13:29:50 +0000
parents e2e84d24f0d4
children 71aa23be0228
files lisp/emacs-lisp/bytecomp.el
diffstat 1 files changed, 4 insertions(+), 4 deletions(-) [+]
line wrap: on
line diff
--- 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