(derived-mode-run-hooks): Remove.

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

diff --git a/lisp/forms-pass.el b/lisp/forms-pass.el
index a57675c51a326dd4d04e6ca4076b31ffc95e30ec..4b3cb3a17bbd6613413a601214ddeaa550fcd10b 100644 (file)
--- a/lisp/forms-pass.el
+++ b/lisp/forms-pass.el
@@ -1,15 +1,25 @@
-;; demo for forms-mode
-;;
-;; This demo visits /etc/passwd.
+;;; forms-pass.el --- passwd file demo for forms-mode -*- no-byte-compile: t -*-
+
+;; This file is part of GNU Emacs.
+
+;;; Commentary:
+
+;; This demo visits your passwd file.
+
+;;; Code:
+
+;; 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"
@@ -19,3 +29,6 @@
        "\n\n"
        "Shell: "       7
        "\n"))
+
+;;; arch-tag: 74801012-1a2d-4173-b9e4-fcfa241e2305
+;;; forms-pass.el ends here