(ehelp-command): Use defalias to define ehelp-command.

Give it a doc string, and autoload it.

(ehelp-command): Use defalias to define ehelp-command.
Give it a doc string, and autoload it.
6e5cbb63 · Richard M. Stallman · 6df8016c · 6e5cbb63
Commit 6e5cbb63 authored Jul 07, 2003 by Richard M. Stallman
Hide whitespace changes
Inline Side-by-side

Showing with 5 additions and 2 deletions

lisp/ehelp.el lisp/ehelp.el +5 -2

No files found.
--- a/lisp/ehelp.el
+++ b/lisp/ehelp.el
@@ -418,8 +418,11 @@ will select it.)"
    (substitute-key-definition 'describe-bindings 'electric-describe-bindings map)
    (substitute-key-definition 'describe-syntax 'electric-describe-syntax map)

-    (setq ehelp-map map)
-    (fset 'ehelp-command map)))
+    (setq ehelp-map map)))
+
+;;;###(autoload 'ehelp-command "ehelp" "Prefix command for ehelp." t 'keymap)
+(defalias 'ehelp-command ehelp-map)
+(put 'ehelp-command 'documentation "Prefix command for ehelp.")

 (provide 'ehelp)