# HG changeset patch
# User Jay Belanger <jay.p.belanger@gmail.com>
# Date 1097465244 0
# Node ID f4e473491598ff0f68d83331955358271e78ec4d
# Parent  fa2eebf665a835de1126b5c5a41904b5942b9cf2
(calc-info-goto-node): New function.

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

diff -r fa2eebf665a8 -r f4e473491598 lisp/calc/calc-misc.el
--- a/lisp/calc/calc-misc.el	Mon Oct 11 03:25:09 2004 +0000
+++ b/lisp/calc/calc-misc.el	Mon Oct 11 03:27:24 2004 +0000
@@ -160,21 +160,25 @@
   (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)