mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-23 07:19:15 +00:00
Code Issues Releases Activity

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

Browse Source 
(cvs-mode-quit): Turn it back into a plain function.
This commit is contained in:
Stefan Monnier 2000-12-08 16:58:57 +00:00
parent 8e41e2e5e8
commit ee8d23ee92
2 changed files with 15 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
lisp/ChangeLog
View File

@ -1,7 +1,12 @@
2000-12-08 Stefan Monnier <monnier@cs.yale.edu>
* 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.

12
lisp/pcvs.el
View File

@ -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))))