[Emacs-diffs] Changes to emacs/lisp/pcvs.el

[Stefan Monnier]

Index: emacs/lisp/pcvs.el
diff -c emacs/lisp/pcvs.el:1.56 emacs/lisp/pcvs.el:1.57
*** emacs/lisp/pcvs.el:1.56     Mon May 12 14:16:43 2003
--- emacs/lisp/pcvs.el  Tue May 13 11:22:39 2003
***************
*** 444,455 ****
         (setq default-directory dir)
         (setq buffer-read-only nil)
         (erase-buffer)
!        (insert "\
! Repository : " (directory-file-name (cvs-get-cvsroot)) "
! Module     : " (cvs-get-module) "
! Working dir: " (abbreviate-file-name dir) "
! 
! ")
         (setq buffer-read-only t)
         (cvs-mode)
         (set (make-local-variable 'list-buffers-directory) buffer-name)
--- 444,460 ----
         (setq default-directory dir)
         (setq buffer-read-only nil)
         (erase-buffer)
!        (insert "Repository : " (directory-file-name (cvs-get-cvsroot))
!                "\nModule     : " (cvs-get-module)
!                "\nWorking dir: " (abbreviate-file-name dir)
!                (if (not (file-readable-p "CVS/Tag")) "\n"
!                  (let ((tag (cvs-file-to-string "CVS/Tag")))
!                    (cond
!                     ((string-match "\\`T" tag)
!                      (concat "\nTag        : " (substring tag 1)))
!                     ((string-match "\\`D" tag)
!                      (concat "\nDate       : " (substring tag 1)))
!                     ("")))))
         (setq buffer-read-only t)
         (cvs-mode)
         (set (make-local-variable 'list-buffers-directory) buffer-name)
***************
*** 1059,1065 ****
    (cvs-prefix-set 'cvs-force-command arg))
  
  (put 'cvs-mode 'mode-class 'special)
! (define-derived-mode cvs-mode fundamental-mode "CVS"
    "Mode used for PCL-CVS, a frontend to CVS.
  Full documentation is in the Texinfo file."
    (setq mode-line-process
--- 1064,1070 ----
    (cvs-prefix-set 'cvs-force-command arg))
  
  (put 'cvs-mode 'mode-class 'special)
! (define-derived-mode cvs-mode nil "CVS"
    "Mode used for PCL-CVS, a frontend to CVS.
  Full documentation is in the Texinfo file."
    (setq mode-line-process
***************
*** 1068,1073 ****
--- 1073,1080 ----
               ("" cvs-branch-prefix (cvs-secondary-branch-prefix
                                      ("->" cvs-secondary-branch-prefix))))
          " " cvs-mode-line-process))
+   (if buffer-file-name
+       (error "Use M-x cvs-quickdir to get a *cvs* buffer."))
    (buffer-disable-undo)
    ;;(set (make-local-variable 'goal-column) cvs-cursor-column)
    (set (make-local-variable 'revert-buffer-function) 'cvs-mode-revert-buffer)