From e0b934886f096e54f8c36799f0466d047c25edbc Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Fri, 7 Jul 1995 13:29:50 +0000 Subject: [PATCH] (byte-compile-obsolete): Do the funcall to compile the form whether or not we warn. --- lisp/emacs-lisp/bytecomp.el | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) 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 -- 2.39.2