Mercurial > emacs

view lisp/forms-pass.el @ 42307:922f0ef2951b

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(balance-windows): Use new PRESERVE-BEFORE arg to enlarge-window. Use save-selected-window. Don't try to resize windows that end at the bottom "level". Retry changing the sizes until the windows get the desired sizes. Discount the minibuffer when computing total height available.
author Richard M. Stallman <rms@gnu.org>
date Tue, 25 Dec 2001 10:34:39 +0000
parents 67b464da13ec
children 33d53d287ee4
line wrap: on
line source

;;; forms-pass.el --- passwd file demo for forms-mode

;; 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-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"))

;;; forms-pass.el ends here