(TAGS-LISP): Don't use `$(lispsource)'.

[bpt/emacs.git] / lisp / forms-pass.el

diff --git a/lisp/forms-pass.el b/lisp/forms-pass.el
index a57675c..1a7db41 100644 (file)
--- a/lisp/forms-pass.el
+++ b/lisp/forms-pass.el
@@ -1,15 +1,19 @@
-;; demo for forms-mode
-;;
-;; This demo visits /etc/passwd.
+;;; forms-pass.el --- passwd file demo for forms-mode
+
+;; This demo visits your passwd file.
+
+;; use yp if present
+(or (file-exists-p (setq forms-file "/var/yp/src/passwd"))
+    (setq forms-file "/etc/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"