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 |
|
|
28 |
;;; Code: |
;;; Code: |
29 |
|
|
30 |
;; This file is autoloaded from calc-ext.el. |
;; This file is autoloaded from calc-ext.el. |
|
(require 'calc-ext) |
|
31 |
|
|
32 |
|
(require 'calc-ext) |
33 |
(require 'calc-macs) |
(require 'calc-macs) |
34 |
|
|
|
(defun calc-Need-calc-help () nil) |
|
|
|
|
|
|
|
35 |
(defun calc-help-prefix (arg) |
(defun calc-help-prefix (arg) |
36 |
"This key is the prefix for Calc help functions. See calc-help-for-help." |
"This key is the prefix for Calc help functions. See calc-help-for-help." |
37 |
(interactive "P") |
(interactive "P") |
135 |
(interactive "kDescribe key briefly: ") |
(interactive "kDescribe key briefly: ") |
136 |
(calc-describe-key key t)) |
(calc-describe-key key t)) |
137 |
|
|
138 |
|
(defvar Info-history) |
139 |
|
|
140 |
(defun calc-describe-key (key &optional briefly) |
(defun calc-describe-key (key &optional briefly) |
141 |
(interactive "kDescribe key: ") |
(interactive "kDescribe key: ") |
142 |
(let ((defn (if (eq (key-binding key) 'calc-dispatch) |
(let ((defn (if (eq (key-binding key) 'calc-dispatch) |
155 |
(lookup-key calc-help-map key2)) |
(lookup-key calc-help-map key2)) |
156 |
(key-binding key)))) |
(key-binding key)))) |
157 |
(inv nil) |
(inv nil) |
158 |
(hyp nil)) |
(hyp nil) |
159 |
|
calc-summary-indentation) |
160 |
(while (or (equal key "I") (equal key "H")) |
(while (or (equal key "I") (equal key "H")) |
161 |
(if (equal key "I") |
(if (equal key "I") |
162 |
(setq inv (not inv)) |
(setq inv (not inv)) |
186 |
(copy-to-buffer "*Calc Summary*" |
(copy-to-buffer "*Calc Summary*" |
187 |
(point) (point-max)) |
(point) (point-max)) |
188 |
(if Info-history |
(if Info-history |
189 |
(Info-last)))) |
(Info-last)))))) |
190 |
(setq case-fold-search nil) |
(goto-char (point-min)) |
191 |
(re-search-forward "^\\(.*\\)\\[\\.\\. a b") |
(setq case-fold-search nil) |
192 |
(setq calc-summary-indentation |
(re-search-forward "^\\(.*\\)\\[\\.\\. a b") |
193 |
(- (match-end 1) (match-beginning 1))))) |
(setq calc-summary-indentation |
194 |
|
(- (match-end 1) (match-beginning 1))) |
195 |
(goto-char (point-min)) |
(goto-char (point-min)) |
196 |
(setq target (if (and (string-match "[0-9]\\'" desc) |
(setq target (if (and (string-match "[0-9]\\'" desc) |
197 |
(not (string-match "[d#]" desc))) |
(not (string-match "[d#]" desc))) |
400 |
(delete-region (point-min) (point)) |
(delete-region (point-min) (point)) |
401 |
(goto-char (point-min)))) |
(goto-char (point-min)))) |
402 |
|
|
403 |
|
(defvar calc-help-long-names '((?b . "binary/business") |
404 |
|
(?g . "graphics") |
405 |
|
(?j . "selection") |
406 |
|
(?k . "combinatorics/statistics") |
407 |
|
(?u . "units/statistics"))) |
408 |
|
|
409 |
(defun calc-full-help () |
(defun calc-full-help () |
410 |
(interactive) |
(interactive) |
411 |
(with-output-to-temp-buffer "*Help*" |
(with-output-to-temp-buffer "*Help*" |
462 |
calc-z-prefix-help))) |
calc-z-prefix-help))) |
463 |
(print-help-return-message))) |
(print-help-return-message))) |
464 |
|
|
|
(defvar calc-help-long-names '((?b . "binary/business") |
|
|
(?g . "graphics") |
|
|
(?j . "selection") |
|
|
(?k . "combinatorics/statistics") |
|
|
(?u . "units/statistics"))) |
|
|
|
|
465 |
(defun calc-h-prefix-help () |
(defun calc-h-prefix-help () |
466 |
(interactive) |
(interactive) |
467 |
(calc-do-prefix-help |
(calc-do-prefix-help |
674 |
"} (matrix brackets); . (abbreviate); / (multi-lines)") |
"} (matrix brackets); . (abbreviate); / (multi-lines)") |
675 |
"vec/mat" ?v)) |
"vec/mat" ?v)) |
676 |
|
|
677 |
|
(provide 'calc-help) |
678 |
|
|
679 |
;; arch-tag: 2d347593-7591-449e-a64a-93dab5f2f686 |
;; arch-tag: 2d347593-7591-449e-a64a-93dab5f2f686 |
680 |
;;; calc-help.el ends here |
;;; calc-help.el ends here |