From a0019b45b9612ecddbfd6bf9a16f4ca20384ebbd Mon Sep 17 00:00:00 2001 From: =?utf8?q?Andr=C3=A9=20Spiegel?= Date: Fri, 5 Jun 1998 12:46:29 +0000 Subject: [PATCH] (vc-directory): Bind vc-dired-switches in order to pass switches to vc-dired-mode. (vc-dired-mode): Check for vc-dired-switches. --- lisp/vc.el | 10 +++++++--- 1 file changed, 7 insertions(+), 3 deletions(-) diff --git a/lisp/vc.el b/lisp/vc.el index 25d8f26ee1f..a6bcd6d60e8 100644 --- a/lisp/vc.el +++ b/lisp/vc.el @@ -5,7 +5,7 @@ ;; Author: Eric S. Raymond ;; Maintainer: Andre Spiegel -;; $Id: vc.el,v 1.227 1998/05/16 17:53:32 rms Exp spiegel $ +;; $Id: vc.el,v 1.228 1998/06/03 15:07:04 spiegel Exp spiegel $ ;; This file is part of GNU Emacs. @@ -1625,6 +1625,10 @@ There is a special command, `*l', to mark all files currently locked." s "\\(" HH:MM "\\|" s yyyy "\\)")) (japanese (concat mm k s dd k s "\\(" s HH:MM "\\|" yyyy k "\\)"))) (concat s "\\(" western "\\|" japanese "\\)" s))) + (and (boundp 'vc-dired-switches) + vc-dired-switches + (set (make-local-variable 'dired-actual-switches) + vc-dired-switches)) (setq vc-dired-mode t)) (define-key vc-dired-mode-map "\C-xv" vc-prefix-map) @@ -1745,7 +1749,7 @@ There is a special command, `*l', to mark all files currently locked." ;;;###autoload (defun vc-directory (dirname read-switches) (interactive "DDired under VC (directory): \nP") - (let ((switches + (let ((vc-dired-switches (if read-switches (read-string "Dired listing switches: " dired-listing-switches)))) (require 'dired) @@ -1755,7 +1759,7 @@ There is a special command, `*l', to mark all files currently locked." (setq dirname (concat dirname "/"))) (switch-to-buffer (dired-internal-noselect (expand-file-name dirname) - (or switches dired-listing-switches) + (or vc-dired-switches dired-listing-switches) 'vc-dired-mode)))) ;; Named-configuration support for SCCS -- 2.39.2