/[emacs]/emacs/lisp/emacs-lisp/bytecomp.el
ViewVC logotype

Diff of /emacs/lisp/emacs-lisp/bytecomp.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 2.107 by rms, Wed Jul 24 03:58:02 2002 UTC revision 2.108 by rms, Thu Jul 25 18:18:10 2002 UTC
# Line 848  Each function's symbol gets marked with Line 848  Each function's symbol gets marked with
848    "Last known character position in the input.")    "Last known character position in the input.")
849    
850  ;; copied from gnus-util.el  ;; copied from gnus-util.el
851  (defun byte-compile-delete-first (elt list)  (defsubst byte-compile-delete-first (elt list)
852    (if (eq (car list) elt)    (if (eq (car list) elt)
853        (cdr list)        (cdr list)
854      (let ((total list))      (let ((total list))
# Line 872  Each function's symbol gets marked with Line 872  Each function's symbol gets marked with
872  ;; gross hack?  And the answer, of course, would be yes.  ;; gross hack?  And the answer, of course, would be yes.
873  (defun byte-compile-set-symbol-position (sym &optional allow-previous)  (defun byte-compile-set-symbol-position (sym &optional allow-previous)
874    (when byte-compile-read-position    (when byte-compile-read-position
875      (let ((last nil))      (let (last entry)
876        (while (progn        (while (progn
877                 (setq last byte-compile-last-position)             (setq last byte-compile-last-position
878                 (let* ((entry (assq sym read-symbol-positions-list))               entry (assq sym read-symbol-positions-list))
879                        (cur (cdr entry)))             (when entry
880                   (setq byte-compile-last-position             (setq byte-compile-last-position
881                         (if cur               (+ byte-compile-read-position (cdr entry))
882                             (+ byte-compile-read-position cur)               read-symbol-positions-list
883                           last))               (byte-compile-delete-first
884                   (setq                entry read-symbol-positions-list)))
                   read-symbol-positions-list  
                   (byte-compile-delete-first entry read-symbol-positions-list)))  
885                 (or (and allow-previous (not (= last byte-compile-last-position)))                 (or (and allow-previous (not (= last byte-compile-last-position)))
886                     (> last byte-compile-last-position)))))))                     (> last byte-compile-last-position)))))))
887    

Legend:
Removed from v.2.107  
changed lines
  Added in v.2.108

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26