Re: PCL-CVS: `A' removes cvs-mode from buffer *cvs*

[Reiner Steib <reinersteib+gmane@imap.cc>]

On Wed, Aug 29 2007, Reiner Steib wrote:

> ... and today it triggered (on Windows; Emacs 22.1).  Here's the
> backtrace (byte code stripped, lines wrapped): [...]

Again, today.  Different CVS module, same repository (names changed).

--8<---------------cut here---------------start------------->8---
Repository : d:/foo/bar/Repository
Module     : baz/Dokumentation
Working dir: d:/foo/bar/VersionControl/baz/Dokumentation/

In directory .:
              Unknown                 Anforderungen.txt
              Unknown                 Manual.txt
            * Modified                Namenskonventionen.txt
              Unknown                 Notizen.txt

--------------------- Empty ---------------------
-- last cmd: cvs -f update -d -P --
--8<---------------cut here---------------end--------------->8---

==> Everything okay upto here.

The I made some changes in ChangeLog and save it.  Then I selected
ChangeLog in *cvs* too, and then hit `A' on `Namenskonventionen.txt'.

==> The debug hook triggered.

Output of `<f1> l':

--8<---------------cut here---------------start------------->8---
<down-mouse-1> <mouse-movement> <mouse-1> <up> <up>
<up> <up> <up> A <left> <left> <left> <C-left> <left>
<left> C-M-k C-x C-s <switch-frame> <down-mouse-1>
<mouse-movement> <mouse-1> <up> <up> <up> <up> <up>
A C-a C-k C-k <up> <end> A d d SPC <help-echo> <switch-frame>
<down-mouse-1> <mouse-movement> <mouse-movement> <drag-mouse-1>
<help-echo> <switch-frame> <down-mouse-1> <mouse-1>
<down-mouse-2> <mouse-2> <down-mouse-1> <mouse-movement>
<mouse-1> , SPC C-k <delete> <delete> <delete> <delete>
<delete> <delete> <C-right> <right> a n d C-k <delete>
<delete> <delete> <delete> <delete> <end> . C-x C-s
<switch-frame> <down-mouse-1> <mouse-movement> <mouse-1>
<down-mouse-2> <mouse-2> <down-mouse-1> <mouse-1> A
<switch-frame> <switch-frame> <switch-frame> <help-echo>
<help-echo> <help-echo> C-x 5 b s c r <return> <f1>
l
--8<---------------cut here---------------end--------------->8---

*cvs* buffer:

--8<---------------cut here---------------start------------->8---
Repository : d:/foo/bar/Repository
Module     : baz/Dokumentation
Working dir: d:/foo/bar/VersionControl/baz/Dokumentation/

In directory .:
              Unknown                 Anforderungen.txt
            * Modified                ChangeLog
              Unknown                 Manual.txt
            * Modified                Namenskonventionen.txt
              Unknown                 Notizen.txt

--------------------- Empty ---------------------
-- last cmd: cvs -f update -d -P --
--8<---------------cut here---------------end--------------->8---

Debugger output:

--8<---------------cut here---------------start------------->8---
Debugger entered: nil
  run-hooks(change-major-mode-hook)
  kill-all-local-variables()
  text-mode()
  change-log-mode()
  add-change-log-entry(nil nil t)
  add-change-log-entry-other-window()
  #[nil "[BYTE-CODE-DELETED]" [fi --cl-dolist-temp-- cl-struct-cvs-fileinfo-tags
    d default-directory buffer-file-name cvs-mode-marked nil 0 error
    "cvs-fileinfo->dir accessing a non-cvs-fileinfo" 4
    file-name-as-directory expand-file-name "cvs-fileinfo->file
    accessing a non-cvs-fileinfo" 5 kill-local-variable
    change-log-default-name add-change-log-entry-other-window] 4]()
  #[nil "[BYTE-CODE-DELETED]" [-cvs-mode!-fun commandp call-interactively] 2]()
  cvs-mode!(#[nil "" [fi --cl-dolist-temp--
    cl-struct-cvs-fileinfo-tags d default-directory buffer-file-name
    cvs-mode-marked nil 0 error "cvs-fileinfo->dir accessing a
    non-cvs-fileinfo" 4 file-name-as-directory expand-file-name
    "cvs-fileinfo->file accessing a non-cvs-fileinfo" 5
    kill-local-variable change-log-default-name
    add-change-log-entry-other-window] 4])
  cvs-mode-add-change-log-entry-other-window()
  call-interactively(cvs-mode-add-change-log-entry-other-window)
--8<---------------cut here---------------end--------------->8---

Bye, Reiner.
-- 
       ,,,
      (o o)
---ooO-(_)-Ooo---  |  PGP key available  |  http://rsteib.home.pages.de/