Commit e0b93488 authored by Richard M. Stallman's avatar Richard M. Stallman
Browse files

(byte-compile-obsolete): Do the funcall to compile

the form whether or not we warn.
parent 3a8a46f1
......@@ -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
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment