Lines Matching +defs:calc +defs:describe +defs:distribution
0 ;;; calc-help.el --- help display functions for Calc,
30 ;; This file is autoloaded from calc-ext.el.
32 (require 'calc-ext)
33 (require 'calc-macs)
35 (defun calc-help-prefix (arg)
36 "This key is the prefix for Calc help functions. See calc-help-for-help."
38 (or calc-dispatch-help (sit-for echo-keystrokes))
39 (let ((key (calc-read-key-sequence
40 (if calc-dispatch-help
44 calc-help-map)))
45 (setq key (lookup-key calc-help-map key))
51 (defun calc-help-for-help (arg)
54 B calc-describe-bindings. Display a table of all key bindings.
55 H calc-full-help. Display all `?' key messages at once.
57 I calc-info. Read the Calc manual using the Info system.
58 T calc-tutorial. Read the Calc tutorial using the Info system.
59 S calc-info-summary. Read the Calc summary using the Info system.
61 C calc-describe-key-briefly. Look up the command name for a given key.
62 K calc-describe-key. Look up a key's documentation in the manual.
63 F calc-describe-function. Look up a function's documentation in the manual.
64 V calc-describe-variable. Look up a variable's documentation in the manual.
66 N calc-view-news. Display Calc history of changes.
72 (if calc-dispatch-help
75 (describe-function 'calc-help-for-help)
79 (memq (car (setq key (calc-read-key t)))
86 (calc-unread-command (cdr key))
87 (calc-help-prefix nil))
88 (let ((calc-dispatch-help t))
89 (calc-help-prefix arg))))
91 (defun calc-describe-copying ()
93 (calc-info-goto-node "Copying"))
95 (defun calc-describe-distribution ()
97 (calc-info-goto-node "Reporting Bugs"))
99 (defun calc-describe-no-warranty ()
101 (calc-info-goto-node "Copying")
107 (defun calc-describe-bindings ()
109 (describe-bindings)
134 (defun calc-describe-key-briefly (key)
136 (calc-describe-key key t))
140 (defun calc-describe-key (key &optional briefly)
142 (let ((defn (if (eq (key-binding key) 'calc-dispatch)
143 (let ((key2 (calc-read-key-sequence
146 calc-dispatch-map)))
148 (lookup-key calc-dispatch-map key2))
149 (if (eq (key-binding key) 'calc-help-prefix)
150 (let ((key2 (calc-read-key-sequence
153 calc-help-map)))
155 (lookup-key calc-help-map key2))
159 calc-summary-indentation)
193 (setq calc-summary-indentation
202 (make-string (+ calc-summary-indentation 9)
214 (forward-char calc-summary-indentation)
243 "\\`\\(calc-[-a-zA-Z0-9]+\\) *\\(.*\\)\\'"
257 (let ((key (calc-read-key t)))
282 (calc-unread-command (cdr key)))))
290 (calc-describe-thing desc "Key Index" nil
293 (defvar calc-help-function-list nil
296 (defvar calc-help-variable-list nil
299 (defun calc-help-index-entries (&rest indices)
321 (defun calc-describe-function (&optional func)
323 (unless calc-help-function-list
324 (setq calc-help-function-list
325 (calc-help-index-entries "Function" "Command")))
328 calc-help-function-list
330 (if (string-match "\\`calc-." func)
331 (calc-describe-thing func "Command Index")
332 (calc-describe-thing func "Function Index")))
334 (defun calc-describe-variable (&optional var)
336 (unless calc-help-variable-list
337 (setq calc-help-variable-list
338 (calc-help-index-entries "Variable")))
341 calc-help-variable-list
343 (calc-describe-thing var "Variable Index"))
345 (defun calc-describe-thing (thing where &optional target not-quoted)
348 (calc-info-goto-node where)
385 (defun calc-view-news ()
389 (not (file-exists-p (expand-file-name "calc.el" (car path)))))
394 (calc-quit)
405 (defvar calc-help-long-names '((?b . "binary/business")
411 (defun calc-full-help ()
415 calc-version))
421 (let* ((calc-full-help-flag t))
423 (nreverse (cdr (reverse (cdr (calc-help))))))
437 calc-help-long-names))
444 '(calc-inverse-prefix-help
445 calc-hyperbolic-prefix-help
446 calc-inv-hyp-prefix-help
447 calc-a-prefix-help
448 calc-b-prefix-help
449 calc-c-prefix-help
450 calc-d-prefix-help
451 calc-f-prefix-help
452 calc-g-prefix-help
453 calc-h-prefix-help
454 calc-j-prefix-help
455 calc-k-prefix-help
456 calc-m-prefix-help
457 calc-r-prefix-help
458 calc-s-prefix-help
459 calc-t-prefix-help
460 calc-u-prefix-help
461 calc-v-prefix-help
462 calc-shift-Y-prefix-help
463 calc-shift-Z-prefix-help
464 calc-z-prefix-help)))
467 (defun calc-h-prefix-help ()
469 (calc-do-prefix-help
471 "describe: Key, C (briefly), Function, Variable")
474 (defun calc-inverse-prefix-help ()
476 (calc-do-prefix-help
488 (defun calc-hyperbolic-prefix-help ()
490 (calc-do-prefix-help
503 (defun calc-inv-hyp-prefix-help ()
505 (calc-do-prefix-help
514 (defun calc-f-prefix-help ()
516 (calc-do-prefix-help
525 (defun calc-s-prefix-help ()
527 (calc-do-prefix-help
536 (defun calc-r-prefix-help ()
538 (calc-do-prefix-help
543 (defun calc-j-prefix-help ()
545 (calc-do-prefix-help
556 (defun calc-a-prefix-help ()
558 (calc-do-prefix-help
572 (defun calc-b-prefix-help ()
574 (calc-do-prefix-help
582 (defun calc-c-prefix-help ()
584 (calc-do-prefix-help
590 (defun calc-d-prefix-help ()
592 (calc-do-prefix-help
603 (defun calc-g-prefix-help ()
605 (calc-do-prefix-help
616 (defun calc-k-prefix-help ()
618 (calc-do-prefix-help
629 (defun calc-m-prefix-help ()
631 (calc-do-prefix-help
639 (defun calc-t-prefix-help ()
641 (calc-do-prefix-help
651 (defun calc-u-prefix-help ()
653 (calc-do-prefix-help
663 (defun calc-v-prefix-help ()
665 (calc-do-prefix-help
679 (provide 'calc-help)
682 ;;; calc-help.el ends here