diff options
| author | Richard M. Stallman | 1995-07-07 13:29:50 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1995-07-07 13:29:50 +0000 |
| commit | e0b934886f096e54f8c36799f0466d047c25edbc (patch) | |
| tree | 9ac765b819713eafcc125c1b642e683696aae9ba | |
| parent | 3a8a46f183b0529696889d911fbe6c96e1f1b9e3 (diff) | |
| download | emacs-e0b934886f096e54f8c36799f0466d047c25edbc.tar.gz emacs-e0b934886f096e54f8c36799f0466d047c25edbc.zip | |
(byte-compile-obsolete): Do the funcall to compile
the form whether or not we warn.
| -rw-r--r-- | lisp/emacs-lisp/bytecomp.el | 8 |
1 files 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") | |||
| 812 | 812 | ||
| 813 | ;;; Used by make-obsolete. | 813 | ;;; Used by make-obsolete. |
| 814 | (defun byte-compile-obsolete (form) | 814 | (defun byte-compile-obsolete (form) |
| 815 | (if (memq 'obsolete byte-compile-warnings) | 815 | (let ((new (get (car form) 'byte-obsolete-info))) |
| 816 | (let ((new (get (car form) 'byte-obsolete-info))) | 816 | (if (memq 'obsolete byte-compile-warnings) |
| 817 | (byte-compile-warn "%s is an obsolete function; %s" (car form) | 817 | (byte-compile-warn "%s is an obsolete function; %s" (car form) |
| 818 | (if (stringp (car new)) | 818 | (if (stringp (car new)) |
| 819 | (car new) | 819 | (car new) |
| 820 | (format "use %s instead." (car new)))) | 820 | (format "use %s instead." (car new))))) |
| 821 | (funcall (or (cdr new) 'byte-compile-normal-call) form)))) | 821 | (funcall (or (cdr new) 'byte-compile-normal-call) form))) |
| 822 | 822 | ||
| 823 | ;; Compiler options | 823 | ;; Compiler options |
| 824 | 824 | ||