# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 1027119670 0
# Node ID a9a03aa7ba8a6d2db3671cf6db0da6262986e85c
# Parent  3dea67668bb0a6a4cb66921304fad1cd09571bda
(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 -r 3dea67668bb0 -r a9a03aa7ba8a lisp/emacs-lisp/bytecomp.el
--- 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))))))))