From: Chris Hanson <org/chris-hanson/cph>
Date: Tue, 4 May 1999 17:19:10 +0000 (+0000)
Subject: Define variable that specifies the password filename for the
X-Git-Tag: 20090517-FFI~4557
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=e6d6b00a39703bd1455a5101dc822224988426d3;p=mit-scheme.git

Define variable that specifies the password filename for the
view-password-file command.
---

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.")