view lisp/forms-pass.el @ 28733:3234d64a07bf
(end_of_file_error): New function.
(read1): Call it instead of signaling `end-of-file' directly.
author |
Gerd Moellmann <gerd@gnu.org> |
date |
Thu, 27 Apr 2000 10:48:11 +0000 (2000-04-27) |
parents |
84acc3adcd63 |
children |
67b464da13ec |
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"))