diff options
| author | Richard M. Stallman <rms@gnu.org> | 1991-07-01 18:05:53 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1991-07-01 18:05:53 +0000 |
| commit | 5dd353d2d79162c2277aa43d231aa34171c5f95b (patch) | |
| tree | fa75d4fbf2701c02d8b2fa5c659e3903e39e7a68 /lisp/forms-pass.el | |
| parent | 35692fe0dee452f8d06c083e586bcdf4dfb308f5 (diff) | |
| download | emacs-5dd353d2d79162c2277aa43d231aa34171c5f95b.tar.gz | |
entered into RCS
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" |