[Xtla-el-dev] Re: xtla.el: tla-kill-all-buffers

Fri, 12 May 2006 06:38:59 -0700 

> * Sam Steingold <[EMAIL PROTECTED]> [2006-05-10 10:25:14 -0400]:
>> * Sam Steingold <[EMAIL PROTECTED]> [2006-05-10 08:46:35 -0400]:
>>> * Matthieu Moy <[EMAIL PROTECTED]> [2006-05-10 08:54:03 +0200]:
>>> Sam Steingold <[EMAIL PROTECTED]> writes:
>>>
>>>> there is no file on disk in the directory associated with the "++..."
>>>> buffer that corresponds to this buffer.
>>>
>>> How did you commit ? If I commit with C-c C-c in the log buffer, the
>>> ++log... file gets killed when the commit succeeds ...
>>
>> I also use C-c C-c.
>
> I just did a commit and the "++..." buffer is not there.
> I wonder why is survived a previous commit.

OK, here is how to reproduce the bug:

1. modify a file

2. M-x tla-changes RET

3. in *baz-changes*: M-x tla-changes-edit-log

4. in ++....: C-c C-c

      and now, __BEFORE__ the commit finishes(!!!)
      move the mouse to a different frame with a buffer
      that is __NOT__ under arch

      when commit finishes, you get this error:

Debugger entered--Lisp error: (error "\"/home/sds/R/\" is not in an 
arch-managed tree!")
  signal(error ("\"/home/sds/R/\" is not in an arch-managed tree!"))
  error("%S is not in an arch-managed tree!" "/home/sds/R/")
  tla-tree-root()
  #[nil "ÆÇ\"ˆÈÉ!ˆ     ÊËÌ \"ÊÍÌ \"[EMAIL 
PROTECTED]"ˆÒÓÔ#ˆÕÖ\"ˆ×!ˆ*\fA‰„*…Z
$‡" [output tla-pre-commit-window-configuration 
tla--buffer-previous-window-config buffer --cl-dolist-temp-- inhibit-read-only 
tla--show-error-buffer commit run-hooks tla-commit-done-hook tla--get-buffer 
changes tla-tree-root status nil t ewoc-filter #[... "[EMAIL PROTECTED]" [x 
subtree] 2] ewoc-set-hf "" "" ewoc-enter-first (message "* Just committed! 
Please refresh buffer\n") ewoc-refresh tla-changes-cookie tla--gensym-uniq-56 
tla--gensym-uniq-57 error arguments] 5]()
  funcall(#[nil "ÆÇ\"ˆÈÉ!ˆ     ÊËÌ \"ÊÍÌ \"[EMAIL 
PROTECTED]"ˆÒÓÔ#ˆÕÖ\"ˆ×!ˆ*\fA‰„*…Z
$‡" [output tla-pre-commit-window-configuration 
tla--buffer-previous-window-config buffer --cl-dolist-temp-- inhibit-read-only 
tla--show-error-buffer commit run-hooks tla-commit-done-hook tla--get-buffer 
changes tla-tree-root status nil t ewoc-filter #[... "[EMAIL PROTECTED]" [x 
subtree] 2] ewoc-set-hf "" "" ewoc-enter-first (message "* Just committed! 
Please refresh buffer\n") ewoc-refresh tla-changes-cookie tla--gensym-uniq-56 
tla--gensym-uniq-57 error arguments] 5])
  (let ((tla--gensym-uniq-57 ...) (tla--gensym-uniq-56 ...)) (funcall #[nil 
"ÆÇ\"ˆÈÉ!ˆ ÊËÌ \"ÊÍÌ \"[EMAIL 
PROTECTED]"ˆÒÓÔ#ˆÕÖ\"ˆ×!ˆ*\fA‰„*…Z
$‡" [output tla-pre-commit-window-configuration 
tla--buffer-previous-window-config buffer --cl-dolist-temp-- inhibit-read-only 
tla--show-error-buffer commit run-hooks tla-commit-done-hook tla--get-buffer 
changes tla-tree-root status nil t ewoc-filter #[... "[EMAIL PROTECTED]" [x 
subtree] 2] ewoc-set-hf "" "" ewoc-enter-first ... ewoc-refresh 
tla-changes-cookie tla--gensym-uniq-56 tla--gensym-uniq-57 error arguments] 5]))
  (lambda (output error status arguments) (let (... ...) (funcall #[nil 
"ÆÇ\"ˆÈÉ!ˆ     ÊËÌ \"ÊÍÌ \"[EMAIL 
PROTECTED]"ˆÒÓÔ#ˆÕÖ\"ˆ×!ˆ*\fA‰„*…Z
$‡" [output tla-pre-commit-window-configuration 
tla--buffer-previous-window-config buffer --cl-dolist-temp-- inhibit-read-only 
tla--show-error-buffer commit run-hooks tla-commit-done-hook tla--get-buffer 
changes tla-tree-root status nil t ewoc-filter #[... "[EMAIL PROTECTED]" [x 
subtree] 2] ewoc-set-hf "" "" ewoc-enter-first ... ewoc-refresh 
tla-changes-cookie tla--gensym-uniq-56 tla--gensym-uniq-57 error arguments] 
5])))(#<buffer  *baz-process*<3>> #<buffer  *baz-errors*<3>> 0 ("commit"))
  #[nil "Æ\n\f
Ç!%ˆÈ\"É!ƒ,rqˆÊ!ˆ)Ë!ˆÌ!Í!ΎÏ=ƒ[ÐUƒ[ 
†NÑ!\"#$ˆ‚ŒÒ=ƒu$†hÓ%&'$ˆ‚ŒÏ=ƒŒ(†‚Ô)*+$ˆ),„—Õ-!ˆ.?…¡Õ/!+‡"
 [tla--gensym-uniq-0 default-directory tla--gensym-uniq-1 tla--gensym-uniq-2 
tla--gensym-uniq-3 tla--gensym-uniq-4 tla--log-event tla--strip-final-newline 
delq file-exists-p insert-file-contents delete-file process-status 
process-exit-status nil exit 0 tla--default-finish-function signal 
tla--default-killed-function tla--default-error-function 
tla--kill-process-buffer event tla--gensym-uniq-5 tla-process-running 
tla--gensym-uniq-6 tla--gensym-uniq-7 tla--gensym-uniq-8 tla--gensym-uniq-9 
process status state tla--gensym-uniq-10 tla--gensym-uniq-11 
tla--gensym-uniq-12 tla--gensym-uniq-13 tla--gensym-uniq-14 tla--gensym-uniq-15 
tla--gensym-uniq-16 tla--gensym-uniq-17 tla--gensym-uniq-18 tla--gensym-uniq-19 
tla--gensym-uniq-20 tla--gensym-uniq-21 tla--gensym-uniq-22 tla--gensym-uniq-23 
tla--gensym-uniq-24 tla--gensym-uniq-25] 7]()
  funcall(#[nil "Æ\n\f
Ç!%ˆÈ\"É!ƒ,rqˆÊ!ˆ)Ë!ˆÌ!Í!ΎÏ=ƒ[ÐUƒ[ 
†NÑ!\"#$ˆ‚ŒÒ=ƒu$†hÓ%&'$ˆ‚ŒÏ=ƒŒ(†‚Ô)*+$ˆ),„—Õ-!ˆ.?…¡Õ/!+‡"
 [tla--gensym-uniq-0 default-directory tla--gensym-uniq-1 tla--gensym-uniq-2 
tla--gensym-uniq-3 tla--gensym-uniq-4 tla--log-event tla--strip-final-newline 
delq file-exists-p insert-file-contents delete-file process-status 
process-exit-status nil exit 0 tla--default-finish-function signal 
tla--default-killed-function tla--default-error-function 
tla--kill-process-buffer event tla--gensym-uniq-5 tla-process-running 
tla--gensym-uniq-6 tla--gensym-uniq-7 tla--gensym-uniq-8 tla--gensym-uniq-9 
process status state tla--gensym-uniq-10 tla--gensym-uniq-11 
tla--gensym-uniq-12 tla--gensym-uniq-13 tla--gensym-uniq-14 tla--gensym-uniq-15 
tla--gensym-uniq-16 tla--gensym-uniq-17 tla--gensym-uniq-18 tla--gensym-uniq-19 
tla--gensym-uniq-20 tla--gensym-uniq-21 tla--gensym-uniq-22 tla--gensym-uniq-23 
tla--gensym-uniq-24 tla--gensym-uniq-25] 7])
  (let ((tla--gensym-uniq-25 ...) (tla--gensym-uniq-24 ...) 
(tla--gensym-uniq-23 ...) (tla--gensym-uniq-22 ...) (tla--gensym-uniq-21 ...) 
(tla--gensym-uniq-20 ...) (tla--gensym-uniq-19 ...) (tla--gensym-uniq-18 ...) 
(tla--gensym-uniq-17 ...) (tla--gensym-uniq-16 ...) (tla--gensym-uniq-15 ...) 
(tla--gensym-uniq-14 ...) (tla--gensym-uniq-13 ...) (tla--gensym-uniq-12 ...) 
(tla--gensym-uniq-11 ...) (tla--gensym-uniq-10 ...) (tla--gensym-uniq-9 ...) 
(tla--gensym-uniq-8 ...) (tla--gensym-uniq-7 ...) (tla--gensym-uniq-6 ...) 
(tla--gensym-uniq-5 ...) (tla--gensym-uniq-4 ...) (tla--gensym-uniq-3 ...) 
(tla--gensym-uniq-2 ...) (tla--gensym-uniq-1 ...) (tla--gensym-uniq-0 ...)) 
(funcall #[nil "Æ\n\f
Ç!%ˆÈ\"É!ƒ,rqˆÊ!ˆ)Ë!ˆÌ!Í!ΎÏ=ƒ[ÐUƒ[ 
†NÑ!\"#$ˆ‚ŒÒ=ƒu$†hÓ%&'$ˆ‚ŒÏ=ƒŒ(†‚Ô)*+$ˆ),„—Õ-!ˆ.?…¡Õ/!+‡"
 [tla--gensym-uniq-0 default-directory tla--gensym-uniq-1 tla--gensym-uniq-2 
tla--gensym-uniq-3 tla--gensym-uniq-4 tla--log-event tla--strip-final-newline 
delq file-exists-p insert-file-contents delete-file process-status 
process-exit-status nil exit 0 tla--default-finish-function signal 
tla--default-killed-function tla--default-error-function 
tla--kill-process-buffer event tla--gensym-uniq-5 tla-process-running 
tla--gensym-uniq-6 tla--gensym-uniq-7 tla--gensym-uniq-8 tla--gensym-uniq-9 
process status state tla--gensym-uniq-10 tla--gensym-uniq-11 
tla--gensym-uniq-12 tla--gensym-uniq-13 tla--gensym-uniq-14 tla--gensym-uniq-15 
tla--gensym-uniq-16 tla--gensym-uniq-17 tla--gensym-uniq-18 tla--gensym-uniq-19 
tla--gensym-uniq-20 tla--gensym-uniq-21 tla--gensym-uniq-22 tla--gensym-uniq-23 
tla--gensym-uniq-24 tla--gensym-uniq-25] 7]))
  (lambda (process event) (let (... ... ... ... ... ... ... ... ... ... ... ... 
... ... ... ... ... ... ... ... ... ... ... ... ... ...) (funcall #[nil 
"Æ\n\f
Ç!%ˆÈ\"É!ƒ,rqˆÊ!ˆ)Ë!ˆÌ!Í!ΎÏ=ƒ[ÐUƒ[ 
†NÑ!\"#$ˆ‚ŒÒ=ƒu$†hÓ%&'$ˆ‚ŒÏ=ƒŒ(†‚Ô)*+$ˆ),„—Õ-!ˆ.?…¡Õ/!+‡"
 [tla--gensym-uniq-0 default-directory tla--gensym-uniq-1 tla--gensym-uniq-2 
tla--gensym-uniq-3 tla--gensym-uniq-4 tla--log-event tla--strip-final-newline 
delq file-exists-p insert-file-contents delete-file process-status 
process-exit-status nil exit 0 tla--default-finish-function signal 
tla--default-killed-function tla--default-error-function 
tla--kill-process-buffer event tla--gensym-uniq-5 tla-process-running 
tla--gensym-uniq-6 tla--gensym-uniq-7 tla--gensym-uniq-8 tla--gensym-uniq-9 
process status state tla--gensym-uniq-10 tla--gensym-uniq-11 
tla--gensym-uniq-12 tla--gensym-uniq-13 tla--gensym-uniq-14 tla--gensym-uniq-15 
tla--gensym-uniq-16 tla--gensym-uniq-17 tla--gensym-uniq-18 tla--gensym-uniq-19 
tla--gensym-uniq-20 tla--gensym-uniq-21 tla--gensym-uniq-22 tla--gensym-uniq-23 
tla--gensym-uniq-24 tla--gensym-uniq-25] 7])))(#<process baz> "finished\n")


the commit succeeds, but you are left with the live ++... buffer.

  
-- 
Sam Steingold (http://www.podval.org/~sds) on Fedora Core release 5 (Bordeaux)
http://memri.org http://honestreporting.com http://openvotingconsortium.org
http://thereligionofpeace.com http://truepeace.org http://pmw.org.il
Bus error -- driver executed.


_______________________________________________
Xtla-el-dev mailing list
[email protected]
https://mail.gna.org/listinfo/xtla-el-dev

Reply via email to