Mercurial > emacs
comparison lisp/help.el @ 2134:b275e1b50542
Added autoload, binding and menu line for new finder feature (P).
author | Eric S. Raymond <esr@snark.thyrsus.com> |
---|---|
date | Thu, 11 Mar 1993 07:55:27 +0000 |
parents | 51012c0f1227 |
children | 2670a8f6a42e |
comparison
equal
deleted
inserted
replaced
2133:63d15b0e048e | 2134:b275e1b50542 |
---|---|
53 | 53 |
54 (define-key help-map "m" 'describe-mode) | 54 (define-key help-map "m" 'describe-mode) |
55 | 55 |
56 (define-key help-map "\C-n" 'view-emacs-news) | 56 (define-key help-map "\C-n" 'view-emacs-news) |
57 (define-key help-map "n" 'view-emacs-news) | 57 (define-key help-map "n" 'view-emacs-news) |
58 | |
59 (define-key help-map "p" 'finder-by-keyword) | |
60 (autoload 'finder-by-keyword "finder.el") | |
58 | 61 |
59 (define-key help-map "s" 'describe-syntax) | 62 (define-key help-map "s" 'describe-syntax) |
60 | 63 |
61 (define-key help-map "t" 'help-with-tutorial) | 64 (define-key help-map "t" 'help-with-tutorial) |
62 | 65 |
214 it displays the full documentation. | 217 it displays the full documentation. |
215 L view-lossage. Shows last 100 characters you typed. | 218 L view-lossage. Shows last 100 characters you typed. |
216 M describe-mode. Print documentation of current major mode, | 219 M describe-mode. Print documentation of current major mode, |
217 which describes the commands peculiar to it. | 220 which describes the commands peculiar to it. |
218 N view-emacs-news. Shows emacs news file. | 221 N view-emacs-news. Shows emacs news file. |
222 P finder-by-keyword. Find packages matching a given topic keyword. | |
219 S describe-syntax. Display contents of syntax table, plus explanations | 223 S describe-syntax. Display contents of syntax table, plus explanations |
220 T help-with-tutorial. Select the Emacs learn-by-doing tutorial. | 224 T help-with-tutorial. Select the Emacs learn-by-doing tutorial. |
221 V describe-variable. Type name of a variable; | 225 V describe-variable. Type name of a variable; |
222 it displays the variable's documentation and value. | 226 it displays the variable's documentation and value. |
223 W where-is. Type command name; it prints which keystrokes | 227 W where-is. Type command name; it prints which keystrokes |
226 C-d print Emacs ordering information. | 230 C-d print Emacs ordering information. |
227 C-n print news of recent Emacs changes. | 231 C-n print news of recent Emacs changes. |
228 C-w print information on absence of warranty for GNU Emacs." | 232 C-w print information on absence of warranty for GNU Emacs." |
229 (interactive) | 233 (interactive) |
230 (message (substitute-command-keys | 234 (message (substitute-command-keys |
231 "A B C F I K L M N S T V W C-c C-d C-n C-w. Type \\[help-for-help] again for more help: ")) | 235 "A B C F I K L M N P S T V W C-c C-d C-n C-w. Type \\[help-for-help] again for more help: ")) |
232 (let ((char (read-char))) | 236 (let ((char (read-char))) |
233 (if (or (= char help-char) (= char ??)) | 237 (if (or (= char help-char) (= char ??)) |
234 (save-window-excursion | 238 (save-window-excursion |
235 (switch-to-buffer "*Help*") | 239 (switch-to-buffer "*Help*") |
236 (delete-other-windows) | 240 (delete-other-windows) |
240 (while (memq char (cons help-char '(?? ?\C-v ?\ ?\177 ?\M-v))) | 244 (while (memq char (cons help-char '(?? ?\C-v ?\ ?\177 ?\M-v))) |
241 (if (memq char '(?\C-v ?\ )) | 245 (if (memq char '(?\C-v ?\ )) |
242 (scroll-up)) | 246 (scroll-up)) |
243 (if (memq char '(?\177 ?\M-v)) | 247 (if (memq char '(?\177 ?\M-v)) |
244 (scroll-down)) | 248 (scroll-down)) |
245 (message "A B C F I K L M N S T V W C-c C-d C-n C-w%s: " | 249 (message "A B C F I K L M N P S T V W C-c C-d C-n C-w%s: " |
246 (if (pos-visible-in-window-p (point-max)) | 250 (if (pos-visible-in-window-p (point-max)) |
247 "" " or Space to scroll")) | 251 "" " or Space to scroll")) |
248 (let ((cursor-in-echo-area t)) | 252 (let ((cursor-in-echo-area t)) |
249 (setq char (read-char)))))) | 253 (setq char (read-char)))))) |
250 (let ((defn (cdr (assq (downcase char) (cdr help-map))))) | 254 (let ((defn (cdr (assq (downcase char) (cdr help-map))))) |