Mercurial > emacs

changeset 57430:f4e473491598

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(calc-info-goto-node): New function. (calc-tutorial, calc-info-summary): Go to appropriate Calc info node in one step.
author Jay Belanger <jay.p.belanger@gmail.com>
date Mon, 11 Oct 2004 03:27:24 +0000
parents fa2eebf665a8
children eb0c890a4987
files lisp/calc/calc-misc.el
diffstat 1 files changed, 8 insertions(+), 4 deletions(-) [+]
line wrap: on
line diff
--- 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)