Define variable that specifies the password filename for the

view-password-file command.

diff --git a/v7/src/edwin/pwedit.scm b/v7/src/edwin/pwedit.scm
index 1f963a058b13d0261d08f6dbcdf45483ea708d3a..a7e37ba639b91e7680aaf341716385f25a0db5f6 100644 (file)
--- 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"