[Emacs-diffs] Changes to emacs/lisp/emacs-lisp/bytecomp.el

[Richard M. Stallman]

Index: emacs/lisp/emacs-lisp/bytecomp.el
diff -c emacs/lisp/emacs-lisp/bytecomp.el:2.104 
emacs/lisp/emacs-lisp/bytecomp.el:2.105
*** emacs/lisp/emacs-lisp/bytecomp.el:2.104     Fri Jul 19 07:35:37 2002
--- emacs/lisp/emacs-lisp/bytecomp.el   Fri Jul 19 19:01:10 2002
***************
*** 10,16 ****
  
  ;;; This version incorporates changes up to version 2.10 of the
  ;;; Zawinski-Furuseth compiler.
! (defconst byte-compile-version "$Revision: 2.104 $")
  
  ;; This file is part of GNU Emacs.
  
--- 10,16 ----
  
  ;;; This version incorporates changes up to version 2.10 of the
  ;;; Zawinski-Furuseth compiler.
! (defconst byte-compile-version "$Revision: 2.105 $")
  
  ;; This file is part of GNU Emacs.
  
***************
*** 1206,1213 ****
             ;; 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
                          copy-seq first second rest endp cl-member))))
        (byte-compile-warn "Function `%s' from cl package called at runtime"
                           func)))
--- 1206,1213 ----
             ;; These aren't all aliases of subrs, so not trivial to
             ;; avoid hardwiring the list.
             (not (memq func
!                       '(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,1594 ****
           (byte-compile-last-position byte-compile-read-position)
           (byte-compile-last-warned-form 'nothing)
           (value (eval
!                  (let ((read-with-symbol-positions inbuffer)
                         (read-symbol-positions-list nil))
                     (displaying-byte-compile-warnings
                      (byte-compile-sexp (read (current-buffer))))))))
--- 1588,1594 ----
           (byte-compile-last-position byte-compile-read-position)
           (byte-compile-last-warned-form 'nothing)
           (value (eval
!                  (let ((read-with-symbol-positions (current-buffer))
                         (read-symbol-positions-list nil))
                     (displaying-byte-compile-warnings
                      (byte-compile-sexp (read (current-buffer))))))))