[Emacs-diffs] Changes to emacs/lisp/calc/calc-misc.el [emacs-unicode-2]

[Miles Bader]

Index: emacs/lisp/calc/calc-misc.el
diff -c emacs/lisp/calc/calc-misc.el:1.10.4.1 
emacs/lisp/calc/calc-misc.el:1.10.4.2
*** emacs/lisp/calc/calc-misc.el:1.10.4.1       Fri Apr 16 12:50:11 2004
--- emacs/lisp/calc/calc-misc.el        Thu Oct 14 08:50:09 2004
***************
*** 160,180 ****
    (select-window (get-largest-window))
    (info "Calc"))
  
  (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-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"))
  
  (defun calc-help ()
    (interactive)
--- 160,184 ----
    (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-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-goto-node "Summary"))
  
  (defun calc-help ()
    (interactive)