Mercurial > emacs

annotate lisp/forms-pass.el @ 3952:f9dfc2872fb0

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(describe_map_tree): Insert key_heading here. New arg TITLE. (describe_buffer_bindings): Corresponding changes. (shadow_lookup): New function. (describe_map_2): Call it. SHADOW is now a list of maps. (describe_vector): Likewise. (describe_map): SHADOW is now a list of maps. (describe_map_tree): Likewise. (describe_buffer_bindings): Build suitable list to pass as SHADOW. (Faccessible_keymaps): New arg PREFIX. Callers changed. (describe_map_tree): New arg PREFIX. (Fdescribe_bindings): New arg PREFIX. Pass to describe_buffer_bindings along with buffer. (describe_buffer_bindings): Extract PREFIX and pass along.
author Richard M. Stallman <rms@gnu.org>
date Fri, 02 Jul 1993 05:21:05 +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"))