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

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

On Sat, Aug 25 2007, Reiner Steib wrote:

[ (add-hook 'cvs-mode-hook
            (lambda ()
              (add-hook 'change-major-mode-hook 'debug nil t))) ]
> I added it to my init files.

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

--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 "[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])
  cvs-mode-add-change-log-entry-other-window()
  call-interactively(cvs-mode-add-change-log-entry-other-window)
--8<---------------cut here---------------end--------------->8---

*Messages* didn't show anything interesting:

--8<---------------cut here---------------start------------->8---
Running cvs update ...
CVS process has completed in *cvs*
Loading debug...done
Entering debugger...
--8<---------------cut here---------------end--------------->8---

The *cvs* buffer looked as follows.  On the line "m.sh", I hit `A':

--8<---------------cut here---------------start------------->8---
Repository : d:/Repository
Module     : foo/tools
Working dir: d:/work/foo/tools/

In directory .:
committed   * Up-To-Date  1.81        ChangeLog
              Modified                c.sh
            * Modified                m.sh
              Unknown                 u.sh.TEST

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

Additionally, I noticed that the content of the ChangeLog file had
been erased (!!!) and content belonging to the *cvs* buffer has been
put in the ChangeLog buffer:

--8<---------------cut here---------------start------------->8---
2007-08-29  Reiner Steib  <reiner.steib@...>

	* m.sh (Module, Usage): 

Repository : d:/Repository
Module     : foo/tools
Working dir: d:/work/foo/tools/

In directory .:
            * Modified                ChangeLog
              Modified                c.sh
            * Modified                m.sh
              Unknown                 u.sh.TEST

--------------------- End ---------------------
-- last cmd: cvs -f update -d -P --

--8<---------------cut here---------------end--------------->8---

I have ChangeLog under VC so it was no big deal to restore it (and
probably) undo would have worked as well, but erasing data in such a
situation is a serious problem.

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