annotate lisp/pcvs-defs.el @ 96474:9a72b6660355

(vc-dir-mode): Set list-buffers-function.
author Dan Nicolaescu <dann@ics.uci.edu>
date Tue, 01 Jul 2008 14:31:28 +0000
parents ee5932bf781d
children 4db633f0428a
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
28088
b442dfc3cef0 *** empty log message ***
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
1 ;;; pcvs-defs.el --- variable definitions for PCL-CVS
b442dfc3cef0 *** empty log message ***
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
2
57434
1776f7c5e250 (pcl-cvs-load-hook): Remove unused var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 56315
diff changeset
3 ;; Copyright (C) 1991, 1992, 1993, 1994, 1995, 1996, 1997, 1998, 1999,
94316
40e0e4cdf486 Tom Tromey <tromey at redhat.com>
Glenn Morris <rgm@gnu.org>
parents: 94165
diff changeset
4 ;; 2000, 2001, 2002, 2003, 2004, 2005, 2006, 2007, 2008
40e0e4cdf486 Tom Tromey <tromey at redhat.com>
Glenn Morris <rgm@gnu.org>
parents: 94165
diff changeset
5 ;; Free Software Foundation, Inc.
28088
b442dfc3cef0 *** empty log message ***
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
6
70292
2b77fa42947f Update my email address.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 68651
diff changeset
7 ;; Author: Stefan Monnier <monnier@iro.umontreal.ca>
28088
b442dfc3cef0 *** empty log message ***
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
8 ;; Keywords: pcl-cvs
b442dfc3cef0 *** empty log message ***
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
9
b442dfc3cef0 *** empty log message ***
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
10 ;; This file is part of GNU Emacs.
b442dfc3cef0 *** empty log message ***
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
11
94678
ee5932bf781d Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents: 94316
diff changeset
12 ;; GNU Emacs is free software: you can redistribute it and/or modify
28088
b442dfc3cef0 *** empty log message ***
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
13 ;; it under the terms of the GNU General Public License as published by
94678
ee5932bf781d Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents: 94316
diff changeset
14 ;; the Free Software Foundation, either version 3 of the License, or
ee5932bf781d Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents: 94316
diff changeset
15 ;; (at your option) any later version.
28088
b442dfc3cef0 *** empty log message ***
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
16
b442dfc3cef0 *** empty log message ***
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
17 ;; GNU Emacs is distributed in the hope that it will be useful,
b442dfc3cef0 *** empty log message ***
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
18 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
b442dfc3cef0 *** empty log message ***
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
19 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
b442dfc3cef0 *** empty log message ***
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
20 ;; GNU General Public License for more details.
b442dfc3cef0 *** empty log message ***
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
21
b442dfc3cef0 *** empty log message ***
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
22 ;; You should have received a copy of the GNU General Public License
94678
ee5932bf781d Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents: 94316
diff changeset
23 ;; along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>.
28088
b442dfc3cef0 *** empty log message ***
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
24
b442dfc3cef0 *** empty log message ***
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
25 ;;; Commentary:
b442dfc3cef0 *** empty log message ***
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
26
b442dfc3cef0 *** empty log message ***
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
27
b442dfc3cef0 *** empty log message ***
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
28 ;;; Code:
b442dfc3cef0 *** empty log message ***
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
29
b442dfc3cef0 *** empty log message ***
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
30 (eval-when-compile (require 'cl))
b442dfc3cef0 *** empty log message ***
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
31 (require 'pcvs-util)
b442dfc3cef0 *** empty log message ***
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
32
b442dfc3cef0 *** empty log message ***
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
33 ;;;; -------------------------------------------------------
b442dfc3cef0 *** empty log message ***
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
34 ;;;; START OF THINGS TO CHECK WHEN INSTALLING
b442dfc3cef0 *** empty log message ***
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
35
b442dfc3cef0 *** empty log message ***
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
36 (defvar cvs-program "cvs"
b442dfc3cef0 *** empty log message ***
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
37 "*Name or full path of the cvs executable.")
b442dfc3cef0 *** empty log message ***
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
38
b442dfc3cef0 *** empty log message ***
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
39 (defvar cvs-version
65511
60a70d15255d (cvs-version): Recognize CVSNT version string.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 64762
diff changeset
40 ;; With the divergence of the CVSNT codebase and version numbers, this is
60a70d15255d (cvs-version): Recognize CVSNT version string.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 64762
diff changeset
41 ;; not really good any more.
28088
b442dfc3cef0 *** empty log message ***
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
42 (ignore-errors
b442dfc3cef0 *** empty log message ***
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
43 (with-temp-buffer
45965
20686887461a (cvs-version): Use cvs-program rather than "cvs".
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 42205
diff changeset
44 (call-process cvs-program nil t nil "-v")
28088
b442dfc3cef0 *** empty log message ***
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
45 (goto-char (point-min))
65511
60a70d15255d (cvs-version): Recognize CVSNT version string.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 64762
diff changeset
46 (when (re-search-forward "(CVS\\(NT\\)?) \\([0-9]+\\)\\.\\([0-9]+\\)"
60a70d15255d (cvs-version): Recognize CVSNT version string.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 64762
diff changeset
47 nil t)
28088
b442dfc3cef0 *** empty log message ***
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
48 (cons (string-to-number (match-string 1))
b442dfc3cef0 *** empty log message ***
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
49 (string-to-number (match-string 2))))))
b442dfc3cef0 *** empty log message ***
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
50 "*Version of `cvs' installed on your system.
b442dfc3cef0 *** empty log message ***
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
51 It must be in the (MAJOR . MINOR) format.")
b442dfc3cef0 *** empty log message ***
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
52
b442dfc3cef0 *** empty log message ***
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
53 ;; FIXME: this is only used by cvs-mode-diff-backup
b442dfc3cef0 *** empty log message ***
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
54 (defvar cvs-diff-program (or (and (boundp 'diff-command) diff-command) "diff")
b442dfc3cef0 *** empty log message ***
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
55 "*Name or full path of the best diff program you've got.
b442dfc3cef0 *** empty log message ***
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
56 NOTE: there are some nasty bugs in the context diff variants of some vendor
b442dfc3cef0 *** empty log message ***
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
57 versions, such as the one in SunOS-4.")
b442dfc3cef0 *** empty log message ***
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
58
b442dfc3cef0 *** empty log message ***
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
59 ;;;; END OF THINGS TO CHECK WHEN INSTALLING
b442dfc3cef0 *** empty log message ***
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
60 ;;;; --------------------------------------------------------
b442dfc3cef0 *** empty log message ***
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
61
b442dfc3cef0 *** empty log message ***
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
62 ;;;;
b442dfc3cef0 *** empty log message ***
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
63 ;;;; User configuration variables:
b442dfc3cef0 *** empty log message ***
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
64 ;;;;
b442dfc3cef0 *** empty log message ***
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
65 ;;;; NOTE: these should be set in your ~/.emacs (or site-lisp/default.el) file.
b442dfc3cef0 *** empty log message ***
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
66 ;;;;
b442dfc3cef0 *** empty log message ***
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
67
b442dfc3cef0 *** empty log message ***
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
68 (defgroup pcl-cvs nil
b442dfc3cef0 *** empty log message ***
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
69 "Special support for the CVS versioning system."
29628
4580fc7c0a80 (pcl-cvs) <defgroup>: Add :version.
Dave Love <fx@gnu.org>
parents: 29566
diff changeset
70 :version "21.1"
28088
b442dfc3cef0 *** empty log message ***
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
71 :group 'tools
b442dfc3cef0 *** empty log message ***
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
72 :prefix "cvs-")
b442dfc3cef0 *** empty log message ***
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
73
b442dfc3cef0 *** empty log message ***
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
74 ;;
b442dfc3cef0 *** empty log message ***
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
75 ;; cvsrc options
b442dfc3cef0 *** empty log message ***
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
76 ;;
b442dfc3cef0 *** empty log message ***
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
77
b442dfc3cef0 *** empty log message ***
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
78 (defcustom cvs-cvsrc-file "~/.cvsrc"
b442dfc3cef0 *** empty log message ***
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
79 "Path to your cvsrc file."
b442dfc3cef0 *** empty log message ***
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
80 :group 'pcl-cvs
b442dfc3cef0 *** empty log message ***
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
81 :type '(file))
b442dfc3cef0 *** empty log message ***
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
82
b442dfc3cef0 *** empty log message ***
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
83 (defvar cvs-shared-start 4
b442dfc3cef0 *** empty log message ***
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
84 "Index of the first shared flag.
b442dfc3cef0 *** empty log message ***
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
85 If set to 4, for instance, a numeric argument smaller than 4 will
b442dfc3cef0 *** empty log message ***
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
86 select a non-shared flag, while a numeric argument greater than 3
b442dfc3cef0 *** empty log message ***
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
87 will select a shared-flag.")
b442dfc3cef0 *** empty log message ***
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
88
b442dfc3cef0 *** empty log message ***
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
89 (defvar cvs-shared-flags (make-list cvs-shared-start nil)
b442dfc3cef0 *** empty log message ***
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
90 "List of flags whose settings is shared among several commands.")
b442dfc3cef0 *** empty log message ***
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
91
b442dfc3cef0 *** empty log message ***
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
92 (defvar cvs-cvsroot nil
b442dfc3cef0 *** empty log message ***
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
93 "*Specifies where the (current) cvs master repository is.
b442dfc3cef0 *** empty log message ***
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
94 Overrides the environment variable $CVSROOT by sending \" -d dir\" to
b442dfc3cef0 *** empty log message ***
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
95 all CVS commands. This switch is useful if you have multiple CVS
b442dfc3cef0 *** empty log message ***
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
96 repositories. It can be set interactively with \\[cvs-change-cvsroot.]
b442dfc3cef0 *** empty log message ***
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
97 There is no need to set this if $CVSROOT is set to a correct value.")
b442dfc3cef0 *** empty log message ***
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
98
b442dfc3cef0 *** empty log message ***
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
99 (defcustom cvs-auto-remove-handled nil
72832
edab538d7c7a Remove * in defcustom's docstrings.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 71669
diff changeset
100 "If up-to-date files should be acknowledged automatically.
28088
b442dfc3cef0 *** empty log message ***
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
101 If T, they will be removed from the *cvs* buffer after every command.
b442dfc3cef0 *** empty log message ***
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
102 If DELAYED, they will be removed from the *cvs* buffer before every command.
b442dfc3cef0 *** empty log message ***
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
103 If STATUS, they will only be removed after a `cvs-mode-status' command.
b442dfc3cef0 *** empty log message ***
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
104 Else, they will never be automatically removed from the *cvs* buffer."
b442dfc3cef0 *** empty log message ***
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
105 :group 'pcl-cvs
b442dfc3cef0 *** empty log message ***
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
106 :type '(choice (const nil) (const status) (const delayed) (const t)))
b442dfc3cef0 *** empty log message ***
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
107
b442dfc3cef0 *** empty log message ***
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
108 (defcustom cvs-auto-remove-directories 'handled
72832
edab538d7c7a Remove * in defcustom's docstrings.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 71669
diff changeset
109 "If ALL, directory entries will never be shown.
46098
4cc4a5d2bae2 (cvs-mode-map): Bind ! to `force'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 45965
diff changeset
110 If HANDLED, only non-handled directories will be shown.
28088
b442dfc3cef0 *** empty log message ***
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
111 If EMPTY, only non-empty directories will be shown."
b442dfc3cef0 *** empty log message ***
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
112 :group 'pcl-cvs
b442dfc3cef0 *** empty log message ***
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
113 :type '(choice (const :tag "No" nil) (const all) (const handled) (const empty)))
b442dfc3cef0 *** empty log message ***
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
114
b442dfc3cef0 *** empty log message ***
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
115 (defcustom cvs-auto-revert t
72832
edab538d7c7a Remove * in defcustom's docstrings.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 71669
diff changeset
116 "Non-nil if changed files should automatically be reverted."
28088
b442dfc3cef0 *** empty log message ***
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
117 :group 'pcl-cvs
b442dfc3cef0 *** empty log message ***
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
118 :type '(boolean))
b442dfc3cef0 *** empty log message ***
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
119
b442dfc3cef0 *** empty log message ***
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
120 (defcustom cvs-sort-ignore-file t
72832
edab538d7c7a Remove * in defcustom's docstrings.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 71669
diff changeset
121 "Non-nil if `cvs-mode-ignore' should sort the .cvsignore automatically."
28088
b442dfc3cef0 *** empty log message ***
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
122 :group 'pcl-cvs
b442dfc3cef0 *** empty log message ***
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
123 :type '(boolean))
b442dfc3cef0 *** empty log message ***
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
124
b442dfc3cef0 *** empty log message ***
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
125 (defcustom cvs-force-dir-tag t
72832
edab538d7c7a Remove * in defcustom's docstrings.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 71669
diff changeset
126 "If non-nil, tagging can only be applied to directories.
28088
b442dfc3cef0 *** empty log message ***
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
127 Tagging should generally be applied a directory at a time, but sometimes it is
b442dfc3cef0 *** empty log message ***
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
128 useful to be able to tag a single file. The normal way to do that is to use
b442dfc3cef0 *** empty log message ***
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
129 `cvs-mode-force-command' so as to temporarily override the restrictions,"
b442dfc3cef0 *** empty log message ***
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
130 :group 'pcl-cvs
b442dfc3cef0 *** empty log message ***
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
131 :type '(boolean))
b442dfc3cef0 *** empty log message ***
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
132
b442dfc3cef0 *** empty log message ***
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
133 (defcustom cvs-default-ignore-marks nil
72832
edab538d7c7a Remove * in defcustom's docstrings.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 71669
diff changeset
134 "Non-nil if cvs mode commands should ignore any marked files.
28088
b442dfc3cef0 *** empty log message ***
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
135 Normally they run on the files that are marked (with `cvs-mode-mark'),
b442dfc3cef0 *** empty log message ***
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
136 or the file under the cursor if no files are marked. If this variable
b442dfc3cef0 *** empty log message ***
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
137 is set to a non-nil value they will by default run on the file on the
29566
3334012b1cb4 (cvs-default-ignore-marks, cvs-diff-ignore-marks):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 28256
diff changeset
138 current line. See also `cvs-invert-ignore-marks'"
28088
b442dfc3cef0 *** empty log message ***
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
139 :group 'pcl-cvs
b442dfc3cef0 *** empty log message ***
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
140 :type '(boolean))
b442dfc3cef0 *** empty log message ***
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
141
49618
a591e5af9682 (cvs-diff-ignore-marks, cvs-diff-buffer-name): Add obsolescence declaration and
Juanma Barranquero <lekktu@gmail.com>
parents: 48269
diff changeset
142 (defvar cvs-diff-ignore-marks t)
a591e5af9682 (cvs-diff-ignore-marks, cvs-diff-buffer-name): Add obsolescence declaration and
Juanma Barranquero <lekktu@gmail.com>
parents: 48269
diff changeset
143 (make-obsolete-variable 'cvs-diff-ignore-marks
94165
aaacbb8c259f (cvs-diff-ignore-marks, cvs-diff-buffer-name):
Juanma Barranquero <lekktu@gmail.com>
parents: 87892
diff changeset
144 'cvs-invert-ignore-marks
aaacbb8c259f (cvs-diff-ignore-marks, cvs-diff-buffer-name):
Juanma Barranquero <lekktu@gmail.com>
parents: 87892
diff changeset
145 "21.1")
28088
b442dfc3cef0 *** empty log message ***
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
146
b442dfc3cef0 *** empty log message ***
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
147 (defcustom cvs-invert-ignore-marks
b442dfc3cef0 *** empty log message ***
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
148 (let ((l ()))
b442dfc3cef0 *** empty log message ***
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
149 (unless (equal cvs-diff-ignore-marks cvs-default-ignore-marks)
b442dfc3cef0 *** empty log message ***
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
150 (push "diff" l))
b442dfc3cef0 *** empty log message ***
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
151 (when (and cvs-force-dir-tag (not cvs-default-ignore-marks))
b442dfc3cef0 *** empty log message ***
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
152 (push "tag" l))
b442dfc3cef0 *** empty log message ***
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
153 l)
72832
edab538d7c7a Remove * in defcustom's docstrings.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 71669
diff changeset
154 "List of cvs commands that invert the default ignore-mark behavior.
28088
b442dfc3cef0 *** empty log message ***
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
155 Commands in this set will use the opposite default from the one set
b442dfc3cef0 *** empty log message ***
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
156 in `cvs-default-ignore-marks'."
b442dfc3cef0 *** empty log message ***
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
157 :group 'pcl-cvs
b442dfc3cef0 *** empty log message ***
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
158 :type '(set (const "diff")
b442dfc3cef0 *** empty log message ***
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
159 (const "tag")
b442dfc3cef0 *** empty log message ***
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
160 (const "ignore")))
b442dfc3cef0 *** empty log message ***
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
161
b442dfc3cef0 *** empty log message ***
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
162 (defcustom cvs-confirm-removals t
72832
edab538d7c7a Remove * in defcustom's docstrings.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 71669
diff changeset
163 "Ask for confirmation before removing files.
28088
b442dfc3cef0 *** empty log message ***
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
164 Non-nil means that PCL-CVS will ask confirmation before removing files
b442dfc3cef0 *** empty log message ***
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
165 except for files whose content can readily be recovered from the repository.
33230
feebcbad81ae (cvs-menu): Add entries for tree and insert.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 29628
diff changeset
166 A value of `list' means that the list of files to be deleted will be
28088
b442dfc3cef0 *** empty log message ***
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
167 displayed when asking for confirmation."
b442dfc3cef0 *** empty log message ***
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
168 :group 'pcl-cvs
b442dfc3cef0 *** empty log message ***
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
169 :type '(choice (const list)
b442dfc3cef0 *** empty log message ***
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
170 (const t)
b442dfc3cef0 *** empty log message ***
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
171 (const nil)))
b442dfc3cef0 *** empty log message ***
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
172
b442dfc3cef0 *** empty log message ***
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
173 (defcustom cvs-add-default-message nil
72832
edab538d7c7a Remove * in defcustom's docstrings.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 71669
diff changeset
174 "Default message to use when adding files.
42205
7308bbc423d5 Doc fixes.
Pavel Janík <Pavel@Janik.cz>
parents: 40581
diff changeset
175 If set to nil, `cvs-mode-add' will always prompt for a message."
28088
b442dfc3cef0 *** empty log message ***
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
176 :group 'pcl-cvs
b442dfc3cef0 *** empty log message ***
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
177 :type '(choice (const :tag "Prompt" nil)
b442dfc3cef0 *** empty log message ***
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
178 (string)))
b442dfc3cef0 *** empty log message ***
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
179
49618
a591e5af9682 (cvs-diff-ignore-marks, cvs-diff-buffer-name): Add obsolescence declaration and
Juanma Barranquero <lekktu@gmail.com>
parents: 48269
diff changeset
180 (defvar cvs-diff-buffer-name "*cvs-diff*")
a591e5af9682 (cvs-diff-ignore-marks, cvs-diff-buffer-name): Add obsolescence declaration and
Juanma Barranquero <lekktu@gmail.com>
parents: 48269
diff changeset
181 (make-obsolete-variable 'cvs-diff-buffer-name
94165
aaacbb8c259f (cvs-diff-ignore-marks, cvs-diff-buffer-name):
Juanma Barranquero <lekktu@gmail.com>
parents: 87892
diff changeset
182 'cvs-buffer-name-alist
aaacbb8c259f (cvs-diff-ignore-marks, cvs-diff-buffer-name):
Juanma Barranquero <lekktu@gmail.com>
parents: 87892
diff changeset
183 "21.1")
28088
b442dfc3cef0 *** empty log message ***
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
184
29566
3334012b1cb4 (cvs-default-ignore-marks, cvs-diff-ignore-marks):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 28256
diff changeset
185 (defcustom cvs-find-file-and-jump nil
28088
b442dfc3cef0 *** empty log message ***
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
186 "Jump to the modified area when finding a file.
b442dfc3cef0 *** empty log message ***
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
187 If non-nil, `cvs-mode-file-file' will place the cursor at the beginning of
b442dfc3cef0 *** empty log message ***
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
188 the modified area. If the file is not locally modified, this will obviously
b442dfc3cef0 *** empty log message ***
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
189 have no effect."
b442dfc3cef0 *** empty log message ***
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
190 :group 'pcl-cvs
b442dfc3cef0 *** empty log message ***
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
191 :type '(boolean))
b442dfc3cef0 *** empty log message ***
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
192
b442dfc3cef0 *** empty log message ***
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
193 (defcustom cvs-buffer-name-alist
b442dfc3cef0 *** empty log message ***
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
194 '(("diff" cvs-diff-buffer-name diff-mode)
b442dfc3cef0 *** empty log message ***
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
195 ("status" "*cvs-info*" cvs-status-mode)
36613
6fd7e79e9d1f (cvs-buffer-name-alist): Use *cvs-info* for
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 34652
diff changeset
196 ("tree" "*cvs-info*" cvs-status-mode)
28088
b442dfc3cef0 *** empty log message ***
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
197 ("message" "*cvs-commit*" nil log-edit)
b442dfc3cef0 *** empty log message ***
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
198 ("log" "*cvs-info*" log-view-mode))
72832
edab538d7c7a Remove * in defcustom's docstrings.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 71669
diff changeset
199 "Buffer name and mode to be used for each command.
28088
b442dfc3cef0 *** empty log message ***
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
200 This is a list of elements of the form
b442dfc3cef0 *** empty log message ***
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
201
b442dfc3cef0 *** empty log message ***
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
202 (CMD BUFNAME MODE &optional POSTPROC)
b442dfc3cef0 *** empty log message ***
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
203
b442dfc3cef0 *** empty log message ***
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
204 CMD is the name of the command.
b442dfc3cef0 *** empty log message ***
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
205 BUFNAME is an expression that should evaluate to a string used as
b442dfc3cef0 *** empty log message ***
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
206 a buffer name. It can use the variable CMD if it wants to.
b442dfc3cef0 *** empty log message ***
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
207 MODE is the command to use to setup the buffer.
b442dfc3cef0 *** empty log message ***
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
208 POSTPROC is a function that should be executed when the command terminates
b442dfc3cef0 *** empty log message ***
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
209
b442dfc3cef0 *** empty log message ***
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
210 The CMD used for `cvs-mode-commit' is \"message\". For that special
b442dfc3cef0 *** empty log message ***
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
211 case, POSTPROC is called just after MODE with special arguments."
b442dfc3cef0 *** empty log message ***
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
212 :group 'pcl-cvs
b442dfc3cef0 *** empty log message ***
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
213 :type '(repeat
b442dfc3cef0 *** empty log message ***
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
214 (list (choice (const "diff")
b442dfc3cef0 *** empty log message ***
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
215 (const "status")
b442dfc3cef0 *** empty log message ***
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
216 (const "tree")
b442dfc3cef0 *** empty log message ***
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
217 (const "message")
b442dfc3cef0 *** empty log message ***
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
218 (const "log")
b442dfc3cef0 *** empty log message ***
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
219 (string))
b442dfc3cef0 *** empty log message ***
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
220 (choice (const "*vc-diff*")
b442dfc3cef0 *** empty log message ***
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
221 (const "*cvs-info*")
b442dfc3cef0 *** empty log message ***
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
222 (const "*cvs-commit*")
b442dfc3cef0 *** empty log message ***
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
223 (const (expand-file-name "*cvs-commit*"))
b442dfc3cef0 *** empty log message ***
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
224 (const (format "*cvs-%s*" cmd))
b442dfc3cef0 *** empty log message ***
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
225 (const (expand-file-name (format "*cvs-%s*" cmd)))
b442dfc3cef0 *** empty log message ***
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
226 (sexp :value "my-cvs-info-buffer")
b442dfc3cef0 *** empty log message ***
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
227 (const nil))
b442dfc3cef0 *** empty log message ***
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
228 (choice (function-item diff-mode)
b442dfc3cef0 *** empty log message ***
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
229 (function-item cvs-edit-mode)
b442dfc3cef0 *** empty log message ***
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
230 (function-item cvs-status-mode)
b442dfc3cef0 *** empty log message ***
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
231 function
b442dfc3cef0 *** empty log message ***
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
232 (const nil))
b442dfc3cef0 *** empty log message ***
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
233 (set :inline t
b442dfc3cef0 *** empty log message ***
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
234 (choice (function-item cvs-status-cvstrees)
b442dfc3cef0 *** empty log message ***
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
235 (function-item cvs-status-trees)
b442dfc3cef0 *** empty log message ***
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
236 function)))))
b442dfc3cef0 *** empty log message ***
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
237
b442dfc3cef0 *** empty log message ***
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
238 (defvar cvs-buffer-name '(expand-file-name "*cvs*" dir) ;; "*cvs*"
b442dfc3cef0 *** empty log message ***
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
239 "Name of the cvs buffer.
b442dfc3cef0 *** empty log message ***
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
240 This expression will be evaluated in an environment where DIR is set to
b442dfc3cef0 *** empty log message ***
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
241 the directory name of the cvs buffer.")
b442dfc3cef0 *** empty log message ***
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
242
71669
cee3ce32a7ca (cvs-temp-buffer-name): Fix non-hiddenness.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 70292
diff changeset
243 (defvar cvs-temp-buffer-name
cee3ce32a7ca (cvs-temp-buffer-name): Fix non-hiddenness.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 70292
diff changeset
244 ;; Was '(expand-file-name " *cvs-tmp*" dir), but that causes them to
cee3ce32a7ca (cvs-temp-buffer-name): Fix non-hiddenness.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 70292
diff changeset
245 ;; become non-hidden if uniquification is done `forward'.
cee3ce32a7ca (cvs-temp-buffer-name): Fix non-hiddenness.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 70292
diff changeset
246 " *cvs-tmp*"
28088
b442dfc3cef0 *** empty log message ***
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
247 "*Name of the cvs temporary buffer.
b442dfc3cef0 *** empty log message ***
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
248 Output from cvs is placed here for asynchronous commands.")
b442dfc3cef0 *** empty log message ***
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
249
b442dfc3cef0 *** empty log message ***
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
250 (defcustom cvs-idiff-imerge-handlers
b442dfc3cef0 *** empty log message ***
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
251 (if (fboundp 'ediff)
b442dfc3cef0 *** empty log message ***
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
252 '(cvs-ediff-diff . cvs-ediff-merge)
b442dfc3cef0 *** empty log message ***
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
253 '(cvs-emerge-diff . cvs-emerge-merge))
72832
edab538d7c7a Remove * in defcustom's docstrings.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 71669
diff changeset
254 "Pair of functions to be used for resp. diff'ing and merg'ing interactively."
28088
b442dfc3cef0 *** empty log message ***
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
255 :group 'pcl-cvs
b442dfc3cef0 *** empty log message ***
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
256 :type '(choice (const :tag "Ediff" (cvs-ediff-diff . cvs-ediff-merge))
b442dfc3cef0 *** empty log message ***
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
257 (const :tag "Emerge" (cvs-emerge-diff . cvs-emerge-merge))))
b442dfc3cef0 *** empty log message ***
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
258
b442dfc3cef0 *** empty log message ***
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
259 (defvar cvs-mode-hook nil
b442dfc3cef0 *** empty log message ***
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
260 "Run after `cvs-mode' was setup.")
b442dfc3cef0 *** empty log message ***
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
261
b442dfc3cef0 *** empty log message ***
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
262
b442dfc3cef0 *** empty log message ***
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
263 ;;;;
b442dfc3cef0 *** empty log message ***
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
264 ;;;; Internal variables, used in the process buffer.
b442dfc3cef0 *** empty log message ***
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
265 ;;;;
b442dfc3cef0 *** empty log message ***
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
266
b442dfc3cef0 *** empty log message ***
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
267 (defvar cvs-postprocess nil
b442dfc3cef0 *** empty log message ***
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
268 "(Buffer local) what to do once the process exits.")
b442dfc3cef0 *** empty log message ***
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
269
b442dfc3cef0 *** empty log message ***
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
270 ;;;;
b442dfc3cef0 *** empty log message ***
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
271 ;;;; Internal variables for the *cvs* buffer.
b442dfc3cef0 *** empty log message ***
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
272 ;;;;
b442dfc3cef0 *** empty log message ***
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
273
b442dfc3cef0 *** empty log message ***
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
274 (defcustom cvs-reuse-cvs-buffer 'subdir
b442dfc3cef0 *** empty log message ***
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
275 "When to reuse an existing cvs buffer.
b442dfc3cef0 *** empty log message ***
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
276 Alternatives are:
b442dfc3cef0 *** empty log message ***
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
277 CURRENT: just reuse the current buffer if it is a cvs buffer
b442dfc3cef0 *** empty log message ***
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
278 SAMEDIR: reuse any cvs buffer displaying the same directory
b442dfc3cef0 *** empty log message ***
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
279 SUBDIR: or reuse any cvs buffer displaying any sub- or super- directory
b442dfc3cef0 *** empty log message ***
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
280 ALWAYS: reuse any cvs buffer."
b442dfc3cef0 *** empty log message ***
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
281 :group 'pcl-cvs
b442dfc3cef0 *** empty log message ***
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
282 :type '(choice (const always) (const subdir) (const samedir) (const current)))
b442dfc3cef0 *** empty log message ***
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
283
b442dfc3cef0 *** empty log message ***
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
284 (defvar cvs-temp-buffer nil
b442dfc3cef0 *** empty log message ***
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
285 "(Buffer local) The temporary buffer associated with this *cvs* buffer.")
b442dfc3cef0 *** empty log message ***
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
286
b442dfc3cef0 *** empty log message ***
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
287 (defvar cvs-lock-file nil
b442dfc3cef0 *** empty log message ***
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
288 "Full path to a lock file that CVS is waiting for (or was waiting for).
b442dfc3cef0 *** empty log message ***
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
289 This variable is buffer local and only used in the *cvs* buffer.")
b442dfc3cef0 *** empty log message ***
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
290
b442dfc3cef0 *** empty log message ***
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
291 (defvar cvs-lock-file-regexp "^#cvs\\.\\([trw]fl\\.[-.a-z0-9]+\\|lock\\)\\'"
b442dfc3cef0 *** empty log message ***
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
292 "Regexp matching the possible names of locks in the CVS repository.")
b442dfc3cef0 *** empty log message ***
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
293
b442dfc3cef0 *** empty log message ***
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
294 (defconst cvs-cursor-column 22
b442dfc3cef0 *** empty log message ***
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
295 "Column to position cursor in in `cvs-mode'.")
b442dfc3cef0 *** empty log message ***
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
296
b442dfc3cef0 *** empty log message ***
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
297 ;;;;
b442dfc3cef0 *** empty log message ***
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
298 ;;;; Global internal variables
b442dfc3cef0 *** empty log message ***
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
299 ;;;;
b442dfc3cef0 *** empty log message ***
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
300
b442dfc3cef0 *** empty log message ***
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
301 (defconst cvs-vendor-branch "1.1.1"
b442dfc3cef0 *** empty log message ***
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
302 "The default branch used by CVS for vendor code.")
b442dfc3cef0 *** empty log message ***
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
303
b442dfc3cef0 *** empty log message ***
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
304 (easy-mmode-defmap cvs-mode-diff-map
34406
26b5a3053881 (cvs-mode-diff-map): Use minibuffer menu prompts.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 34375
diff changeset
305 '(("E" "imerge" . cvs-mode-imerge)
26b5a3053881 (cvs-mode-diff-map): Use minibuffer menu prompts.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 34375
diff changeset
306 ("=" . cvs-mode-diff)
26b5a3053881 (cvs-mode-diff-map): Use minibuffer menu prompts.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 34375
diff changeset
307 ("e" "idiff" . cvs-mode-idiff)
26b5a3053881 (cvs-mode-diff-map): Use minibuffer menu prompts.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 34375
diff changeset
308 ("2" "other" . cvs-mode-idiff-other)
26b5a3053881 (cvs-mode-diff-map): Use minibuffer menu prompts.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 34375
diff changeset
309 ("d" "diff" . cvs-mode-diff)
26b5a3053881 (cvs-mode-diff-map): Use minibuffer menu prompts.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 34375
diff changeset
310 ("b" "backup" . cvs-mode-diff-backup)
26b5a3053881 (cvs-mode-diff-map): Use minibuffer menu prompts.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 34375
diff changeset
311 ("h" "head" . cvs-mode-diff-head)
56315
b53a24a4e11e (cvs-mode-diff-map): Bind r to cvs-mode-diff-repository.
Juri Linkov <juri@jurta.org>
parents: 56010
diff changeset
312 ("r" "repository" . cvs-mode-diff-repository)
56010
42cb534d806a (cvs-mode-diff-map): Bind y to cvs-mode-diff-yesterday.
Kim F. Storm <storm@cua.dk>
parents: 53921
diff changeset
313 ("y" "yesterday" . cvs-mode-diff-yesterday)
34406
26b5a3053881 (cvs-mode-diff-map): Use minibuffer menu prompts.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 34375
diff changeset
314 ("v" "vendor" . cvs-mode-diff-vendor))
26b5a3053881 (cvs-mode-diff-map): Use minibuffer menu prompts.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 34375
diff changeset
315 "Keymap for diff-related operations in `cvs-mode'."
26b5a3053881 (cvs-mode-diff-map): Use minibuffer menu prompts.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 34375
diff changeset
316 :name "Diff")
37819
c1646601f895 (cvs-mode-map): bind "z" and [RET]
Sam Steingold <sds@gnu.org>
parents: 37695
diff changeset
317 ;; This is necessary to allow correct handling of \\[cvs-mode-diff-map]
29566
3334012b1cb4 (cvs-default-ignore-marks, cvs-diff-ignore-marks):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 28256
diff changeset
318 ;; in substitute-command-keys.
3334012b1cb4 (cvs-default-ignore-marks, cvs-diff-ignore-marks):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 28256
diff changeset
319 (fset 'cvs-mode-diff-map cvs-mode-diff-map)
28088
b442dfc3cef0 *** empty log message ***
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
320
b442dfc3cef0 *** empty log message ***
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
321 (easy-mmode-defmap cvs-mode-map
b442dfc3cef0 *** empty log message ***
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
322 ;;(define-prefix-command 'cvs-mode-map-diff-prefix)
b442dfc3cef0 *** empty log message ***
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
323 ;;(define-prefix-command 'cvs-mode-map-control-c-prefix)
94316
40e0e4cdf486 Tom Tromey <tromey at redhat.com>
Glenn Morris <rgm@gnu.org>
parents: 94165
diff changeset
324 '(;; various
37695
377af5547011 (cvs-mode-map): Don't rebind `undo'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 37340
diff changeset
325 ;; (undo . cvs-mode-undo)
28088
b442dfc3cef0 *** empty log message ***
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
326 ("?" . cvs-help)
b442dfc3cef0 *** empty log message ***
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
327 ("h" . cvs-help)
b442dfc3cef0 *** empty log message ***
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
328 ("q" . cvs-bury-buffer)
37819
c1646601f895 (cvs-mode-map): bind "z" and [RET]
Sam Steingold <sds@gnu.org>
parents: 37695
diff changeset
329 ("z" . kill-this-buffer)
28088
b442dfc3cef0 *** empty log message ***
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
330 ("F" . cvs-mode-set-flags)
48269
b4a43403c371 (cvs-mode-map): Remove M-f binding.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 46098
diff changeset
331 ;; ("\M-f" . cvs-mode-force-command)
46098
4cc4a5d2bae2 (cvs-mode-map): Bind ! to `force'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 45965
diff changeset
332 ("!" . cvs-mode-force-command)
28088
b442dfc3cef0 *** empty log message ***
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
333 ("\C-c\C-c" . cvs-mode-kill-process)
b442dfc3cef0 *** empty log message ***
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
334 ;; marking
b442dfc3cef0 *** empty log message ***
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
335 ("m" . cvs-mode-mark)
b442dfc3cef0 *** empty log message ***
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
336 ("M" . cvs-mode-mark-all-files)
37340
3ae41b8bb994 (cvs-mode-map): Bind C-o like in dired.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 36613
diff changeset
337 ("S" . cvs-mode-mark-on-state)
28088
b442dfc3cef0 *** empty log message ***
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
338 ("u" . cvs-mode-unmark)
b442dfc3cef0 *** empty log message ***
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
339 ("\C-?". cvs-mode-unmark-up)
b442dfc3cef0 *** empty log message ***
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
340 ("%" . cvs-mode-mark-matching-files)
b442dfc3cef0 *** empty log message ***
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
341 ("T" . cvs-mode-toggle-marks)
b442dfc3cef0 *** empty log message ***
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
342 ("\M-\C-?" . cvs-mode-unmark-all-files)
b442dfc3cef0 *** empty log message ***
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
343 ;; navigation keys
b442dfc3cef0 *** empty log message ***
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
344 (" " . cvs-mode-next-line)
b442dfc3cef0 *** empty log message ***
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
345 ("n" . cvs-mode-next-line)
b442dfc3cef0 *** empty log message ***
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
346 ("p" . cvs-mode-previous-line)
78882
ccd0441c69e1 * pcvs-defs.el (cvs-mode-map): Bind TAB and backtab.
Dan Nicolaescu <dann@ics.uci.edu>
parents: 78236
diff changeset
347 ("\t" . cvs-mode-next-line)
ccd0441c69e1 * pcvs-defs.el (cvs-mode-map): Bind TAB and backtab.
Dan Nicolaescu <dann@ics.uci.edu>
parents: 78236
diff changeset
348 ([backtab] . cvs-mode-previous-line)
28088
b442dfc3cef0 *** empty log message ***
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
349 ;; M- keys are usually those that operate on modules
b442dfc3cef0 *** empty log message ***
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
350 ;;("\M-C". cvs-mode-rcs2log) ; i.e. "Create a ChangeLog"
b442dfc3cef0 *** empty log message ***
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
351 ;;("\M-t". cvs-rtag)
b442dfc3cef0 *** empty log message ***
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
352 ;;("\M-l". cvs-rlog)
b442dfc3cef0 *** empty log message ***
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
353 ("\M-c". cvs-checkout)
b442dfc3cef0 *** empty log message ***
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
354 ("\M-e". cvs-examine)
b442dfc3cef0 *** empty log message ***
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
355 ("g" . cvs-mode-revert-buffer)
b442dfc3cef0 *** empty log message ***
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
356 ("\M-u". cvs-update)
b442dfc3cef0 *** empty log message ***
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
357 ("\M-s". cvs-status)
b442dfc3cef0 *** empty log message ***
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
358 ;; diff commands
b442dfc3cef0 *** empty log message ***
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
359 ("=" . cvs-mode-diff)
29566
3334012b1cb4 (cvs-default-ignore-marks, cvs-diff-ignore-marks):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 28256
diff changeset
360 ("d" . cvs-mode-diff-map)
28088
b442dfc3cef0 *** empty log message ***
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
361 ;; keys that operate on individual files
40581
55442821b27d (cvs-mode-map): bind C-m, not RET
Sam Steingold <sds@gnu.org>
parents: 38422
diff changeset
362 ("\C-k" . cvs-mode-acknowledge)
28088
b442dfc3cef0 *** empty log message ***
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
363 ("A" . cvs-mode-add-change-log-entry-other-window)
b442dfc3cef0 *** empty log message ***
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
364 ;;("B" . cvs-mode-byte-compile-files)
b442dfc3cef0 *** empty log message ***
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
365 ("C" . cvs-mode-commit-setup)
b442dfc3cef0 *** empty log message ***
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
366 ("O" . cvs-mode-update)
b442dfc3cef0 *** empty log message ***
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
367 ("U" . cvs-mode-undo)
b442dfc3cef0 *** empty log message ***
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
368 ("I" . cvs-mode-insert)
b442dfc3cef0 *** empty log message ***
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
369 ("a" . cvs-mode-add)
b442dfc3cef0 *** empty log message ***
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
370 ("b" . cvs-set-branch-prefix)
b442dfc3cef0 *** empty log message ***
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
371 ("B" . cvs-set-secondary-branch-prefix)
b442dfc3cef0 *** empty log message ***
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
372 ("c" . cvs-mode-commit)
b442dfc3cef0 *** empty log message ***
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
373 ("e" . cvs-mode-examine)
b442dfc3cef0 *** empty log message ***
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
374 ("f" . cvs-mode-find-file)
40581
55442821b27d (cvs-mode-map): bind C-m, not RET
Sam Steingold <sds@gnu.org>
parents: 38422
diff changeset
375 ("\C-m" . cvs-mode-find-file)
28088
b442dfc3cef0 *** empty log message ***
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
376 ("i" . cvs-mode-ignore)
b442dfc3cef0 *** empty log message ***
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
377 ("l" . cvs-mode-log)
b442dfc3cef0 *** empty log message ***
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
378 ("o" . cvs-mode-find-file-other-window)
b442dfc3cef0 *** empty log message ***
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
379 ("r" . cvs-mode-remove)
b442dfc3cef0 *** empty log message ***
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
380 ("s" . cvs-mode-status)
b442dfc3cef0 *** empty log message ***
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
381 ("t" . cvs-mode-tag)
57504
40ccbcbf8668 (cvs-mode-map): Bind v to cvs-mode-view-file.
Kim F. Storm <storm@cua.dk>
parents: 57434
diff changeset
382 ("v" . cvs-mode-view-file)
28088
b442dfc3cef0 *** empty log message ***
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
383 ("x" . cvs-mode-remove-handled)
b442dfc3cef0 *** empty log message ***
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
384 ;; cvstree bindings
b442dfc3cef0 *** empty log message ***
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
385 ("+" . cvs-mode-tree)
b442dfc3cef0 *** empty log message ***
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
386 ;; mouse bindings
29566
3334012b1cb4 (cvs-default-ignore-marks, cvs-diff-ignore-marks):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 28256
diff changeset
387 ([mouse-2] . cvs-mode-find-file)
59022
0b09c3970de0 (cvs-mode-map): Map follow-link to a function which
Kim F. Storm <storm@cua.dk>
parents: 57504
diff changeset
388 ([follow-link] . (lambda (pos)
63210
2e115caaa7d2 Revision: miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-380
Miles Bader <miles@gnu.org>
parents: 59022
diff changeset
389 (if (eq (get-char-property pos 'face) 'cvs-filename) t)))
28088
b442dfc3cef0 *** empty log message ***
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
390 ([(down-mouse-3)] . cvs-menu)
37340
3ae41b8bb994 (cvs-mode-map): Bind C-o like in dired.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 36613
diff changeset
391 ;; dired-like bindings
3ae41b8bb994 (cvs-mode-map): Bind C-o like in dired.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 36613
diff changeset
392 ("\C-o" . cvs-mode-display-file)
28088
b442dfc3cef0 *** empty log message ***
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
393 ;; Emacs-21 toolbar
b442dfc3cef0 *** empty log message ***
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
394 ;;([tool-bar item1] . (menu-item "Examine" cvs-examine :image (image :file "/usr/share/icons/xpaint.xpm" :type xpm)))
b442dfc3cef0 *** empty log message ***
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
395 ;;([tool-bar item2] . (menu-item "Update" cvs-update :image (image :file "/usr/share/icons/mail1.xpm" :type xpm)))
b442dfc3cef0 *** empty log message ***
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
396 )
b442dfc3cef0 *** empty log message ***
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
397 "Keymap for `cvs-mode'."
94316
40e0e4cdf486 Tom Tromey <tromey at redhat.com>
Glenn Morris <rgm@gnu.org>
parents: 94165
diff changeset
398 :dense t
40e0e4cdf486 Tom Tromey <tromey at redhat.com>
Glenn Morris <rgm@gnu.org>
parents: 94165
diff changeset
399 :suppress t)
28088
b442dfc3cef0 *** empty log message ***
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
400
b442dfc3cef0 *** empty log message ***
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
401 (fset 'cvs-mode-map cvs-mode-map)
b442dfc3cef0 *** empty log message ***
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
402
34375
3cd9d12d2b5d * pcvs-defs.el (cvs-menu): Move. Make submenu for diff commands.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 34304
diff changeset
403 (easy-menu-define cvs-menu cvs-mode-map "Menu used in `cvs-mode'."
3cd9d12d2b5d * pcvs-defs.el (cvs-menu): Move. Make submenu for diff commands.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 34304
diff changeset
404 '("CVS"
87892
3e7b6b0c4599 (cvs-menu): Improve cvs-mode-find-file, cvs-mode-find-file-other-window.
Reiner Steib <Reiner.Steib@gmx.de>
parents: 79721
diff changeset
405 ["Open file" cvs-mode-find-file t]
3e7b6b0c4599 (cvs-menu): Improve cvs-mode-find-file, cvs-mode-find-file-other-window.
Reiner Steib <Reiner.Steib@gmx.de>
parents: 79721
diff changeset
406 ["Open in other window" cvs-mode-find-file-other-window t]
37340
3ae41b8bb994 (cvs-mode-map): Bind C-o like in dired.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 36613
diff changeset
407 ["Display in other window" cvs-mode-display-file t]
34375
3cd9d12d2b5d * pcvs-defs.el (cvs-menu): Move. Make submenu for diff commands.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 34304
diff changeset
408 ["Interactive merge" cvs-mode-imerge t]
3cd9d12d2b5d * pcvs-defs.el (cvs-menu): Move. Make submenu for diff commands.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 34304
diff changeset
409 ("View diff"
3cd9d12d2b5d * pcvs-defs.el (cvs-menu): Move. Make submenu for diff commands.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 34304
diff changeset
410 ["Interactive diff" cvs-mode-idiff t]
3cd9d12d2b5d * pcvs-defs.el (cvs-menu): Move. Make submenu for diff commands.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 34304
diff changeset
411 ["Current diff" cvs-mode-diff t]
3cd9d12d2b5d * pcvs-defs.el (cvs-menu): Move. Make submenu for diff commands.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 34304
diff changeset
412 ["Diff with head" cvs-mode-diff-head t]
3cd9d12d2b5d * pcvs-defs.el (cvs-menu): Move. Make submenu for diff commands.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 34304
diff changeset
413 ["Diff with vendor" cvs-mode-diff-vendor t]
87892
3e7b6b0c4599 (cvs-menu): Improve cvs-mode-find-file, cvs-mode-find-file-other-window.
Reiner Steib <Reiner.Steib@gmx.de>
parents: 79721
diff changeset
414 ["Diff against yesterday" cvs-mode-diff-yesterday t]
34375
3cd9d12d2b5d * pcvs-defs.el (cvs-menu): Move. Make submenu for diff commands.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 34304
diff changeset
415 ["Diff with backup" cvs-mode-diff-backup t])
3cd9d12d2b5d * pcvs-defs.el (cvs-menu): Move. Make submenu for diff commands.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 34304
diff changeset
416 ["View log" cvs-mode-log t]
3cd9d12d2b5d * pcvs-defs.el (cvs-menu): Move. Make submenu for diff commands.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 34304
diff changeset
417 ["View status" cvs-mode-status t]
3cd9d12d2b5d * pcvs-defs.el (cvs-menu): Move. Make submenu for diff commands.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 34304
diff changeset
418 ["View tag tree" cvs-mode-tree t]
3cd9d12d2b5d * pcvs-defs.el (cvs-menu): Move. Make submenu for diff commands.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 34304
diff changeset
419 "----"
3cd9d12d2b5d * pcvs-defs.el (cvs-menu): Move. Make submenu for diff commands.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 34304
diff changeset
420 ["Insert" cvs-mode-insert]
3cd9d12d2b5d * pcvs-defs.el (cvs-menu): Move. Make submenu for diff commands.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 34304
diff changeset
421 ["Update" cvs-mode-update (cvs-enabledp 'update)]
3cd9d12d2b5d * pcvs-defs.el (cvs-menu): Move. Make submenu for diff commands.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 34304
diff changeset
422 ["Re-examine" cvs-mode-examine t]
3cd9d12d2b5d * pcvs-defs.el (cvs-menu): Move. Make submenu for diff commands.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 34304
diff changeset
423 ["Commit" cvs-mode-commit-setup (cvs-enabledp 'commit)]
53921
efcea43dc549 (cvs-menu): Add `tag'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 52401
diff changeset
424 ["Tag" cvs-mode-tag (cvs-enabledp (when cvs-force-dir-tag 'tag))]
34375
3cd9d12d2b5d * pcvs-defs.el (cvs-menu): Move. Make submenu for diff commands.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 34304
diff changeset
425 ["Undo changes" cvs-mode-undo (cvs-enabledp 'undo)]
3cd9d12d2b5d * pcvs-defs.el (cvs-menu): Move. Make submenu for diff commands.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 34304
diff changeset
426 ["Add" cvs-mode-add (cvs-enabledp 'add)]
3cd9d12d2b5d * pcvs-defs.el (cvs-menu): Move. Make submenu for diff commands.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 34304
diff changeset
427 ["Remove" cvs-mode-remove (cvs-enabledp 'remove)]
3cd9d12d2b5d * pcvs-defs.el (cvs-menu): Move. Make submenu for diff commands.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 34304
diff changeset
428 ["Ignore" cvs-mode-ignore (cvs-enabledp 'ignore)]
3cd9d12d2b5d * pcvs-defs.el (cvs-menu): Move. Make submenu for diff commands.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 34304
diff changeset
429 ["Add ChangeLog" cvs-mode-add-change-log-entry-other-window t]
3cd9d12d2b5d * pcvs-defs.el (cvs-menu): Move. Make submenu for diff commands.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 34304
diff changeset
430 "----"
63621
88552d8d3c8e (cvs-menu): Add cvs-mode-mark and cvs-mode-unmark.
Reiner Steib <Reiner.Steib@gmx.de>
parents: 63210
diff changeset
431 ["Mark" cvs-mode-mark t]
34375
3cd9d12d2b5d * pcvs-defs.el (cvs-menu): Move. Make submenu for diff commands.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 34304
diff changeset
432 ["Mark all" cvs-mode-mark-all-files t]
37340
3ae41b8bb994 (cvs-mode-map): Bind C-o like in dired.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 36613
diff changeset
433 ["Mark by regexp..." cvs-mode-mark-matching-files t]
3ae41b8bb994 (cvs-mode-map): Bind C-o like in dired.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 36613
diff changeset
434 ["Mark by state..." cvs-mode-mark-on-state t]
63621
88552d8d3c8e (cvs-menu): Add cvs-mode-mark and cvs-mode-unmark.
Reiner Steib <Reiner.Steib@gmx.de>
parents: 63210
diff changeset
435 ["Unmark" cvs-mode-unmark t]
34375
3cd9d12d2b5d * pcvs-defs.el (cvs-menu): Move. Make submenu for diff commands.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 34304
diff changeset
436 ["Unmark all" cvs-mode-unmark-all-files t]
3cd9d12d2b5d * pcvs-defs.el (cvs-menu): Move. Make submenu for diff commands.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 34304
diff changeset
437 ["Hide handled" cvs-mode-remove-handled t]
3cd9d12d2b5d * pcvs-defs.el (cvs-menu): Move. Make submenu for diff commands.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 34304
diff changeset
438 "----"
87892
3e7b6b0c4599 (cvs-menu): Improve cvs-mode-find-file, cvs-mode-find-file-other-window.
Reiner Steib <Reiner.Steib@gmx.de>
parents: 79721
diff changeset
439 ["PCL-CVS Manual" (lambda () (interactive)
3e7b6b0c4599 (cvs-menu): Improve cvs-mode-find-file, cvs-mode-find-file-other-window.
Reiner Steib <Reiner.Steib@gmx.de>
parents: 79721
diff changeset
440 (info "(pcl-cvs)Top")) t]
3e7b6b0c4599 (cvs-menu): Improve cvs-mode-find-file, cvs-mode-find-file-other-window.
Reiner Steib <Reiner.Steib@gmx.de>
parents: 79721
diff changeset
441 "----"
34375
3cd9d12d2b5d * pcvs-defs.el (cvs-menu): Move. Make submenu for diff commands.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 34304
diff changeset
442 ["Quit" cvs-mode-quit t]))
28088
b442dfc3cef0 *** empty log message ***
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
443
37819
c1646601f895 (cvs-mode-map): bind "z" and [RET]
Sam Steingold <sds@gnu.org>
parents: 37695
diff changeset
444 ;;;;
28088
b442dfc3cef0 *** empty log message ***
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
445 ;;;; CVS-Minor mode
37819
c1646601f895 (cvs-mode-map): bind "z" and [RET]
Sam Steingold <sds@gnu.org>
parents: 37695
diff changeset
446 ;;;;
28088
b442dfc3cef0 *** empty log message ***
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
447
b442dfc3cef0 *** empty log message ***
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
448 (defcustom cvs-minor-mode-prefix "\C-xc"
b442dfc3cef0 *** empty log message ***
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
449 "Prefix key for the `cvs-mode' bindings in `cvs-minor-mode'."
b442dfc3cef0 *** empty log message ***
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
450 :group 'pcl-cvs)
b442dfc3cef0 *** empty log message ***
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
451
b442dfc3cef0 *** empty log message ***
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
452 (easy-mmode-defmap cvs-minor-mode-map
48269
b4a43403c371 (cvs-mode-map): Remove M-f binding.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 46098
diff changeset
453 `((,cvs-minor-mode-prefix . cvs-mode-map)
b4a43403c371 (cvs-mode-map): Remove M-f binding.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 46098
diff changeset
454 ("e" . (menu-item nil cvs-mode-edit-log
b4a43403c371 (cvs-mode-map): Remove M-f binding.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 46098
diff changeset
455 :filter (lambda (x) (if (derived-mode-p 'log-view-mode) x)))))
34406
26b5a3053881 (cvs-mode-diff-map): Use minibuffer menu prompts.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 34375
diff changeset
456 "Keymap for `cvs-minor-mode', used in buffers related to PCL-CVS.")
28088
b442dfc3cef0 *** empty log message ***
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
457
b442dfc3cef0 *** empty log message ***
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
458 (defvar cvs-buffer nil
b442dfc3cef0 *** empty log message ***
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
459 "(Buffer local) The *cvs* buffer associated with this buffer.")
b442dfc3cef0 *** empty log message ***
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
460 (put 'cvs-buffer 'permanent-local t)
b442dfc3cef0 *** empty log message ***
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
461 ;;(make-variable-buffer-local 'cvs-buffer)
b442dfc3cef0 *** empty log message ***
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
462
b442dfc3cef0 *** empty log message ***
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
463 (defvar cvs-minor-wrap-function nil
b442dfc3cef0 *** empty log message ***
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
464 "Function to call when switching to the *cvs* buffer.
b442dfc3cef0 *** empty log message ***
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
465 Takes two arguments:
b442dfc3cef0 *** empty log message ***
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
466 - a *cvs* buffer.
b442dfc3cef0 *** empty log message ***
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
467 - a zero-arg function which is guaranteed not to switch buffer.
b442dfc3cef0 *** empty log message ***
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
468 It is expected to call the function.")
b442dfc3cef0 *** empty log message ***
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
469 ;;(make-variable-buffer-local 'cvs-minor-wrap-function)
b442dfc3cef0 *** empty log message ***
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
470
b442dfc3cef0 *** empty log message ***
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
471 (defvar cvs-minor-current-files)
b442dfc3cef0 *** empty log message ***
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
472 ;;"Current files in a `cvs-minor-mode' buffer."
b442dfc3cef0 *** empty log message ***
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
473 ;; This should stay `void' because we want to be able to tell the difference
b442dfc3cef0 *** empty log message ***
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
474 ;; between an empty list and no list at all.
b442dfc3cef0 *** empty log message ***
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
475
b442dfc3cef0 *** empty log message ***
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
476 (defconst cvs-pcl-cvs-dirchange-re "^pcl-cvs: descending directory \\(.*\\)$")
b442dfc3cef0 *** empty log message ***
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
477
37819
c1646601f895 (cvs-mode-map): bind "z" and [RET]
Sam Steingold <sds@gnu.org>
parents: 37695
diff changeset
478 ;;;;
28256
06cfa273543d * pcvs.el: Add a minimal leading commentary.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 28160
diff changeset
479 ;;;; autoload the global menu
37819
c1646601f895 (cvs-mode-map): bind "z" and [RET]
Sam Steingold <sds@gnu.org>
parents: 37695
diff changeset
480 ;;;;
28088
b442dfc3cef0 *** empty log message ***
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
481
28256
06cfa273543d * pcvs.el: Add a minimal leading commentary.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 28160
diff changeset
482 ;;;###autoload
06cfa273543d * pcvs.el: Add a minimal leading commentary.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 28160
diff changeset
483 (defvar cvs-global-menu
06cfa273543d * pcvs.el: Add a minimal leading commentary.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 28160
diff changeset
484 (let ((m (make-sparse-keymap "PCL-CVS")))
06cfa273543d * pcvs.el: Add a minimal leading commentary.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 28160
diff changeset
485 (define-key m [status]
06cfa273543d * pcvs.el: Add a minimal leading commentary.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 28160
diff changeset
486 '(menu-item "Directory Status" cvs-status
06cfa273543d * pcvs.el: Add a minimal leading commentary.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 28160
diff changeset
487 :help "A more verbose status of a workarea"))
06cfa273543d * pcvs.el: Add a minimal leading commentary.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 28160
diff changeset
488 (define-key m [checkout]
06cfa273543d * pcvs.el: Add a minimal leading commentary.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 28160
diff changeset
489 '(menu-item "Checkout Module" cvs-checkout
06cfa273543d * pcvs.el: Add a minimal leading commentary.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 28160
diff changeset
490 :help "Check out a module from the repository"))
06cfa273543d * pcvs.el: Add a minimal leading commentary.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 28160
diff changeset
491 (define-key m [update]
06cfa273543d * pcvs.el: Add a minimal leading commentary.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 28160
diff changeset
492 '(menu-item "Update Directory" cvs-update
06cfa273543d * pcvs.el: Add a minimal leading commentary.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 28160
diff changeset
493 :help "Fetch updates from the repository"))
06cfa273543d * pcvs.el: Add a minimal leading commentary.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 28160
diff changeset
494 (define-key m [examine]
06cfa273543d * pcvs.el: Add a minimal leading commentary.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 28160
diff changeset
495 '(menu-item "Examine Directory" cvs-examine
06cfa273543d * pcvs.el: Add a minimal leading commentary.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 28160
diff changeset
496 :help "Examine the current state of a workarea"))
51589
b521a93dd16b (cvs-global-menu): Define as a function as well.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 50930
diff changeset
497 (fset 'cvs-global-menu m)))
28088
b442dfc3cef0 *** empty log message ***
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
498
b442dfc3cef0 *** empty log message ***
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
499
b442dfc3cef0 *** empty log message ***
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
500 ;; cvs-1.10 and above can take file arguments in other directories
b442dfc3cef0 *** empty log message ***
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
501 ;; while others need to be executed once per directory
b442dfc3cef0 *** empty log message ***
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
502 (defvar cvs-execute-single-dir
65511
60a70d15255d (cvs-version): Recognize CVSNT version string.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 64762
diff changeset
503 (if (or (null cvs-version)
60a70d15255d (cvs-version): Recognize CVSNT version string.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 64762
diff changeset
504 (or (>= (cdr cvs-version) 10) (> (car cvs-version) 1)))
60a70d15255d (cvs-version): Recognize CVSNT version string.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 64762
diff changeset
505 ;; Supposedly some recent versions of CVS output some directory info
60a70d15255d (cvs-version): Recognize CVSNT version string.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 64762
diff changeset
506 ;; as they recurse downthe tree, but it's not good enough in the case
60a70d15255d (cvs-version): Recognize CVSNT version string.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 64762
diff changeset
507 ;; where we run "cvs status foo bar/foo".
28088
b442dfc3cef0 *** empty log message ***
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
508 '("status")
b442dfc3cef0 *** empty log message ***
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
509 t)
b442dfc3cef0 *** empty log message ***
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
510 "Whether cvs commands should be executed a directory at a time.
b442dfc3cef0 *** empty log message ***
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
511 If a list, specifies for which commands the single-dir mode should be used.
b442dfc3cef0 *** empty log message ***
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
512 If T, single-dir mode should be used for all operations.
b442dfc3cef0 *** empty log message ***
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
513
b442dfc3cef0 *** empty log message ***
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
514 CVS versions before 1.10 did not allow passing them arguments in different
b442dfc3cef0 *** empty log message ***
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
515 directories, so pcl-cvs checks what version you're using to determine
b442dfc3cef0 *** empty log message ***
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
516 whether to use the new feature or not.
b442dfc3cef0 *** empty log message ***
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
517 Sadly, even with a new cvs executable, if you connect to an older cvs server
b442dfc3cef0 *** empty log message ***
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
518 \(typically a cvs-1.9 on the server), the old restriction applies. In such
b442dfc3cef0 *** empty log message ***
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
519 a case the sanity check made by pcl-cvs fails and you will have to manually
42205
7308bbc423d5 Doc fixes.
Pavel Janík <Pavel@Janik.cz>
parents: 40581
diff changeset
520 set this variable to t (until the cvs server is upgraded).
28088
b442dfc3cef0 *** empty log message ***
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
521 When the above problem occurs, pcl-cvs should (hopefully) catch cvs' error
65511
60a70d15255d (cvs-version): Recognize CVSNT version string.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 64762
diff changeset
522 message and replace it with a message telling you to change this variable.")
28088
b442dfc3cef0 *** empty log message ***
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
523
b442dfc3cef0 *** empty log message ***
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
524 ;;
b442dfc3cef0 *** empty log message ***
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
525 (provide 'pcvs-defs)
b442dfc3cef0 *** empty log message ***
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
526
57434
1776f7c5e250 (pcl-cvs-load-hook): Remove unused var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 56315
diff changeset
527 ;; arch-tag: c7c701d0-d1d4-4aa9-a302-007bb03aca5e
38422
7a94f1c588c4 Some fixes to follow coding conventions.
Pavel Janík <Pavel@Janik.cz>
parents: 37819
diff changeset
528 ;;; pcvs-defs.el ends here