Mercurial > emacs
changeset 46568:a9a03aa7ba8a
(byte-compile-cl-warn): Delete `values'
and `values-list' from list of CL functions.
(compile-defun): Bind `read-with-symbol-positions' to current buffer.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Fri, 19 Jul 2002 23:01:10 +0000 |
| parents | 3dea67668bb0 |
| children | 38f801217683 |
| files | lisp/emacs-lisp/bytecomp.el |
| diffstat | 1 files changed, 4 insertions(+), 4 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/emacs-lisp/bytecomp.el Fri Jul 19 21:26:14 2002 +0000 +++ b/lisp/emacs-lisp/bytecomp.el Fri Jul 19 23:01:10 2002 +0000 @@ -10,7 +10,7 @@ ;;; This version incorporates changes up to version 2.10 of the ;;; Zawinski-Furuseth compiler. -(defconst byte-compile-version "$Revision: 2.103 $") +(defconst byte-compile-version "$Revision: 2.104 $") ;; This file is part of GNU Emacs. @@ -1206,8 +1206,8 @@ ;; These aren't all aliases of subrs, so not trivial to ;; avoid hardwiring the list. (not (memq func - '(cl-block-wrapper cl-block-throw values values-list - multiple-value-list multiple-value-call nth-value + '(cl-block-wrapper cl-block-throw + multiple-value-call nth-value copy-seq first second rest endp cl-member)))) (byte-compile-warn "Function `%s' from cl package called at runtime" func))) @@ -1588,7 +1588,7 @@ (byte-compile-last-position byte-compile-read-position) (byte-compile-last-warned-form 'nothing) (value (eval - (let ((read-with-symbol-positions inbuffer) + (let ((read-with-symbol-positions (current-buffer)) (read-symbol-positions-list nil)) (displaying-byte-compile-warnings (byte-compile-sexp (read (current-buffer))))))))