diff options
| author | Jay Belanger <jay.p.belanger@gmail.com> | 2004-10-11 03:27:24 +0000 |
|---|---|---|
| committer | Jay Belanger <jay.p.belanger@gmail.com> | 2004-10-11 03:27:24 +0000 |
| commit | 65ce291b9c10b634e82552c0bd53d87283665b39 (patch) | |
| tree | 5bc75d3380e1fa4fb4d382c6246a5f214a957b78 /lisp/calc | |
| parent | 9d3c486a7ef07f9e2ef394623f9df3e7067db232 (diff) | |
| download | emacs-65ce291b9c10b634e82552c0bd53d87283665b39.tar.gz | |
(calc-info-goto-node): New function.
(calc-tutorial, calc-info-summary): Go to appropriate Calc info node
in one step.
Diffstat (limited to 'lisp/calc')
| -rw-r--r-- | lisp/calc/calc-misc.el | 12 |
1 files changed, 8 insertions, 4 deletions
diff --git a/lisp/calc/calc-misc.el b/lisp/calc/calc-misc.el index 772b39ffed4..c01d37e6848 100644 --- a/lisp/calc/calc-misc.el +++ b/lisp/calc/calc-misc.el @@ -160,21 +160,25 @@ Calc user interface as before (either M-# C or M-# K; initially M-# C)." (select-window (get-largest-window)) (info "Calc")) +(defun calc-info-goto-node (node) + "Go to a node in the Calculator info documentation." + (interactive) + (select-window (get-largest-window)) + (Info-goto-node (concat "(Calc)" node))) + (defun calc-tutorial () "Run the Emacs Info system on the Calculator Tutorial." (interactive) (if (get-buffer-window "*Calculator*") (calc-quit)) - (calc-info) - (Info-goto-node "Interactive Tutorial") + (calc-info-goto-node "Interactive Tutorial") (calc-other-window) (message "Welcome to the Calc Tutorial!")) (defun calc-info-summary () "Run the Emacs Info system on the Calculator Summary." (interactive) - (calc-info) - (Info-goto-node "Summary")) + (calc-info-goto-node "Summary")) (defun calc-help () (interactive) |