From: Jay Belanger <jay.p.belanger@gmail.com>
Date: Mon, 11 Oct 2004 03:27:24 +0000 (+0000)
Subject: (calc-info-goto-node): New function.
X-Git-Tag: ttn-vms-21-2-B4~4630
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=65ce291b9c10b634e82552c0bd53d87283665b39;p=emacs.git

(calc-info-goto-node): New function.

(calc-tutorial, calc-info-summary): Go to appropriate Calc info node
in one step.
---

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)