From 5dd353d2d79162c2277aa43d231aa34171c5f95b Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Mon, 1 Jul 1991 18:05:53 +0000 Subject: entered into RCS --- lisp/forms-pass.el | 14 +++++++++----- 1 file changed, 9 insertions(+), 5 deletions(-) (limited to 'lisp/forms-pass.el') diff --git a/lisp/forms-pass.el b/lisp/forms-pass.el index a57675c51a3..d5889f40317 100644 --- a/lisp/forms-pass.el +++ b/lisp/forms-pass.el @@ -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. + +;; 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" -- cgit v1.2.3