4 |
;; Free Software Foundation, Inc. |
;; Free Software Foundation, Inc. |
5 |
|
|
6 |
;; Author: David Gillespie <daveg@synaptics.com> |
;; Author: David Gillespie <daveg@synaptics.com> |
7 |
;; Maintainers: D. Goel <deego@gnufans.org> |
;; Maintainer: Jay Belanger <belanger@truman.edu> |
|
;; Colin Walters <walters@debian.org> |
|
8 |
|
|
9 |
;; This file is part of GNU Emacs. |
;; This file is part of GNU Emacs. |
10 |
|
|
138 |
(interactive "kDescribe key briefly: ") |
(interactive "kDescribe key briefly: ") |
139 |
(calc-describe-key key t)) |
(calc-describe-key key t)) |
140 |
|
|
141 |
|
(defvar Info-history) |
142 |
|
|
143 |
(defun calc-describe-key (key &optional briefly) |
(defun calc-describe-key (key &optional briefly) |
144 |
(interactive "kDescribe key: ") |
(interactive "kDescribe key: ") |
145 |
(let ((defn (if (eq (key-binding key) 'calc-dispatch) |
(let ((defn (if (eq (key-binding key) 'calc-dispatch) |
158 |
(lookup-key calc-help-map key2)) |
(lookup-key calc-help-map key2)) |
159 |
(key-binding key)))) |
(key-binding key)))) |
160 |
(inv nil) |
(inv nil) |
161 |
(hyp nil)) |
(hyp nil) |
162 |
|
calc-summary-indentation) |
163 |
(while (or (equal key "I") (equal key "H")) |
(while (or (equal key "I") (equal key "H")) |
164 |
(if (equal key "I") |
(if (equal key "I") |
165 |
(setq inv (not inv)) |
(setq inv (not inv)) |
402 |
(delete-region (point-min) (point)) |
(delete-region (point-min) (point)) |
403 |
(goto-char (point-min)))) |
(goto-char (point-min)))) |
404 |
|
|
405 |
|
(defvar calc-help-long-names '((?b . "binary/business") |
406 |
|
(?g . "graphics") |
407 |
|
(?j . "selection") |
408 |
|
(?k . "combinatorics/statistics") |
409 |
|
(?u . "units/statistics"))) |
410 |
|
|
411 |
(defun calc-full-help () |
(defun calc-full-help () |
412 |
(interactive) |
(interactive) |
413 |
(with-output-to-temp-buffer "*Help*" |
(with-output-to-temp-buffer "*Help*" |
464 |
calc-z-prefix-help))) |
calc-z-prefix-help))) |
465 |
(print-help-return-message))) |
(print-help-return-message))) |
466 |
|
|
|
(defvar calc-help-long-names '((?b . "binary/business") |
|
|
(?g . "graphics") |
|
|
(?j . "selection") |
|
|
(?k . "combinatorics/statistics") |
|
|
(?u . "units/statistics"))) |
|
|
|
|
467 |
(defun calc-h-prefix-help () |
(defun calc-h-prefix-help () |
468 |
(interactive) |
(interactive) |
469 |
(calc-do-prefix-help |
(calc-do-prefix-help |