Mercurial > hg > xemacs-beta

comparison lisp/help.el @ 239:41f2f0e326e9 r20-5b18

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-5b18
author cvs
date Mon, 13 Aug 2007 10:15:48 +0200
parents 52952cbfc5b5
children f220cc83d72e
comparison
equal deleted inserted replaced
238:b5f2e56b938d 239:41f2f0e326e9
85 ;;; Setup so Hyperbole can be autoloaded from a key. 85 ;;; Setup so Hyperbole can be autoloaded from a key.
86 ;;; Choose a key on which to place the Hyperbole menus. 86 ;;; Choose a key on which to place the Hyperbole menus.
87 ;;; For most people this key binding will work and will be equivalent 87 ;;; For most people this key binding will work and will be equivalent
88 ;;; to {C-h h}. 88 ;;; to {C-h h}.
89 ;;; 89 ;;;
90 (or (where-is-internal 'hyperbole) 90 (when (featurep 'infodock) ; This isn't used in XEmacs
91 (where-is-internal 'hui:menu) 91 ;; #### This needs fixing for InfoDock 4.0.
92 (define-key help-map "h" 'hyperbole)) 92 (or (where-is-internal 'hyperbole)
93 (autoload 'hyperbole "hsite" "Hyperbole info manager menus." t) 93 (where-is-internal 'hui:menu)
94 (define-key help-map "h" 'hyperbole))
95 (autoload 'hyperbole "hsite" "Hyperbole info manager menus." t))
94 96
95 (define-key help-map "i" 'info) 97 (define-key help-map "i" 'info)
96 (define-key help-map '(control i) 'Info-query) 98 (define-key help-map '(control i) 'Info-query)
97 ;; FSFmacs has Info-goto-emacs-command-node on C-f, no binding 99 ;; FSFmacs has Info-goto-emacs-command-node on C-f, no binding
98 ;; for Info-elisp-ref 100 ;; for Info-elisp-ref
106 108
107 (define-key help-map "\C-n" 'view-emacs-news) 109 (define-key help-map "\C-n" 'view-emacs-news)
108 (define-key help-map "n" 'view-emacs-news) 110 (define-key help-map "n" 'view-emacs-news)
109 111
110 (define-key help-map "p" 'finder-by-keyword) 112 (define-key help-map "p" 'finder-by-keyword)
111 (autoload 'finder-by-keyword "finder" 113
112 "Find packages matching a given keyword." t) 114 ;; Do this right with an autoload cookie in finder.el.
115 ;;(autoload 'finder-by-keyword "finder"
116 ;; "Find packages matching a given keyword." t)
113 117
114 (define-key help-map "s" 'describe-syntax) 118 (define-key help-map "s" 'describe-syntax)
115 119
116 (define-key help-map "t" 'help-with-tutorial) 120 (define-key help-map "t" 'help-with-tutorial)
117 121