Mercurial > emacs

annotate lisp/forms-pass.el @ 4714:350231e38e68

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(Finsert_and_inherit): New function. (Finsert_and_inherit_before_markers): New function. (Finsert, Finsert_before_markers): Pass new arg to insert_from_string*.
author Richard M. Stallman <rms@gnu.org>
date Tue, 14 Sep 1993 12:08:49 +0000
parents 785babb5bb6f
children 84acc3adcd63
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
306
785babb5bb6f entered into RCS
Richard M. Stallman <rms@gnu.org>
parents: 278
diff changeset
1 ;; demo for forms-mode -*-emacs-lisp-*-
275
9b41e1ed5e68 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
2 ;;
306
785babb5bb6f entered into RCS
Richard M. Stallman <rms@gnu.org>
parents: 278
diff changeset
3 ;; This demo visits your passwd file.
275
9b41e1ed5e68 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
4
306
785babb5bb6f entered into RCS
Richard M. Stallman <rms@gnu.org>
parents: 278
diff changeset
5 ;; use yp if present
785babb5bb6f entered into RCS
Richard M. Stallman <rms@gnu.org>
parents: 278
diff changeset
6 (or (file-exists-p (setq forms-file "/var/yp/src/passwd"))
785babb5bb6f entered into RCS
Richard M. Stallman <rms@gnu.org>
parents: 278
diff changeset
7 (setq forms-file "/etc/passwd"))
785babb5bb6f entered into RCS
Richard M. Stallman <rms@gnu.org>
parents: 278
diff changeset
8
275
9b41e1ed5e68 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
9 (setq forms-read-only t) ; to make sure
9b41e1ed5e68 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
10 (setq forms-field-sep ":")
9b41e1ed5e68 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
11 (setq forms-number-of-fields 7)
306
785babb5bb6f entered into RCS
Richard M. Stallman <rms@gnu.org>
parents: 278
diff changeset
12
275
9b41e1ed5e68 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
13 (setq forms-format-list
306
785babb5bb6f entered into RCS
Richard M. Stallman <rms@gnu.org>
parents: 278
diff changeset
14 (list
785babb5bb6f entered into RCS
Richard M. Stallman <rms@gnu.org>
parents: 278
diff changeset
15 "====== Visiting " forms-file " ======\n\n"
275
9b41e1ed5e68 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
16 "User : " 1
9b41e1ed5e68 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
17 " Uid: " 3
9b41e1ed5e68 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
18 " Gid: " 4
9b41e1ed5e68 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
19 "\n\n"
9b41e1ed5e68 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
20 "Name : " 5
9b41e1ed5e68 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
21 "\n\n"
9b41e1ed5e68 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
22 "Home : " 6
9b41e1ed5e68 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
23 "\n\n"
9b41e1ed5e68 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
24 "Shell: " 7
9b41e1ed5e68 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
25 "\n"))