From e08a9b306c20f151ae44d83644584f85806d4178 Mon Sep 17 00:00:00 2001 From: Chris Hanson Date: Wed, 29 Nov 2000 21:31:54 +0000 Subject: [PATCH] M-x vc-directory now prompts for the directory. --- v7/src/edwin/vc.scm | 27 +++++++++++++-------------- 1 file changed, 13 insertions(+), 14 deletions(-) diff --git a/v7/src/edwin/vc.scm b/v7/src/edwin/vc.scm index 6e9dc0c7c..8826a83f6 100644 --- 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. -- 2.25.1