Mercurial > emacs

view lisp/forms-pass.el @ 38231:a94c26975e95

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Explain purpose of mode hooks. Xref to Tags from Imenu. Don't use "sections or definitions" in Imenu. Cindex "pretty printer". Mention LINEFEED. Explain uses of values of lisp-indent-function. Explain why C-M-DEL is sometimes not available. Doc values of hs-isearch-open. Minor cleanups.
author Richard M. Stallman <rms@gnu.org>
date Fri, 29 Jun 2001 03:23:32 +0000
parents 84acc3adcd63
children 67b464da13ec
line wrap: on
line source

;;; 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-read-only t)		; to make sure
(setq forms-field-sep ":")
(setq forms-number-of-fields 7)

(setq forms-format-list
      (list
       "====== Visiting " forms-file " ======\n\n"
       "User : "	1
       "   Uid: "	3
       "   Gid: "	4
       "\n\n"
       "Name : "	5
       "\n\n"
       "Home : "	6
       "\n\n"
       "Shell: "	7
       "\n"))