[Xtla-el-dev] emacs error when changing focus during commit

Wed, 31 May 2006 08:41:15 -0700 

see article http://article.gmane.org/gmane.emacs.xtla.devel:1930
and its thread:



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.

  


Emacs  : GNU Emacs 22.0.50.3 (i686-pc-linux-gnu, X toolkit, Xaw3d scroll bars)
 of 2006-05-30 on quant8
Package: Xtla 1.2 ([EMAIL PROTECTED]/xtla--main--1.2--versionfix-4)

current state:
==============
(setq
 emacs-version "22.0.50.3"
 tla-version "1.2 ([EMAIL PROTECTED]/xtla--main--1.2--versionfix-4)"
 tla-arch-version "baz Bazaar version 1.4.2 ([EMAIL 
PROTECTED]/dists--bazaar--1.4[bazaar--devo.cfg])\nfrom Canonical Ltd. and other 
members of the arch community\n\nCopyright 2004,2005 Canonical Ltd.\nCopyright 
2003 Tom Lord.\nCopyright 2003-2005 Various Contributors\n\nThis is free 
software; see the source for copying conditions.\nThere is NO warranty; not 
even for MERCHANTABILITY or FITNESS FOR A\nPARTICULAR PURPOSE.\n\nReport bugs 
to [EMAIL PROTECTED] version 1.4.2 ([EMAIL 
PROTECTED]/dists--bazaar--1.4[bazaar--devo.cfg])\n"
 tla-apply-patch-mapping nil
 tla-arch-branch 'baz
 tla-archive-list-mode-hook nil
 tla-automatically-revert-buffers t
 tla-baz-executable "baz"
 tla-bookmarks-cleanup-dont-prompt nil
 tla-bookmarks-file-name "bookmarks.el"
 tla-bookmarks-mode-hook nil
 tla-branch-list-mode-hook nil
 tla-buffer-quit-mode 'kill
 tla-button-face 'bold
 tla-button-revision-fn 'tla-cat-log-any
 tla-cat-log-mode-hook nil
 tla-category-list-mode-hook nil
 tla-changes-recursive t
 tla-commit-check-log-buffer-functions '(tla-commit-check-empty-headers
                                         tla-commit-check-empty-line
                                         tla-commit-check-missing-space)
 tla-commit-done-hook '(tla-kill-all-buffers)
 tla-commit-fix-missing-space t
 tla-commit-headers-allowed-to-be-empty "^\\(Keywords\\)$"
 tla-config-directory "~/.xtla/"
 tla-description-format '(patch-id "\n  " summary "\n  Located at: " location
                          "\n")
 tla-diff-executable "diff"
 tla-do-not-prompt-for-save nil
 tla-dont-hyperlink-changelog nil
 tla-error-buffer " *%s-errors*"
 tla-follow-symlinks 'tree
 tla-follow-symlinks-mode 'follow
 tla-format-line-function nil
 tla-generate-line-function nil
 tla-highlight t
 tla-install-command-help-system t
 tla-inventory-display-backup t
 tla-inventory-display-junk t
 tla-inventory-display-precious t
 tla-inventory-display-source t
 tla-inventory-display-tree t
 tla-inventory-display-unrecognized t
 tla-inventory-file-mode-hook nil
 tla-inventory-mode-hook nil
 tla-log-buffer " *tla-log*"
 tla-log-commands t
 tla-log-edit-keywords '("bugfix" "docfix" "warnfix" "linting" "newfeature"
                         "merge" "update" "rename" "delete" "newfile")
 tla-log-edit-mode-hook '(flyspell-mode-on)
 tla-log-insert-last t
 tla-log-library "~/.arch-log-library/"
 tla-log-library-greedy t
 tla-logs-mode-hook nil
 tla-mail-notification-destination nil
 tla-make-archive-hook nil
 tla-make-branch-hook nil
 tla-make-category-hook nil
 tla-make-log-function 'tla-default-make-log-function
 tla-make-version-hook nil
 tla-mouse-face 'highlight
 tla-name-read-error-hook '(tla--name-read-insert-info-at-point-final)
 tla-name-read-final-hook '(tla--name-read-insert-info-at-point-final)
 tla-name-read-init-hook '(tla--name-read-insert-bookmark-init
                           tla--name-read-insert-partner-init
                           tla--name-read-insert-info-at-point-init)
 tla-non-recursive-inventory t
 tla-number-of-dead-process-buffer 20
 tla-password-prompt-regexp "[Pp]ass\\(word\\|phrase\\).*:\\s *\\'"
 tla-patch-executable "patch"
 tla-patch-sent-action 'keep-tarball
 tla-prefix-key [f6]
 tla-process-buffer " *%s-process*"
 tla-read-directory-mode 'sometimes
 tla-read-project-tree-mode 'sometimes
 tla-revision-list-mode-hook nil
 tla-revisions-shows-creator t
 tla-revisions-shows-date t
 tla-revisions-shows-library t
 tla-revisions-shows-merged-by t
 tla-revisions-shows-merges nil
 tla-revisions-shows-summary t
 tla-send-comments-format "Your patch %c--%b--%v--%r (%t)"
 tla-send-comments-width 25
 tla-show-ancestor nil
 tla-show-internal-buffers-on-menu t
 tla-state-file-name "state.el"
 tla-state-variables-list '(tla-tips-number)
 tla-strict-commits nil
 tla-submit-patch-mapping '(((nil "xtla" nil nil nil)
                             ("[email protected]" "xtla"))
                            )
 tla-switch-to-buffer-first t
 tla-switch-to-buffer-mode 'pop-to-buffer
 tla-switch-to-changes-buffer nil
 tla-tag-does-cacherev 'ask
 tla-tag-function 'tla-tag-uuid
 tla-three-way-merge t
 tla-tips-enabled t
 tla-tla-executable "tla"
 tla-update-recursive t
 tla-update-strategy 'merge
 tla-use-arrow-keys-for-navigation nil
 tla-use-skip-present-option nil
 tla-version-list-mode-hook nil
 tla-version-to-name-function nil
 features '(reporter tabify man ps-mule ps-print lpr inf-lisp cal-iso
            diary-lib cal-china lunar cal-islam cal-hebrew holidays mule-util
            cal-move cal-x gnus-draft derived rfc1843 nndoc rot13 warnings
            grep make-mode dired-aux jka-compr xtla-tips quail flyspell xtla
            smerge-mode xtla-core xtla-autoconf pp xtla-version xtla-lisp
            xtla-emacs log-edit tramp-vc vc-rcs vc skeleton sh-script pcvs
            pcvs-parse pcvs-info pcvs-defs pcvs-util ewoc kmacro flow-fill
            dabbrev bbdb-w3 mailalias smtpmail cookie1 bbdb-hooks gnus-cite
            smiley gnus-agent gnus-srvr nnvirtual gnus-bcklg sort vc-arch caml
            tuareg speedbar sb-image ezimage dframe assoc caml-help caml-types
            caml-emacs gnus-async gnus-score score-mode gnus-dup gnus-ml
            disp-table spam spam-stat gnus-uu gnus-msg gnus-nocem gnus-cache
            time-stamp vc-cvs find-func loadhist parse-time debug pop3
            nnfolder utf7 starttls nnimap imap nndraft nnmh bbdb-gnus gnus-art
            mm-uu mml2015 pgg pgg-parse pgg-def mm-view gnus-sum gnus-group
            gnus-undo bbdb-snarf mail-extr gnus-demon nnmail mail-source nntp
            nnoo tramp-smb tramp-ftp tramp format-spec trampver gnus-start
            gnus-spec gnus-int gnus-range gnus-win gnus gnus-ems midnight appt
            solar cal-dst cal-persia cal-julian calendar cal-menu dired ispell
            message rfc822 mml mml-sec mml-smime smime dig mm-decode mm-bodies
            mm-encode mailcap mail-parse rfc2045 rfc2231 rfc2047 qp ietf-drums
            nnheader gnus-util time-date mm-util mail-prsvr mail-utils
            gmm-utils wid-edit mailheader canlock sha1 hex-util netrc bbdb-com
            mailabbrev bbdb-autoloads bbdb timezone server paren complete
            url-handlers which-func imenu etags sendmail tex-mode help-at-pt
            diff compile newcomment ess-toolbar ess-mous mouseme thingatpt
            browse-url ess-menu ess-swv ess-noweb noweb-font-lock-mode
            essl-bug essd-omg essl-omg essd-els essd-sas essl-sas essa-sas
            executable shell essd-arc essd-vst essd-xls essl-lsp essd-sta
            essl-sta cc-vars cc-defs make-regexp essd-sp6 essd-sp5 essd-sp3
            essd-r essl-s ess-inf ess-utils comint ring ess-mode noweb-mode
            ess ess-cust regexp-opt ess-emcs ess-site xtla-defs xtla-site ffap
            add-log diff-mode easy-mmode ediff ediff-util ediff-merg
            ediff-diff ediff-wind ediff-help ediff-mult ediff-init cus-start
            cus-load xtla-autoloads easymenu byte-opt bytecomp byte-compile
            advice help-fns help-mode view button advice-preload cl cl-19
            tooltip ediff-hook vc-hooks lisp-float-type x-dnd tool-bar mwheel
            dnd fontset image fringe lisp-mode register page menu-bar
            rfn-eshadow timer select scroll-bar mldrag mouse jit-lock
            font-lock syntax facemenu font-core frame ucs-tables georgian
            utf-8-lang misc-lang vietnamese tibetan thai lao korean japanese
            hebrew greek romanian slovak czech european ethiopic kannada tamil
            malayalam devanagari indian cyrillic chinese case-table
            jka-cmpr-hook help simple faces cus-face text-properties overlay
            md5 base64 format mule env custom widget backquote
            make-network-process x-toolkit x emacs)
 )
-- 
Sam Steingold (http://www.podval.org/~sds) on Fedora Core release 5 (Bordeaux)
http://ffii.org http://camera.org http://jihadwatch.org
http://memri.org http://dhimmi.com http://truepeace.org http://mideasttruth.com
(lisp programmers do it better)

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

Reply via email to