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

---
 v7/src/edwin/loadef.scm | 11 ++++++++++-
 1 file changed, 10 insertions(+), 1 deletion(-)

diff --git a/v7/src/edwin/loadef.scm b/v7/src/edwin/loadef.scm
index 68d4ecba1..4b4ab2a21 100644
--- a/v7/src/edwin/loadef.scm
+++ b/v7/src/edwin/loadef.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;; $Id: loadef.scm,v 1.37 1999/01/14 21:40:56 cph Exp $
+;;; $Id: loadef.scm,v 1.38 1999/05/04 17:19:10 cph Exp $
 ;;;
 ;;; Copyright (c) 1986, 1989-1999 Massachusetts Institute of Technology
 ;;;
@@ -320,6 +320,15 @@ This is usually 103 or 2627."
 (define-autoload-command 'view-password-file 'PASSWORD-EDIT
   "Read in a password file and show it in password-view mode.")
 
+(define-variable password-file
+  "Name of file containing passwords, or #F meaning prompt for name.
+See \\[view-password-file]."
+  #f
+  (lambda (object)
+    (or (not object)
+	(string? object)
+	(pathname? object))))
+
 (define-autoload-major-mode 'password-view 'read-only "Password-View"
   'PASSWORD-EDIT
   "Major mode specialized for viewing password files.")
-- 
2.25.1