diff options
| author | Philip Kaludercic | 2022-10-06 17:02:00 +0200 |
|---|---|---|
| committer | Philip Kaludercic | 2022-10-06 22:03:15 +0200 |
| commit | 132e4fbbcb0d92ac1667a670adf05b7475fc6b13 (patch) | |
| tree | 0fed4baf3e207fb58c6a37aa4caa51dc170c03ae | |
| parent | 3d0ab51826b077ae13a022c9d80df606f1a03454 (diff) | |
| download | emacs-132e4fbbcb0d92ac1667a670adf05b7475fc6b13.tar.gz emacs-132e4fbbcb0d92ac1667a670adf05b7475fc6b13.zip | |
* lisp/vc/vc-cvs.el (vc-cvs-clone): Add 'clone' implementation
| -rw-r--r-- | lisp/vc/vc-cvs.el | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/lisp/vc/vc-cvs.el b/lisp/vc/vc-cvs.el index 52cc42791fa..7d348240ba4 100644 --- a/lisp/vc/vc-cvs.el +++ b/lisp/vc/vc-cvs.el | |||
| @@ -1258,6 +1258,9 @@ ignore file." | |||
| 1258 | (if sort (sort-lines nil (point-min) (point-max))) | 1258 | (if sort (sort-lines nil (point-min) (point-max))) |
| 1259 | (save-buffer))))) | 1259 | (save-buffer))))) |
| 1260 | 1260 | ||
| 1261 | (defun vc-cvs-clone (remote directory) | ||
| 1262 | (vc-cvs-command nil 0 '() "checkout" "-d" directory remote)) | ||
| 1263 | |||
| 1261 | (defvar-keymap vc-cvs-log-view-mode-map | 1264 | (defvar-keymap vc-cvs-log-view-mode-map |
| 1262 | "N" #'log-view-file-next | 1265 | "N" #'log-view-file-next |
| 1263 | "P" #'log-view-file-prev | 1266 | "P" #'log-view-file-prev |