From 65ce291b9c10b634e82552c0bd53d87283665b39 Mon Sep 17 00:00:00 2001 From: Jay Belanger Date: Mon, 11 Oct 2004 03:27:24 +0000 Subject: [PATCH] (calc-info-goto-node): New function. (calc-tutorial, calc-info-summary): Go to appropriate Calc info node in one step. --- lisp/calc/calc-misc.el | 12 ++++++++---- 1 file 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) -- 2.39.5