diff options
Diffstat (limited to 'lisp/pcvs.el')
| -rw-r--r-- | lisp/pcvs.el | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/lisp/pcvs.el b/lisp/pcvs.el index 7c96a080c54..be93104a33f 100644 --- a/lisp/pcvs.el +++ b/lisp/pcvs.el | |||
| @@ -944,9 +944,9 @@ With a prefix argument, prompt for cvs FLAGS to use." | |||
| 944 | (defun-cvs-mode (cvs-mode-checkout . NOARGS) (dir) | 944 | (defun-cvs-mode (cvs-mode-checkout . NOARGS) (dir) |
| 945 | "Run cvs checkout against the current branch. | 945 | "Run cvs checkout against the current branch. |
| 946 | The files are stored to DIR." | 946 | The files are stored to DIR." |
| 947 | (interactive | 947 | (interactive |
| 948 | (let* ((branch (cvs-prefix-get 'cvs-branch-prefix)) | 948 | (let* ((branch (cvs-prefix-get 'cvs-branch-prefix)) |
| 949 | (prompt (format "CVS Checkout Directory for `%s%s': " | 949 | (prompt (format "CVS Checkout Directory for `%s%s': " |
| 950 | (cvs-get-module) | 950 | (cvs-get-module) |
| 951 | (if branch (format " (branch: %s)" branch) | 951 | (if branch (format " (branch: %s)" branch) |
| 952 | "")))) | 952 | "")))) |
| @@ -1123,7 +1123,7 @@ Full documentation is in the Texinfo file." | |||
| 1123 | ("->" cvs-secondary-branch-prefix)))) | 1123 | ("->" cvs-secondary-branch-prefix)))) |
| 1124 | " " cvs-mode-line-process)) | 1124 | " " cvs-mode-line-process)) |
| 1125 | (if buffer-file-name | 1125 | (if buffer-file-name |
| 1126 | (error "Use M-x cvs-quickdir to get a *cvs* buffer.")) | 1126 | (error "Use M-x cvs-quickdir to get a *cvs* buffer")) |
| 1127 | (buffer-disable-undo) | 1127 | (buffer-disable-undo) |
| 1128 | ;;(set (make-local-variable 'goal-column) cvs-cursor-column) | 1128 | ;;(set (make-local-variable 'goal-column) cvs-cursor-column) |
| 1129 | (set (make-local-variable 'revert-buffer-function) 'cvs-mode-revert-buffer) | 1129 | (set (make-local-variable 'revert-buffer-function) 'cvs-mode-revert-buffer) |
| @@ -1980,7 +1980,7 @@ With a prefix, opens the buffer in an OTHER window." | |||
| 1980 | (when (and (/= (point) (progn (posn-set-point (event-end e)) (point))) | 1980 | (when (and (/= (point) (progn (posn-set-point (event-end e)) (point))) |
| 1981 | (not (memq (get-text-property (1- (line-end-position)) | 1981 | (not (memq (get-text-property (1- (line-end-position)) |
| 1982 | 'font-lock-face) | 1982 | 'font-lock-face) |
| 1983 | '(cvs-header-face cvs-filename-face)))) | 1983 | '(cvs-header cvs-filename)))) |
| 1984 | (error "Not a file name")) | 1984 | (error "Not a file name")) |
| 1985 | (cvs-mode! | 1985 | (cvs-mode! |
| 1986 | (lambda (&optional rev) | 1986 | (lambda (&optional rev) |