aboutsummaryrefslogtreecommitdiffstats
path: root/lisp/pcvs.el
diff options
context:
space:
mode:
Diffstat (limited to 'lisp/pcvs.el')
-rw-r--r--lisp/pcvs.el8
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.
946The files are stored to DIR." 946The 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)