[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/pcvs.el
From: |
Stefan Monnier |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/pcvs.el |
Date: |
Tue, 13 May 2003 11:22:39 -0400 |
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)
- [Emacs-diffs] Changes to emacs/lisp/pcvs.el, Sam Steingold, 2003/05/09
- [Emacs-diffs] Changes to emacs/lisp/pcvs.el, Stefan Monnier, 2003/05/09
- [Emacs-diffs] Changes to emacs/lisp/pcvs.el, Stefan Monnier, 2003/05/12
- [Emacs-diffs] Changes to emacs/lisp/pcvs.el, Stefan Monnier, 2003/05/12
- [Emacs-diffs] Changes to emacs/lisp/pcvs.el,
Stefan Monnier <=
- [Emacs-diffs] Changes to emacs/lisp/pcvs.el, Stefan Monnier, 2003/05/14
- [Emacs-diffs] Changes to emacs/lisp/pcvs.el, Stefan Monnier, 2003/05/23