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

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

(compile-defun): Bind `read-with-symbol-positions' to current buffer.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index ab24cf0a0f217a4de131eeb01e0f66448aaae73e..59f0b1de12befee0c9ed5bf21a2befe71cf4da1d 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -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,

diff --git a/lisp/emacs-lisp/bytecomp.el b/lisp/emacs-lisp/bytecomp.el
index 1bd5f5374860373df69b22eeab7fefce2e05ca9c..784eec37a10ed875f8d35f5c90db440a6f7c1d27 100644 (file)
--- a/lisp/emacs-lisp/bytecomp.el
+++ b/lisp/emacs-lisp/bytecomp.el
@@ -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))))))))