mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-22 07:51:17 -08:00
Code Issues Projects Releases Wiki Activity

(byte-compile-cl-warn): Delete `values'

Browse source 
and `values-list' from list of CL functions.

(compile-defun): Bind `read-with-symbol-positions' to current buffer.
This commit is contained in:
Richard M. Stallman 2002-07-19 23:01:24 +00:00
parent 8cfd6446cb
commit 9cb9a7bc56
2 changed files with 14 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

10
lisp/ChangeLog
View file

@ -1,3 +1,13 @@
2002-07-19 Richard M. Stallman <rms@gnu.org>
* emacs-lisp/bytecomp.el (byte-compile-cl-warn): Delete `values'
and `values-list' from list of CL functions.
2002-07-19 John Paul Wallington <jpw@shootybangbang.com>
* emacs-lisp/bytecomp.el (compile-defun): Bind
`read-with-symbol-positions' to current buffer.
2002-07-19 Andre Spiegel <spiegel@gnu.org>
* vc-hooks.el (vc-insert-file): When called with a LIMIT regexp,

8
lisp/emacs-lisp/bytecomp.el
View file

@ -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 @@ Each function's symbol gets marked with the `byte-compile-noruntime' property."
;; 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 @@ With argument, insert value in current buffer after the form."
(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))))))))