[Emacs-diffs] Changes to emacs/lisp/pcvs.el

[Juanma Barranquero]

Index: emacs/lisp/pcvs.el
diff -c emacs/lisp/pcvs.el:1.82 emacs/lisp/pcvs.el:1.83
*** emacs/lisp/pcvs.el:1.82     Fri Jun 10 09:13:25 2005
--- emacs/lisp/pcvs.el  Tue Jun 14 15:20:05 2005
***************
*** 944,952 ****
  (defun-cvs-mode (cvs-mode-checkout . NOARGS) (dir)
    "Run cvs checkout against the current branch.
  The files are stored to DIR."
!   (interactive 
     (let* ((branch (cvs-prefix-get 'cvs-branch-prefix))
!         (prompt (format "CVS Checkout Directory for `%s%s': " 
                         (cvs-get-module)
                         (if branch (format " (branch: %s)" branch)
                           ""))))
--- 944,952 ----
  (defun-cvs-mode (cvs-mode-checkout . NOARGS) (dir)
    "Run cvs checkout against the current branch.
  The files are stored to DIR."
!   (interactive
     (let* ((branch (cvs-prefix-get 'cvs-branch-prefix))
!         (prompt (format "CVS Checkout Directory for `%s%s': "
                         (cvs-get-module)
                         (if branch (format " (branch: %s)" branch)
                           ""))))
***************
*** 1123,1129 ****
                                      ("->" cvs-secondary-branch-prefix))))
          " " cvs-mode-line-process))
    (if buffer-file-name
!       (error "Use M-x cvs-quickdir to get a *cvs* buffer."))
    (buffer-disable-undo)
    ;;(set (make-local-variable 'goal-column) cvs-cursor-column)
    (set (make-local-variable 'revert-buffer-function) 'cvs-mode-revert-buffer)
--- 1123,1129 ----
                                      ("->" cvs-secondary-branch-prefix))))
          " " cvs-mode-line-process))
    (if buffer-file-name
!       (error "Use M-x cvs-quickdir to get a *cvs* buffer"))
    (buffer-disable-undo)
    ;;(set (make-local-variable 'goal-column) cvs-cursor-column)
    (set (make-local-variable 'revert-buffer-function) 'cvs-mode-revert-buffer)