Mercurial > emacs
comparison lisp/emacs-lisp/helper.el @ 208:0fa7fc093c4e
*** empty log message ***
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Wed, 06 Mar 1991 18:30:37 +0000 |
| parents | 9697c13298e5 |
| children | 1e0bc00dca7a |
comparison
equal
deleted
inserted
replaced
| 207:cc1060d41d94 | 208:0fa7fc093c4e |
|---|---|
| 85 (message "c (key briefly), m (mode), k (key), b (bindings)") | 85 (message "c (key briefly), m (mode), k (key), b (bindings)") |
| 86 ;(message "c (key briefly), m (mode), k (key), v (variable), f (function)") | 86 ;(message "c (key briefly), m (mode), k (key), v (variable), f (function)") |
| 87 (sit-for 4)) | 87 (sit-for 4)) |
| 88 | 88 |
| 89 (defun Helper-describe-key-briefly (key) | 89 (defun Helper-describe-key-briefly (key) |
| 90 "Briefly describe binding of KEYS." | 90 "Briefly describe binding of KEY." |
| 91 (interactive "kDescribe key briefly: ") | 91 (interactive "kDescribe key briefly: ") |
| 92 (describe-key-briefly key) | 92 (describe-key-briefly key) |
| 93 (sit-for 4)) | 93 (sit-for 4)) |
| 94 | 94 |
| 95 (defun Helper-describe-key (key) | 95 (defun Helper-describe-key (key) |
| 96 "Describe binding of KEYS." | 96 "Describe binding of KEY." |
| 97 (interactive "kDescribe key: ") | 97 (interactive "kDescribe key: ") |
| 98 (save-window-excursion (describe-key key)) | 98 (save-window-excursion (describe-key key)) |
| 99 (Helper-help-scroller)) | 99 (Helper-help-scroller)) |
| 100 | 100 |
| 101 (defun Helper-describe-function () | 101 (defun Helper-describe-function () |