From 4143455702849ce0622ce60ec5bf16323ceed1b6 Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Tue, 4 May 1999 17:41:20 +0000
Subject: [PATCH] Define variable that specifies the password filename for the
 view-password-file command.

---
 v7/src/edwin/pwedit.scm | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/v7/src/edwin/pwedit.scm b/v7/src/edwin/pwedit.scm
index 1f963a058..a7e37ba63 100644
--- a/v7/src/edwin/pwedit.scm
+++ b/v7/src/edwin/pwedit.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;; $Id: pwedit.scm,v 1.5 1999/05/04 17:23:09 cph Exp $
+;;; $Id: pwedit.scm,v 1.6 1999/05/04 17:41:20 cph Exp $
 ;;;
 ;;; Copyright (c) 1999 Massachusetts Institute of Technology
 ;;;
@@ -38,7 +38,8 @@ If password-file is #f, or if prefix arg supplied, prompts for a filename."
      (let ((filename (ref-variable password-file)))
        (if (and filename (not (command-argument)))
 	   filename
-	   (prompt-for-existing-file "View password file" filename)))))
+	   (prompt-for-existing-file "View password file"
+				     (and filename (list filename)))))))
   (lambda (pathname)
     (let ((forms
 	   (call-with-temporary-buffer " view-pw-file"
-- 
2.25.1