Mercurial > emacs
annotate lisp/vc/pcvs-defs.el @ 109179:8cfee7d2955f
Convert DEFUNs to standard C.
* src/alloc.c: Convert DEFUNs to standard C.
* src/buffer.c:
* src/bytecode.c:
* src/callint.c:
* src/callproc.c:
* src/casefiddle.c:
* src/casetab.c:
* src/category.c:
* src/character.c:
* src/charset.c:
* src/chartab.c:
* src/cmds.c:
* src/coding.c:
* src/composite.c:
* src/data.c:
* src/dbusbind.c:
* src/dired.c:
* src/dispnew.c:
* src/doc.c:
* src/dosfns.c:
* src/editfns.c:
* src/emacs.c:
* src/eval.c:
* src/fileio.c:
* src/filelock.c:
* src/floatfns.c:
* src/fns.c:
* src/font.c:
* src/fontset.c:
* src/frame.c:
* src/fringe.c:
* src/image.c:
* src/indent.c:
* src/insdel.c:
* src/keyboard.c:
* src/keymap.c:
* src/lread.c:
* src/macros.c:
* src/marker.c:
* src/menu.c:
* src/minibuf.c:
* src/msdos.c:
* src/nsfns.m:
* src/nsmenu.m:
* src/nsselect.m:
* src/print.c:
* src/process.c:
* src/search.c:
* src/sound.c:
* src/syntax.c:
* src/term.c:
* src/terminal.c:
* src/textprop.c:
* src/undo.c:
* src/w16select.c:
* src/w32console.c:
* src/w32fns.c:
* src/w32font.c:
* src/w32menu.c:
* src/w32proc.c:
* src/w32select.c:
* src/window.c:
* src/xdisp.c:
* src/xfaces.c:
* src/xfns.c:
* src/xmenu.c:
* src/xselect.c:
* src/xsettings.c:
* src/xsmfns.c: Likewise.
author | Dan Nicolaescu <dann@ics.uci.edu> |
---|---|
date | Thu, 08 Jul 2010 14:25:08 -0700 |
parents | 6ff48295959a |
children | c77749185234 280c8ae2476d |
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, |
106815 | 4 ;; 2000, 2001, 2002, 2003, 2004, 2005, 2006, 2007, 2008, 2009, 2010 |
94316
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 |
98864
4db633f0428a
(cvs-cvsrc-file): Run file names that begin with a period thru
Eli Zaretskii <eliz@gnu.org>
parents:
94678
diff
changeset
|
78 (defcustom cvs-cvsrc-file (convert-standard-filename "~/.cvsrc") |
28088
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 | 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] |
105715
6b8dce5c4461
* puresize.h (BASE_PURESIZE): Increase to 1430000.
Dan Nicolaescu <dann@ics.uci.edu>
parents:
100908
diff
changeset
|
486 `(menu-item ,(purecopy "Directory Status") cvs-status |
6b8dce5c4461
* puresize.h (BASE_PURESIZE): Increase to 1430000.
Dan Nicolaescu <dann@ics.uci.edu>
parents:
100908
diff
changeset
|
487 :help ,(purecopy "A more verbose status of a workarea"))) |
28256
06cfa273543d
* pcvs.el: Add a minimal leading commentary.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
28160
diff
changeset
|
488 (define-key m [checkout] |
105715
6b8dce5c4461
* puresize.h (BASE_PURESIZE): Increase to 1430000.
Dan Nicolaescu <dann@ics.uci.edu>
parents:
100908
diff
changeset
|
489 `(menu-item ,(purecopy "Checkout Module") cvs-checkout |
6b8dce5c4461
* puresize.h (BASE_PURESIZE): Increase to 1430000.
Dan Nicolaescu <dann@ics.uci.edu>
parents:
100908
diff
changeset
|
490 :help ,(purecopy "Check out a module from the repository"))) |
28256
06cfa273543d
* pcvs.el: Add a minimal leading commentary.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
28160
diff
changeset
|
491 (define-key m [update] |
105715
6b8dce5c4461
* puresize.h (BASE_PURESIZE): Increase to 1430000.
Dan Nicolaescu <dann@ics.uci.edu>
parents:
100908
diff
changeset
|
492 `(menu-item ,(purecopy "Update Directory") cvs-update |
6b8dce5c4461
* puresize.h (BASE_PURESIZE): Increase to 1430000.
Dan Nicolaescu <dann@ics.uci.edu>
parents:
100908
diff
changeset
|
493 :help ,(purecopy "Fetch updates from the repository"))) |
28256
06cfa273543d
* pcvs.el: Add a minimal leading commentary.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
28160
diff
changeset
|
494 (define-key m [examine] |
105715
6b8dce5c4461
* puresize.h (BASE_PURESIZE): Increase to 1430000.
Dan Nicolaescu <dann@ics.uci.edu>
parents:
100908
diff
changeset
|
495 `(menu-item ,(purecopy "Examine Directory") cvs-examine |
6b8dce5c4461
* puresize.h (BASE_PURESIZE): Increase to 1430000.
Dan Nicolaescu <dann@ics.uci.edu>
parents:
100908
diff
changeset
|
496 :help ,(purecopy "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 | 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 |