diff options
Diffstat (limited to 'lisp/forms-pass.el')
| -rw-r--r-- | lisp/forms-pass.el | 14 |
1 files changed, 9 insertions, 5 deletions
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" |