Mercurial > emacs
comparison lisp/ehelp.el @ 51807:96f6726bae4d
(ehelp-command): Use defalias to define ehelp-command.
Give it a doc string, and autoload it.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Mon, 07 Jul 2003 21:05:17 +0000 |
| parents | 37645a051842 |
| children | 695cf19ef79e |
comparison
equal
deleted
inserted
replaced
| 51806:96c06b458966 | 51807:96f6726bae4d |
|---|---|
| 416 (substitute-key-definition 'describe-function 'electric-describe-function map) | 416 (substitute-key-definition 'describe-function 'electric-describe-function map) |
| 417 (substitute-key-definition 'describe-variable 'electric-describe-variable map) | 417 (substitute-key-definition 'describe-variable 'electric-describe-variable map) |
| 418 (substitute-key-definition 'describe-bindings 'electric-describe-bindings map) | 418 (substitute-key-definition 'describe-bindings 'electric-describe-bindings map) |
| 419 (substitute-key-definition 'describe-syntax 'electric-describe-syntax map) | 419 (substitute-key-definition 'describe-syntax 'electric-describe-syntax map) |
| 420 | 420 |
| 421 (setq ehelp-map map) | 421 (setq ehelp-map map))) |
| 422 (fset 'ehelp-command map))) | 422 |
| 423 ;;;###(autoload 'ehelp-command "ehelp" "Prefix command for ehelp." t 'keymap) | |
| 424 (defalias 'ehelp-command ehelp-map) | |
| 425 (put 'ehelp-command 'documentation "Prefix command for ehelp.") | |
| 423 | 426 |
| 424 (provide 'ehelp) | 427 (provide 'ehelp) |
| 425 | 428 |
| 426 ;;; ehelp.el ends here | 429 ;;; ehelp.el ends here |