Mercurial > emacs
comparison lisp/emacs-lisp/bytecomp.el @ 55043:f3cd7742ff36
Fix previous change.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Wed, 21 Apr 2004 19:13:00 +0000 |
| parents | 770ebdee7214 |
| children | 6635869bd341 |
comparison
equal
deleted
inserted
replaced
| 55042:770ebdee7214 | 55043:f3cd7742ff36 |
|---|---|
| 3714 (delq calls byte-compile-unresolved-functions))))) | 3714 (delq calls byte-compile-unresolved-functions))))) |
| 3715 | 3715 |
| 3716 (byte-defop-compiler-1 with-no-warnings byte-compile-no-warnings) | 3716 (byte-defop-compiler-1 with-no-warnings byte-compile-no-warnings) |
| 3717 (defun byte-compile-no-warnings (form) | 3717 (defun byte-compile-no-warnings (form) |
| 3718 (let (byte-compile-warnings) | 3718 (let (byte-compile-warnings) |
| 3719 (setcar form 'progn) | 3719 (byte-compile-form (cons 'progn (cdr form))))) |
| 3720 (byte-compile-form form))) | |
| 3721 | 3720 |
| 3722 ;;; tags | 3721 ;;; tags |
| 3723 | 3722 |
| 3724 ;; Note: Most operations will strip off the 'TAG, but it speeds up | 3723 ;; Note: Most operations will strip off the 'TAG, but it speeds up |
| 3725 ;; optimization to have the 'TAG as a part of the tag. | 3724 ;; optimization to have the 'TAG as a part of the tag. |