/[emacs]/emacs/lisp/pcvs.el
ViewVC logotype

Diff of /emacs/lisp/pcvs.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.82 by miles, Fri Jun 10 09:13:25 2005 UTC revision 1.83 by lektu, Tue Jun 14 15:20:05 2005 UTC
# Line 944  With a prefix argument, prompt for cvs F Line 944  With a prefix argument, prompt for cvs F
944  (defun-cvs-mode (cvs-mode-checkout . NOARGS) (dir)  (defun-cvs-mode (cvs-mode-checkout . NOARGS) (dir)
945    "Run cvs checkout against the current branch.    "Run cvs checkout against the current branch.
946  The files are stored to DIR."  The files are stored to DIR."
947    (interactive    (interactive
948     (let* ((branch (cvs-prefix-get 'cvs-branch-prefix))     (let* ((branch (cvs-prefix-get 'cvs-branch-prefix))
949            (prompt (format "CVS Checkout Directory for `%s%s': "            (prompt (format "CVS Checkout Directory for `%s%s': "
950                           (cvs-get-module)                           (cvs-get-module)
951                           (if branch (format " (branch: %s)" branch)                           (if branch (format " (branch: %s)" branch)
952                             ""))))                             ""))))
# Line 1123  Full documentation is in the Texinfo fil Line 1123  Full documentation is in the Texinfo fil
1123                                        ("->" cvs-secondary-branch-prefix))))                                        ("->" cvs-secondary-branch-prefix))))
1124            " " cvs-mode-line-process))            " " cvs-mode-line-process))
1125    (if buffer-file-name    (if buffer-file-name
1126        (error "Use M-x cvs-quickdir to get a *cvs* buffer."))        (error "Use M-x cvs-quickdir to get a *cvs* buffer"))
1127    (buffer-disable-undo)    (buffer-disable-undo)
1128    ;;(set (make-local-variable 'goal-column) cvs-cursor-column)    ;;(set (make-local-variable 'goal-column) cvs-cursor-column)
1129    (set (make-local-variable 'revert-buffer-function) 'cvs-mode-revert-buffer)    (set (make-local-variable 'revert-buffer-function) 'cvs-mode-revert-buffer)

Legend:
Removed from v.1.82  
changed lines
  Added in v.1.83

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26