[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/pcvs.el,v [EMACS_22_BASE]
From: |
Reiner Steib |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/pcvs.el,v [EMACS_22_BASE] |
Date: |
Sat, 25 Aug 2007 12:18:51 +0000 |
CVSROOT: /cvsroot/emacs
Module name: emacs
Branch: EMACS_22_BASE
Changes by: Reiner Steib <rsteib> 07/08/25 12:18:49
Index: pcvs.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/pcvs.el,v
retrieving revision 1.98.2.8
retrieving revision 1.98.2.9
diff -u -b -r1.98.2.8 -r1.98.2.9
--- pcvs.el 23 Aug 2007 18:39:32 -0000 1.98.2.8
+++ pcvs.el 25 Aug 2007 12:18:42 -0000 1.98.2.9
@@ -981,13 +981,13 @@
(interactive)
(cvs-examine default-directory t))
-(defun cvs-query-directory (msg)
- ;; last-command-char = ?\r hints that the command was run via M-x
+(defun cvs-query-directory (prompt)
+ "Read directory name, prompting with PROMPT.
+If in a *cvs* buffer, don't prompt unless a prefix argument is given."
(if (and (cvs-buffer-p)
- (not current-prefix-arg)
- (not (eq last-command-char ?\r)))
+ (not current-prefix-arg))
default-directory
- (read-directory-name msg nil default-directory nil)))
+ (read-directory-name prompt nil default-directory nil)))
;;;###autoload
(defun cvs-quickdir (dir &optional flags noshow)