annotate lisp/forms-pass.el @ 91732:c33ec1f680a9

* frame.c (Qnoelisp): New symbol. (syms_of_frame): Initialize it. (Fdelete_frame): Use it to distinguish a mere `force' passed from someharmles Elisp code, from a strong `force' from x_connection_closed. * frame.h (Qnoelisp): Declare. * xterm.c (x_connection_closed): Pass `noelisp'.
author Stefan Monnier <monnier@iro.umontreal.ca>
date Sun, 10 Feb 2008 21:56:38 +0000
parents 695cf19ef79e
children 375f2633d815 1e3a407766b9
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
47726
33d53d287ee4 Add "no-byte-compile: t" in first line.
Juanma Barranquero <lekktu@gmail.com>
parents: 38414
diff changeset
1 ;;; forms-pass.el --- passwd file demo for forms-mode -*- no-byte-compile: t -*-
13337
84acc3adcd63 Comment change.
Richard M. Stallman <rms@gnu.org>
parents: 306
diff changeset
2
38414
67b464da13ec Some fixes to follow coding conventions.
Pavel Janík <Pavel@Janik.cz>
parents: 13337
diff changeset
3 ;; This file is part of GNU Emacs.
67b464da13ec Some fixes to follow coding conventions.
Pavel Janík <Pavel@Janik.cz>
parents: 13337
diff changeset
4
67b464da13ec Some fixes to follow coding conventions.
Pavel Janík <Pavel@Janik.cz>
parents: 13337
diff changeset
5 ;;; Commentary:
67b464da13ec Some fixes to follow coding conventions.
Pavel Janík <Pavel@Janik.cz>
parents: 13337
diff changeset
6
306
785babb5bb6f entered into RCS
Richard M. Stallman <rms@gnu.org>
parents: 278
diff changeset
7 ;; This demo visits your passwd file.
275
9b41e1ed5e68 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
8
38414
67b464da13ec Some fixes to follow coding conventions.
Pavel Janík <Pavel@Janik.cz>
parents: 13337
diff changeset
9 ;;; Code:
67b464da13ec Some fixes to follow coding conventions.
Pavel Janík <Pavel@Janik.cz>
parents: 13337
diff changeset
10
306
785babb5bb6f entered into RCS
Richard M. Stallman <rms@gnu.org>
parents: 278
diff changeset
11 ;; use yp if present
785babb5bb6f entered into RCS
Richard M. Stallman <rms@gnu.org>
parents: 278
diff changeset
12 (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
13 (setq forms-file "/etc/passwd"))
785babb5bb6f entered into RCS
Richard M. Stallman <rms@gnu.org>
parents: 278
diff changeset
14
275
9b41e1ed5e68 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
15 (setq forms-read-only t) ; to make sure
9b41e1ed5e68 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
16 (setq forms-field-sep ":")
9b41e1ed5e68 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
17 (setq forms-number-of-fields 7)
306
785babb5bb6f entered into RCS
Richard M. Stallman <rms@gnu.org>
parents: 278
diff changeset
18
275
9b41e1ed5e68 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
19 (setq forms-format-list
306
785babb5bb6f entered into RCS
Richard M. Stallman <rms@gnu.org>
parents: 278
diff changeset
20 (list
785babb5bb6f entered into RCS
Richard M. Stallman <rms@gnu.org>
parents: 278
diff changeset
21 "====== Visiting " forms-file " ======\n\n"
275
9b41e1ed5e68 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
22 "User : " 1
9b41e1ed5e68 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
23 " Uid: " 3
9b41e1ed5e68 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
24 " Gid: " 4
9b41e1ed5e68 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
25 "\n\n"
9b41e1ed5e68 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
26 "Name : " 5
9b41e1ed5e68 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
27 "\n\n"
9b41e1ed5e68 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
28 "Home : " 6
9b41e1ed5e68 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
29 "\n\n"
9b41e1ed5e68 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
30 "Shell: " 7
9b41e1ed5e68 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
31 "\n"))
38414
67b464da13ec Some fixes to follow coding conventions.
Pavel Janík <Pavel@Janik.cz>
parents: 13337
diff changeset
32
52401
695cf19ef79e Add arch taglines
Miles Bader <miles@gnu.org>
parents: 47726
diff changeset
33 ;;; arch-tag: 74801012-1a2d-4173-b9e4-fcfa241e2305
38414
67b464da13ec Some fixes to follow coding conventions.
Pavel Janík <Pavel@Janik.cz>
parents: 13337
diff changeset
34 ;;; forms-pass.el ends here