This mail is an automated notification from the bugs tracker
of the project: xtla.el.
/**************************************************************************/
[bugs #1797] Latest Modifications:
Changes by:
Matthieu MOY <[EMAIL PROTECTED]>
'Date:
Thu 10/28/2004 at 08:44 (Europe/Paris)
What | Removed | Added
---------------------------------------------------------------------------
Resolution | None | Fixed
Assigned to | None | moy
Status | Open | Closed
Merge available | No | Already merged
merge request | | [EMAIL PROTECTED]
Fixed Release | | [EMAIL PROTECTED]
/**************************************************************************/
[bugs #1797] Full Item Snapshot:
URL: <http://gna.org/bugs/?func=detailitem&item_id=1797>
Project: xtla.el
Submitted by: Robert Widhopf-Fenk
On: Thu 10/28/2004 at 02:15
Category: xtla.el
Priority: 7 - High
Resolution: Fixed
Assigned to: moy
Originator Email:
Status: Closed
Planned Release: 0.9
Type of request: important bug
Merge available: Already merged
merge request: [EMAIL PROTECTED]
Fixed Release: [EMAIL PROTECTED]
Test case in xtla-tests.el:
Summary: tla-logs was broken by merge from trunk (patch 542-551)
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=1797>
_______________________________________________
Message sent via/by Gna!
http://gna.org/
