Mercurial > emacs

comparison lisp/ehelp.el @ 584:4cd7543be581

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
*** empty log message ***
author Jim Blandy <jimb@redhat.com>
date Mon, 16 Mar 1992 20:39:07 +0000
parents 74504bd76aaa
children 8a533acedb77
comparison
equal deleted inserted replaced
583:3c0c1cd8428a 584:4cd7543be581
15 ;; You should have received a copy of the GNU General Public License 15 ;; You should have received a copy of the GNU General Public License
16 ;; along with GNU Emacs; see the file COPYING. If not, write to 16 ;; along with GNU Emacs; see the file COPYING. If not, write to
17 ;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA. 17 ;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
18 18
19 (require 'electric) 19 (require 'electric)
20 (provide 'ehelp)
21
22 (defvar electric-help-map () 20 (defvar electric-help-map ()
23 "Keymap defining commands available in `electric-help-mode'.") 21 "Keymap defining commands available in `electric-help-mode'.")
24 22
25 (put 'electric-help-undefined 'suppress-keymap t) 23 (put 'electric-help-undefined 'suppress-keymap t)
26 (if electric-help-map 24 (if electric-help-map
303 301
304 (setq ehelp-map map) 302 (setq ehelp-map map)
305 (fset 'ehelp-command map))) 303 (fset 'ehelp-command map)))
306 304
307 ;; Do (define-key global-map "\C-h" 'ehelp-command) if you want to win 305 ;; Do (define-key global-map "\C-h" 'ehelp-command) if you want to win
306
307 (provide 'ehelp)
308