[prev in list] [next in list] [prev in thread] [next in thread] 

List:       subversion-cvs
Subject:    svn commit: r10110 - trunk/contrib/client-side/psvn
From:       xsteve () tigris ! org
Date:       2004-06-30 19:15:11
Message-ID: 200406301915.i5UJFBN22274 () morbius ! ch ! collab ! net
[Download RAW message or body]

Author: xsteve
Date: Wed Jun 30 14:15:05 2004
New Revision: 10110

Modified:
   trunk/contrib/client-side/psvn/psvn.el
Log:
Use read-directory-name if it is available, otherwise use read-file-name to get
a directory name from the user

* trunk/contrib/client-side/psvn/psvn.el:
  (svn-status): Use read-directory-name instead of read-file-name to read a directory \
name  (svn-status-mv): Use read-directory-name instead of read-file-name to read a \
directory name

Modified: trunk/contrib/client-side/psvn/psvn.el
Url: http://svn.collab.net/viewcvs/svn/trunk/contrib/client-side/psvn/psvn.el?view=dif \
f&rev=10110&p1=trunk/contrib/client-side/psvn/psvn.el&r1=10109&p2=trunk/contrib/client-side/psvn/psvn.el&r2=10110
 ==============================================================================
--- trunk/contrib/client-side/psvn/psvn.el	(original)
+++ trunk/contrib/client-side/psvn/psvn.el	Wed Jun 30 14:15:05 2004
@@ -281,6 +281,7 @@
 ; emacs 20
 (unless (fboundp 'point-at-eol) (defalias 'point-at-eol 'line-end-position))
 (unless (fboundp 'point-at-bol) (defalias 'point-at-bol 'line-beginning-position))
+(unless (functionp 'read-directory-name) (defalias 'read-directory-name \
'read-file-name))  
 (eval-when-compile
   (if (not (fboundp 'gethash))
@@ -292,8 +293,8 @@
 (defun svn-status (dir &optional arg)
   "Examine the status of Subversion working copy in directory DIR.
 If ARG then pass the -u argument to `svn status'."
-  (interactive (list (read-file-name "SVN status directory: "
-                                     nil default-directory nil)))
+  (interactive (list (read-directory-name "SVN status directory: "
+                                          nil default-directory nil)))
   (unless (file-directory-p dir)
     (error "%s is not a directory" dir))
   (if (not (file-exists-p (concat dir "/.svn/")))
@@ -1477,9 +1478,8 @@
                                            (svn-status-line-info->filename (car \
                marked-files)))
                                    (svn-status-directory-containing-point t)))
       ;;multiple files selected, so prompt for existing directory to mv them into.
-      ;;another place to use a putative `read-directory-name'
-      (setq dest (read-file-name (format "Move %d files to directory: " \
                num-of-files)
-                                 (svn-status-directory-containing-point t) nil t))
+      (setq dest (read-directory-name (format "Move %d files to directory: " \
num-of-files) +                                      \
(svn-status-directory-containing-point t) nil t))  (unless (file-directory-p dest)
         (error "%s is not a directory" dest)))
     (when (string= dest "")

---------------------------------------------------------------------
To unsubscribe, e-mail: svn-unsubscribe@subversion.tigris.org
For additional commands, e-mail: svn-help@subversion.tigris.org


[prev in list] [next in list] [prev in thread] [next in thread]