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)) |
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 |
|
|