Mercurial > emacs
comparison lisp/emacs-lisp/bytecomp.el @ 12487:b657158dd5c9
(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 | ed1176437be9 |
| children | 93a7cb2eefcc |
comparison
equal
deleted
inserted
replaced
| 12486:e2e84d24f0d4 | 12487:b657158dd5c9 |
|---|---|
| 810 (get (car error-info) 'error-message) | 810 (get (car error-info) 'error-message) |
| 811 (prin1-to-string (cdr error-info)))))) | 811 (prin1-to-string (cdr error-info)))))) |
| 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 |
| 825 ;; (defvar byte-compiler-valid-options | 825 ;; (defvar byte-compiler-valid-options |
| 826 ;; '((optimize byte-optimize (t nil source byte) val) | 826 ;; '((optimize byte-optimize (t nil source byte) val) |