(input-method-exit-on-first-char):

[gnu-emacs] / lisp / forms-pass.el

diff --git a/lisp/forms-pass.el b/lisp/forms-pass.el
index d9628a377426aba6957126ab22aad4a5b9feceb7..1a7db41e20ae3398024838086b8f984bb062623f 100644 (file)
--- a/lisp/forms-pass.el
+++ b/lisp/forms-pass.el
@@ -1,13 +1,18 @@
-;; 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
        "   Uid: "      3
        "   Gid: "      4