1 ;; demo for forms-mode -*-emacs-lisp-*-
3 ;; This demo visits your passwd file.
6 (or (file-exists-p (setq forms-file "/var/yp/src/passwd"))
7 (setq forms-file "/etc/passwd"))
9 (setq forms-read-only t) ; to make sure
10 (setq forms-field-sep ":")
11 (setq forms-number-of-fields 7)
13 (setq forms-format-list
15 "====== Visiting " forms-file " ======\n\n"