This mail is an automated notification from the bugs tracker of the project: xtla.el.
/**************************************************************************/ [bugs #1798] Full Item Snapshot: URL: <http://gna.org/bugs/?func=detailitem&item_id=1798> Project: xtla.el Submitted by: Robert Widhopf-Fenk On: Don 28.10.2004 um 00:16 Category: xtla.el Priority: 1 - Later Resolution: None Assigned to: None Originator Email: Status: Open Planned Release: 0.9 Type of request: important bug Merge available: No merge request: Fixed Release: Test case in xtla-tests.el: Summary: Somewhere in patch 542-551 from [EMAIL PROTECTED] was the following patch causing the attache Original Submission: Somewhere in patch 542-551 from [EMAIL PROTECTED] was the following patch causing the attached error when running M-x tla-logs ... @@ -3766,7 +3769,9 @@ (when (and ',callback (zerop tla--nb-active-processes)) (funcall ',callback))) - (ewoc-refresh ,cookie))))) + (let* ((cur (ewoc-locate tla-revision-list-cookie))) + (ewoc-refresh ,cookie) + (goto-char (ewoc-location cur))))))) (if last-node (setq last-node (ewoc-enter-after cookie last-node elem)) Signaling: (wrong-type-argument arrayp nil) ewoc-location(nil) (goto-char (ewoc-location cur)) (let* ((cur ...)) (ewoc-refresh [cl-struct-ewoc #<buffer "*tla-logs*"> tla-revision-list-printer ... ... ... nil]) (goto-char (ewoc-location cur))) (lambda (output error status arguments) (with-current-buffer output (setf ... ...) (setf ... ...) (setf ... ...) (setf ... ...)) (with-current-buffer #<buffer "*tla-logs*"> (setq tla--nb-active-processes ...) (when ... ...)) (let* (...) (ewoc-refresh ...) (goto-char ...)))(#<buffer " [EMAIL PROTECTED]"> nil 0 "cat-log") funcall((lambda (output error status arguments) (with-current-buffer output (setf ... ...) (setf ... ...) (setf ... ...) (setf ... ...)) (with-current-buffer #<buffer "*tla-logs*"> (setq tla--nb-active-processes ...) (when ... ...)) (let* (...) (ewoc-refresh ...) (goto-char ...))) #<buffer " [EMAIL PROTECTED]"> nil 0 "cat-log") (if async-handler (funcall async-handler buffer nil 0 "cat-log") buffer) (if buffer (if async-handler (funcall async-handler buffer nil 0 "cat-log") buffer) (let* (...) (let ... ...))) (let* ((lib-log ...) (buffer ...)) (if buffer (if async-handler ... buffer) (let* ... ...))) tla--cat-log-any(("[EMAIL PROTECTED]" "xtla" "main" "0.1" "base-0") nil (lambda (output error status arguments) (with-current-buffer output (setf ... ...) (setf ... ...) (setf ... ...) (setf ... ...)) (with-current-buffer #<buffer "*tla-logs*"> (setq tla--nb-active-processes ...) (when ... ...)) (let* (...) (ewoc-refresh ...) (goto-char ...)))) (save-current-buffer (set-buffer (ewoc-buffer cookie)) (setq tla--nb-active-processes (+ tla--nb-active-processes 1)) (tla--cat-log-any (tla--name-split revision) nil (backquote ...))) (with-current-buffer (ewoc-buffer cookie) (setq tla--nb-active-processes (+ tla--nb-active-processes 1)) (tla--cat-log-any (tla--name-split revision) nil (backquote ...))) (if (or tla-revisions-shows-summary tla-revisions-shows-creator tla-revisions-shows-date tla-revisions-shows-merges tla-revisions-shows-merged-by) (with-current-buffer (ewoc-buffer cookie) (setq tla--nb-active-processes ...) (tla--cat-log-any ... nil ...))) (when (or tla-revisions-shows-summary tla-revisions-shows-creator tla-revisions-shows-date tla-revisions-shows-merges tla-revisions-shows-merged-by) (with-current-buffer (ewoc-buffer cookie) (setq tla--nb-active-processes ...) (tla--cat-log-any ... nil ...))) (let* ((rev-struct ...) (elem ...)) (when (or tla-revisions-shows-summary tla-revisions-shows-creator tla-revisions-shows-date tla-revisions-shows-merges tla-revisions-shows-merged-by) (with-current-buffer ... ... ...)) (if last-node (setq last-node ...) (ewoc-enter-last cookie elem))) (while (progn (> ... ...)) (setq revision (buffer-substring-no-properties ... ...)) (forward-line 1) (let* (... ...) (when ... ...) (if last-node ... ...))) (save-current-buffer (set-buffer (with-current-buffer buffer ...)) (goto-char (point-min)) (re-search-forward ".*/.*--.*--.*--.*" nil t) (beginning-of-line) (while (progn ...) (setq revision ...) (forward-line 1) (let* ... ... ...)) (kill-buffer (current-buffer))) (with-current-buffer (with-current-buffer buffer (clone-buffer)) (goto-char (point-min)) (re-search-forward ".*/.*--.*--.*--.*" nil t) (beginning-of-line) (while (progn ...) (setq revision ...) (forward-line 1) (let* ... ... ...)) (kill-buffer (current-buffer))) (let ((last-node parent-node) revision) (with-current-buffer (with-current-buffer buffer ...) (goto-char ...) (re-search-forward ".*/.*--.*--.*--.*" nil t) (beginning-of-line) (while ... ... ... ...) (kill-buffer ...)) (with-current-buffer (ewoc-buffer cookie) (setq tla--nb-active-processes ...) (when ... ...))) tla--revisions-parse-list(logs nil nil #<buffer " *tla-process*<xtla-196>"> nil [cl-struct-ewoc #<buffer "*tla-logs*"> tla-revision-list-printer [[... #1 DL-LIST #<marker at 3 in *tla-logs* 0x8857c94>] [#1 ... "" #<marker at 2 in *tla-logs* 0x8857cdc>] "" #<marker at 1 in *tla-logs* 0x8857cf4>] [[... #1 "" #<marker at 1 in *tla-logs* 0x8857cf4>] [#1 ... DL-LIST #<marker at 3 in *tla-logs* 0x8857c94>] "" #<marker at 2 in *tla-logs* 0x8857cdc>] [[... #1 "" #<marker at 2 in *tla-logs* 0x8857cdc>] [#1 ... "" #<marker at 1 in *tla-logs* 0x8857cf4>] DL-LIST #<marker at 3 in *tla-logs* 0x8857c94>] nil]) (let ((buffer ...)) (tla-switch-to-buffer buffer) (tla-revision-list-mode) (tla--revisions-parse-list (quote logs) nil nil output nil tla-revision-list-cookie) (set (make-local-variable ...) (quote tla-logs))) (lambda (output error status arguments) (let (...) (tla-switch-to-buffer buffer) (tla-revision-list-mode) (tla--revisions-parse-list ... nil nil output nil tla-revision-list-cookie) (set ... ...)))(#<buffer " *tla-process*<xtla-196>"> #<buffer " *tla-errors*<xtla-196>"> 0 ("logs" "--full")) funcall((lambda (output error status arguments) (let (...) (tla-switch-to-buffer buffer) (tla-revision-list-mode) (tla--revisions-parse-list ... nil nil output nil tla-revision-list-cookie) (set ... ...))) #<buffer " *tla-process*<xtla-196>"> #<buffer " *tla-errors*<xtla-196>"> 0 ("logs" "--full")) (cond ((and ... ...) (funcall ... #<buffer " *tla-process*<xtla-196>"> #<buffer " *tla-errors*<xtla-196>"> status ...)) ((eq state ...) (funcall ... #<buffer " *tla-process*<xtla-196>"> #<buffer " *tla-errors*<xtla-196>"> status ...)) ((eq state ...) (funcall ... #<buffer " *tla-process*<xtla-196>"> #<buffer " *tla-errors*<xtla-196>"> status ...))) (unwind-protect (cond (... ...) (... ...) (... ...))) (let ((state ...) (status ...)) (unwind-protect (cond ... ... ...)) (unless nil (tla--kill-process-buffer #<buffer " *tla-process*<xtla-196>">)) (unless nil (tla--kill-process-buffer #<buffer " *tla-errors*<xtla-196>">))) (let ((default-directory "/tmp/xtla-196/")) (tla--log-event #<buffer " *tla-process*<xtla-196>"> #<buffer " *tla-errors*<xtla-196>"> "tla logs --full" "/tmp/xtla-196/" (tla--strip-final-newline event)) (setq tla-process-running (delq ... tla-process-running)) (when (file-exists-p "/tmp/arch-errors-DBSgY") (with-current-buffer #<buffer " *tla-errors*<xtla-196>"> ...) (delete-file "/tmp/arch-errors-DBSgY")) (let (... ...) (unwind-protect ...) (unless nil ...) (unless nil ...))) (lambda (process event) (let (...) (tla--log-event #<buffer " *tla-process*<xtla-196>"> #<buffer " *tla-errors*<xtla-196>"> "tla logs --full" "/tmp/xtla-196/" ...) (setq tla-process-running ...) (when ... ... ...) (let ... ... ... ...)))(#<process "tla" pid 4677 state:exit> "finishedn") sit-for(4) execute-extended-command(nil) call-interactively(execute-extended-command) For detailed info, follow this link: <http://gna.org/bugs/?func=detailitem&item_id=1798> _______________________________________________ Message sent via/by Gna! http://gna.org/
