M-x vc-directory now prompts for the directory.

diff --git a/v7/src/edwin/vc.scm b/v7/src/edwin/vc.scm
index 6e9dc0c7ccc8a39894514a9777064c7e511c276e..8826a83f6d3578acbf0f8a39c3f642d8c6328732 100644 (file)
--- a/v7/src/edwin/vc.scm
+++ b/v7/src/edwin/vc.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;; $Id: vc.scm,v 1.74 2000/10/26 04:19:14 cph Exp $
+;;; $Id: vc.scm,v 1.75 2000/11/29 21:31:54 cph Exp $
 ;;;
 ;;; Copyright (c) 1994-2000 Massachusetts Institute of Technology
 ;;;
@@ -871,19 +871,18 @@ to that version."
 (define-command vc-directory
   "Show version-control status of files under a directory.
 Normally shows only locked files; prefix arg says to show all files."
-  "P"
-  (lambda (all-files?)
-    (let ((directory (buffer-default-directory (selected-buffer))))
-      (let ((buffer (vc-dired directory all-files?)))
-       (if (group-end? (line-start (buffer-start buffer) 1 'LIMIT))
-           (begin
-             (if (not (buffer-visible? buffer))
-                 (kill-buffer buffer))
-             (message "No files are currently "
-                      (if all-files? "registered" "locked")
-                      " in "
-                      (->namestring directory)))
-           (pop-up-buffer buffer #t))))))
+  "DDired under VC (directory)\nP"
+  (lambda (directory all-files?)
+    (let ((buffer (vc-dired directory all-files?)))
+      (if (group-end? (line-start (buffer-start buffer) 1 'LIMIT))
+         (begin
+           (if (not (buffer-visible? buffer))
+               (kill-buffer buffer))
+           (message "No files are currently "
+                    (if all-files? "registered" "locked")
+                    " in "
+                    (->namestring directory)))
+         (pop-up-buffer buffer #t)))))
 
 (define-command vc-dired
   "Show version-control status of files under a directory.