Mercurial > emacs

comparison lisp/pcvs.el @ 48445:86325beb168c

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(cvs-minor-mode, cvs-mode-commit-hook): Add group.
author Markus Rost <rost@math.uni-bielefeld.de>
date Mon, 18 Nov 2002 20:53:24 +0000
parents 64107c7851aa
children 62cbd205f3a8
comparison
equal deleted inserted replaced
48444:7a9357cf0aa0 48445:86325beb168c
12 ;; (Stefan Monnier) monnier@cs.yale.edu 12 ;; (Stefan Monnier) monnier@cs.yale.edu
13 ;; (Greg Klanderman) greg@alphatech.com 13 ;; (Greg Klanderman) greg@alphatech.com
14 ;; (Jari Aalto+mail.emacs) jari.aalto@poboxes.com 14 ;; (Jari Aalto+mail.emacs) jari.aalto@poboxes.com
15 ;; Maintainer: (Stefan Monnier) monnier+lists/cvs/pcl@flint.cs.yale.edu 15 ;; Maintainer: (Stefan Monnier) monnier+lists/cvs/pcl@flint.cs.yale.edu
16 ;; Keywords: CVS, version control, release management 16 ;; Keywords: CVS, version control, release management
17 ;; Revision: $Id: pcvs.el,v 1.43 2002/10/26 22:27:15 kfstorm Exp $ 17 ;; Revision: $Id: pcvs.el,v 1.44 2002/11/13 20:19:38 monnier Exp $
18 18
19 ;; This file is part of GNU Emacs. 19 ;; This file is part of GNU Emacs.
20 20
21 ;; GNU Emacs is free software; you can redistribute it and/or modify 21 ;; GNU Emacs is free software; you can redistribute it and/or modify
22 ;; it under the terms of the GNU General Public License as published by 22 ;; it under the terms of the GNU General Public License as published by
336 336
337 (define-minor-mode cvs-minor-mode 337 (define-minor-mode cvs-minor-mode
338 "This mode is used for buffers related to a main *cvs* buffer. 338 "This mode is used for buffers related to a main *cvs* buffer.
339 All the `cvs-mode' buffer operations are simply rebound under 339 All the `cvs-mode' buffer operations are simply rebound under
340 the \\[cvs-mode-map] prefix." 340 the \\[cvs-mode-map] prefix."
341 nil " CVS") 341 nil " CVS"
342 :group 'pcl-cvs)
342 (put 'cvs-minor-mode 'permanent-local t) 343 (put 'cvs-minor-mode 'permanent-local t)
343 344
344 345
345 (defvar cvs-temp-buffers nil) 346 (defvar cvs-temp-buffers nil)
346 (defun cvs-temp-buffer (&optional cmd normal nosetup) 347 (defun cvs-temp-buffer (&optional cmd normal nosetup)
1365 (cvs-mode-commit 'force)) 1366 (cvs-mode-commit 'force))
1366 1367
1367 (defcustom cvs-mode-commit-hook nil 1368 (defcustom cvs-mode-commit-hook nil
1368 "Hook run after setting up the commit buffer." 1369 "Hook run after setting up the commit buffer."
1369 :type 'hook 1370 :type 'hook
1370 :options '(cvs-mode-diff)) 1371 :options '(cvs-mode-diff)
1372 :group 'pcl-cvs)
1371 1373
1372 (defun cvs-mode-commit (setup) 1374 (defun cvs-mode-commit (setup)
1373 "Check in all marked files, or the current file. 1375 "Check in all marked files, or the current file.
1374 The user will be asked for a log message in a buffer. 1376 The user will be asked for a log message in a buffer.
1375 The buffer's mode and name is determined by the \"message\" setting 1377 The buffer's mode and name is determined by the \"message\" setting