Mercurial > emacs
annotate lisp/forms-pass.el @ 104922:c603ee2aac17
* keymap.c (QCadvertised_binding): New constant.
(syms_of_keymap): Initialize it.
(Fwhere_is_internal): Try and use bindings from :advertised-binding
if applicable.
* progmodes/xscheme.el (xscheme-evaluation-commands):
Put a :advertised-binding property rather than using
advertised-xscheme-send-previous-expression.
(advertised-xscheme-send-previous-expression): Declare obsolete.
* emulation/crisp.el (crisp-mode-map): Use `undo' rather than
`advertised-undo'.
(crisp-mode): Add corresponding bindings to
undo's :advertised-binding instead.
* dired.el (dired-mode-map): Put a :advertised-binding property rather
than using dired-advertised-find-file.
(dired-advertised-find-file):
* simple.el (advertised-undo):
* wid-edit.el (advertised-widget-backward): Declare obsolete.
(widget-keymap): Put a :advertised-binding property rather
than using advertised-widget-backward.
* bindings.el (ctl-x-map): Put a :advertised-binding property rather
than using advertised-undo.
* tutorial.el (tutorial--default-keys): Adjust accordingly.
author | Stefan Monnier <monnier@iro.umontreal.ca> |
---|---|
date | Fri, 11 Sep 2009 00:58:59 +0000 |
parents | 1e3a407766b9 |
children | ef719132ddfa |
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 | 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 | 7 ;; This demo visits your passwd file. |
275 | 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 | 11 ;; use yp if present |
12 (or (file-exists-p (setq forms-file "/var/yp/src/passwd")) | |
13 (setq forms-file "/etc/passwd")) | |
14 | |
275 | 15 (setq forms-read-only t) ; to make sure |
16 (setq forms-field-sep ":") | |
17 (setq forms-number-of-fields 7) | |
306 | 18 |
275 | 19 (setq forms-format-list |
306 | 20 (list |
21 "====== Visiting " forms-file " ======\n\n" | |
275 | 22 "User : " 1 |
23 " Uid: " 3 | |
24 " Gid: " 4 | |
25 "\n\n" | |
26 "Name : " 5 | |
27 "\n\n" | |
28 "Home : " 6 | |
29 "\n\n" | |
30 "Shell: " 7 | |
31 "\n")) | |
38414
67b464da13ec
Some fixes to follow coding conventions.
Pavel Janík <Pavel@Janik.cz>
parents:
13337
diff
changeset
|
32 |
93975
1e3a407766b9
Fix up comment convention on the arch-tag lines.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
52401
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 |