Commit ee8d23ee authored by Stefan Monnier's avatar Stefan Monnier
Browse files

* pcvs.el (cvs-menu): Use `cvs-menu' rather than `cvs-menu-map'.

(cvs-mode-quit): Turn it back into a plain function.
parent 8e41e2e5
2000-12-08 Stefan Monnier <>
* pcvs-defs.el (cvs-menu): Move. Make submenu for diff commands.
(cvs-menu-map): Remove.
* pcvs.el (cvs-menu): Use `cvs-menu' rather than `cvs-menu-map'.
(cvs-mode-quit): Turn it back into a plain function.
* textmodes/texnfo-upd.el (texinfo-chapter-level-regexp)
(texinfo-filter): Removed (moved to texinfo.el).
(texinfo-filter): Remove (move to texinfo.el).
* textmodes/texinfo.el: Move the (require 'cl) to the front of the
file where it's more visible.
......@@ -14,7 +14,7 @@
;; Maintainer: (Stefan Monnier) monnier+lists/cvs/
;; 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."
(and (y-or-n-p "Quit pcl-cvs? ") (kill-buffer (current-buffer))))
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment