annotate lisp/forms-pass.el @ 12640:d194c63cb75c
Add latest changes of old library and some more.
(apropos): Only show unbound symbols when do-all
(apropos-documentation-check-elc-file): new copied function.
(apropos-command): also use `apropos-do-all' when called as function.
(apropos-print-doc): renamed from `apropos-print-documentation', i
is numeric index, replaces parameter tem.
(apropos-macrop): new function.
(apropos-print): use it to differentiate macros.
(apropos-symbol-face, apropos-keybinding-face, apropos-label-face)
(apropos-property-face, apropos-match-face): new variables
replace and extend the effect of `apropos-use-faces'.
(apropos-safe-documentation): renames `safe-documentation', also
returns a cons.
(apropos-regexp, apropos-files-scanned, apropos-accumulator)
(apropos-item): new variables to prevent compiler warnings.
(apropos-value-internal, apropos-documentation-internal): new fns.
| author |
Karl Heuer <kwzh@gnu.org> |
| date |
Sat, 22 Jul 1995 15:17:54 +0000 |
| parents |
785babb5bb6f |
| children |
84acc3adcd63 |
| rev |
line source |
|
306
|
1 ;; demo for forms-mode -*-emacs-lisp-*-
|
|
275
|
2 ;;
|
|
306
|
3 ;; This demo visits your passwd file.
|
|
275
|
4
|
|
306
|
5 ;; use yp if present
|
|
|
6 (or (file-exists-p (setq forms-file "/var/yp/src/passwd"))
|
|
|
7 (setq forms-file "/etc/passwd"))
|
|
|
8
|
|
275
|
9 (setq forms-read-only t) ; to make sure
|
|
|
10 (setq forms-field-sep ":")
|
|
|
11 (setq forms-number-of-fields 7)
|
|
306
|
12
|
|
275
|
13 (setq forms-format-list
|
|
306
|
14 (list
|
|
|
15 "====== Visiting " forms-file " ======\n\n"
|
|
275
|
16 "User : " 1
|
|
|
17 " Uid: " 3
|
|
|
18 " Gid: " 4
|
|
|
19 "\n\n"
|
|
|
20 "Name : " 5
|
|
|
21 "\n\n"
|
|
|
22 "Home : " 6
|
|
|
23 "\n\n"
|
|
|
24 "Shell: " 7
|
|
|
25 "\n"))
|
