[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.107 
emacs/lisp/emacs-lisp/bytecomp.el:2.108
*** emacs/lisp/emacs-lisp/bytecomp.el:2.107     Tue Jul 23 23:58:02 2002
--- emacs/lisp/emacs-lisp/bytecomp.el   Thu Jul 25 14:18:10 2002
***************
*** 10,16 ****
  
  ;;; This version incorporates changes up to version 2.10 of the
  ;;; Zawinski-Furuseth compiler.
! (defconst byte-compile-version "$Revision: 2.107 $")
  
  ;; 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.108 $")
  
  ;; This file is part of GNU Emacs.
  
***************
*** 848,854 ****
    "Last known character position in the input.")
  
  ;; copied from gnus-util.el
! (defun byte-compile-delete-first (elt list)
    (if (eq (car list) elt)
        (cdr list)
      (let ((total list))
--- 848,854 ----
    "Last known character position in the input.")
  
  ;; copied from gnus-util.el
! (defsubst byte-compile-delete-first (elt list)
    (if (eq (car list) elt)
        (cdr list)
      (let ((total list))
***************
*** 872,889 ****
  ;; gross hack?  And the answer, of course, would be yes.
  (defun byte-compile-set-symbol-position (sym &optional allow-previous)
    (when byte-compile-read-position
!     (let ((last nil))
        (while (progn
!              (setq last byte-compile-last-position)
!              (let* ((entry (assq sym read-symbol-positions-list))
!                     (cur (cdr entry)))
!                (setq byte-compile-last-position
!                      (if cur
!                          (+ byte-compile-read-position cur)
!                        last))
!                (setq
!                 read-symbol-positions-list
!                 (byte-compile-delete-first entry read-symbol-positions-list)))
               (or (and allow-previous (not (= last 
byte-compile-last-position)))
                   (> last byte-compile-last-position)))))))
  
--- 872,887 ----
  ;; gross hack?  And the answer, of course, would be yes.
  (defun byte-compile-set-symbol-position (sym &optional allow-previous)
    (when byte-compile-read-position
!     (let (last entry)
        (while (progn
!            (setq last byte-compile-last-position
!              entry (assq sym read-symbol-positions-list))
!            (when entry
!            (setq byte-compile-last-position
!              (+ byte-compile-read-position (cdr entry))
!              read-symbol-positions-list
!              (byte-compile-delete-first
!               entry read-symbol-positions-list)))
               (or (and allow-previous (not (= last 
byte-compile-last-position)))
                   (> last byte-compile-last-position)))))))