Mercurial > emacs

annotate lisp/forms-pass.el @ 11656:a40849041718

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(union fail_stack_elt): New union. (fail_stack_elt_t): Use that union. (PUSH_PATTERN_OP, PUSH_FAILURE_POINTER, PUSH_FAILURE_INT) (POP_FAILURE_POINTER, POP_FAILURE_INT): Corresponding changes. (re_compile_fastmap): Corresponding changes. (PUSH_FAILURE_ELT): New macro. (FAIL_STACK_TOP): Macro deleted. (WIDE_INT): Macro deleted. (PUSH_FAILURE_POINT): Use PUSH_FAILURE_ELT. (POP_FAILURE_ELT): New macro. (POP_FAILURE_POINT): Use POP_FAILURE_ELT.
author Richard M. Stallman <rms@gnu.org>
date Tue, 02 May 1995 16:27:24 +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"))