Mercurial > emacs

changeset 306:785babb5bb6f

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
entered into RCS
author Richard M. Stallman <rms@gnu.org>
date Mon, 01 Jul 1991 18:05:53 +0000
parents 75f54c84f733
children 7fede845e304
files lisp/forms-pass.el
diffstat 1 files changed, 9 insertions(+), 5 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/forms-pass.el	Sat Jun 29 22:03:10 1991 +0000
+++ b/lisp/forms-pass.el	Mon Jul 01 18:05:53 1991 +0000
@@ -1,15 +1,19 @@
-;; demo for forms-mode
+;; demo for forms-mode	-*-emacs-lisp-*-
 ;;
-;; This demo visits /etc/passwd.
+;; This demo visits your passwd file.
 
-(setq forms-file "/etc/passwd")
+;; use yp if present
+(or (file-exists-p (setq forms-file "/var/yp/src/passwd"))
+    (setq forms-file "/etc/passwd"))
+
 (setq forms-read-only t)		; to make sure
 (setq forms-field-sep ":")
 (setq forms-number-of-fields 7)
+
 (setq forms-format-list
-     '("====== Visiting /etc/passwd ======\n\n"
+      (list
+       "====== Visiting " forms-file " ======\n\n"
        "User : "	1
-       "Password : "	2
        "   Uid: "	3
        "   Gid: "	4
        "\n\n"