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

[Miles Bader]

Index: emacs/lisp/calc/calc-misc.el
diff -c emacs/lisp/calc/calc-misc.el:1.8.2.2 
emacs/lisp/calc/calc-misc.el:1.8.2.3
*** emacs/lisp/calc/calc-misc.el:1.8.2.2        Tue Oct 14 23:35:48 2003
--- emacs/lisp/calc/calc-misc.el        Mon Oct 25 04:19:45 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)