diff options
| author | Stefan Monnier <monnier@iro.umontreal.ca> | 2000-12-08 16:58:57 +0000 |
|---|---|---|
| committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2000-12-08 16:58:57 +0000 |
| commit | ee8d23ee92c1ac862e452ee89b97dd5c7c00251f (patch) | |
| tree | 454677ecfd5d4dcd29d8114d7c25d48e0b6931ac /lisp/pcvs.el | |
| parent | 8e41e2e5e8d30f4e8cbc48d435b02c090903514d (diff) | |
| download | emacs-ee8d23ee92c1ac862e452ee89b97dd5c7c00251f.tar.gz | |
* pcvs.el (cvs-menu): Use `cvs-menu' rather than `cvs-menu-map'.
(cvs-mode-quit): Turn it back into a plain function.
Diffstat (limited to 'lisp/pcvs.el')
| -rw-r--r-- | lisp/pcvs.el | 12 |
1 files changed, 9 insertions, 3 deletions
diff --git a/lisp/pcvs.el b/lisp/pcvs.el index 97785a63623..8013a51f06a 100644 --- a/lisp/pcvs.el +++ b/lisp/pcvs.el @@ -14,7 +14,7 @@ ;; Maintainer: (Stefan Monnier) monnier+lists/cvs/pcl@flint.cs.yale.edu ;; Keywords: CVS, version control, release management ;; Version: $Name: $ -;; Revision: $Id: pcvs.el,v 1.18 2000/11/21 20:47:49 monnier Exp $ +;; Revision: $Id: pcvs.el,v 1.19 2000/12/06 19:36:20 fx Exp $ ;; This file is part of GNU Emacs. @@ -52,10 +52,16 @@ ;; To use PCL-CVS just use `M-x cvs-examine RET <dir> RET'. ;; There is a TeXinfo manual, which can be helpful to get started. +;;; Bugs: + +;; - can somehow ignore important messages like `co aborted' or +;; or `co: output error: No space left on device'. + ;;; Todo: ;; ******** FIX THE DOCUMENTATION ********* ;; +;; - rework the displaying of error messages. ;; - use UP-TO-DATE rather than DEAD when cleaning before `examine'. ;; - allow to flush messages only ;; - allow to protect files like ChangeLog from flushing @@ -198,7 +204,7 @@ (let ((cvs-minor-current-files (list (ewoc-data (ewoc-locate cvs-cookies (posn-point (event-end e))))))) - (popup-menu cvs-menu-map e))) + (popup-menu cvs-menu e))) (defvar cvs-mode-line-process nil "Mode-line control for displaying info on cvs process status.") @@ -1052,7 +1058,7 @@ Full documentation is in the Texinfo file." (error "Inconsistent %s in buffer %s" check (buffer-name buf))))) -(defun-cvs-mode cvs-mode-quit () +(defun cvs-mode-quit () "Quit PCL-CVS, killing the *cvs* buffer." (interactive) (and (y-or-n-p "Quit pcl-cvs? ") (kill-buffer (current-buffer)))) |