40 |
(defvar cvs-version |
(defvar cvs-version |
41 |
(ignore-errors |
(ignore-errors |
42 |
(with-temp-buffer |
(with-temp-buffer |
43 |
(call-process "cvs" nil t nil "-v") |
(call-process cvs-program nil t nil "-v") |
44 |
(goto-char (point-min)) |
(goto-char (point-min)) |
45 |
(when (re-search-forward "(CVS) \\([0-9]+\\)\\.\\([0-9]+\\)" nil t) |
(when (re-search-forward "(CVS) \\([0-9]+\\)\\.\\([0-9]+\\)" nil t) |
46 |
(cons (string-to-number (match-string 1)) |
(cons (string-to-number (match-string 1)) |
105 |
|
|
106 |
(defcustom cvs-auto-remove-directories 'handled |
(defcustom cvs-auto-remove-directories 'handled |
107 |
"*If ALL, directory entries will never be shown. |
"*If ALL, directory entries will never be shown. |
108 |
If HANLDED, only non-handled directories will be shown. |
If HANDLED, only non-handled directories will be shown. |
109 |
If EMPTY, only non-empty directories will be shown." |
If EMPTY, only non-empty directories will be shown." |
110 |
:group 'pcl-cvs |
:group 'pcl-cvs |
111 |
:type '(choice (const :tag "No" nil) (const all) (const handled) (const empty))) |
:type '(choice (const :tag "No" nil) (const all) (const handled) (const empty))) |
137 |
:group 'pcl-cvs |
:group 'pcl-cvs |
138 |
:type '(boolean)) |
:type '(boolean)) |
139 |
|
|
140 |
(defvar cvs-diff-ignore-marks t |
(defvar cvs-diff-ignore-marks t) |
141 |
"Obsolete: use `cvs-invert-ignore-marks' instead.") |
(make-obsolete-variable 'cvs-diff-ignore-marks |
142 |
|
'cvs-invert-ignore-marks) |
143 |
|
|
144 |
(defcustom cvs-invert-ignore-marks |
(defcustom cvs-invert-ignore-marks |
145 |
(let ((l ())) |
(let ((l ())) |
174 |
:type '(choice (const :tag "Prompt" nil) |
:type '(choice (const :tag "Prompt" nil) |
175 |
(string))) |
(string))) |
176 |
|
|
177 |
(defvar cvs-diff-buffer-name "*cvs-diff*" |
(defvar cvs-diff-buffer-name "*cvs-diff*") |
178 |
"Obsolete variable: use `cvs-buffer-name-alist' instead.") |
(make-obsolete-variable 'cvs-diff-buffer-name |
179 |
|
'cvs-buffer-name-alist) |
180 |
|
|
181 |
(defcustom cvs-find-file-and-jump nil |
(defcustom cvs-find-file-and-jump nil |
182 |
"Jump to the modified area when finding a file. |
"Jump to the modified area when finding a file. |
326 |
("q" . cvs-bury-buffer) |
("q" . cvs-bury-buffer) |
327 |
("z" . kill-this-buffer) |
("z" . kill-this-buffer) |
328 |
("F" . cvs-mode-set-flags) |
("F" . cvs-mode-set-flags) |
329 |
("\M-f" . cvs-mode-force-command) |
;; ("\M-f" . cvs-mode-force-command) |
330 |
|
("!" . cvs-mode-force-command) |
331 |
("\C-c\C-c" . cvs-mode-kill-process) |
("\C-c\C-c" . cvs-mode-kill-process) |
332 |
;; marking |
;; marking |
333 |
("m" . cvs-mode-mark) |
("m" . cvs-mode-mark) |
436 |
:group 'pcl-cvs) |
:group 'pcl-cvs) |
437 |
|
|
438 |
(easy-mmode-defmap cvs-minor-mode-map |
(easy-mmode-defmap cvs-minor-mode-map |
439 |
`((,cvs-minor-mode-prefix . cvs-mode-map)) |
`((,cvs-minor-mode-prefix . cvs-mode-map) |
440 |
|
("e" . (menu-item nil cvs-mode-edit-log |
441 |
|
:filter (lambda (x) (if (derived-mode-p 'log-view-mode) x))))) |
442 |
"Keymap for `cvs-minor-mode', used in buffers related to PCL-CVS.") |
"Keymap for `cvs-minor-mode', used in buffers related to PCL-CVS.") |
443 |
|
|
444 |
(defvar cvs-buffer nil |
(defvar cvs-buffer nil |