/[emacs]/emacs/lisp/calc/calc-misc.el
ViewVC logotype

Diff of /emacs/lisp/calc/calc-misc.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.10.4.1 by handa, Fri Apr 16 12:50:11 2004 UTC revision 1.10.4.2 by miles, Thu Oct 14 08:50:09 2004 UTC
# Line 160  Calc user interface as before (either M- Line 160  Calc user interface as before (either M-
160    (select-window (get-largest-window))    (select-window (get-largest-window))
161    (info "Calc"))    (info "Calc"))
162    
163    (defun calc-info-goto-node (node)
164      "Go to a node in the Calculator info documentation."
165      (interactive)
166      (select-window (get-largest-window))
167      (Info-goto-node (concat "(Calc)" node)))
168    
169  (defun calc-tutorial ()  (defun calc-tutorial ()
170    "Run the Emacs Info system on the Calculator Tutorial."    "Run the Emacs Info system on the Calculator Tutorial."
171    (interactive)    (interactive)
172    (if (get-buffer-window "*Calculator*")    (if (get-buffer-window "*Calculator*")
173        (calc-quit))        (calc-quit))
174    (calc-info)    (calc-info-goto-node "Interactive Tutorial")
   (Info-goto-node "Interactive Tutorial")  
175    (calc-other-window)    (calc-other-window)
176    (message "Welcome to the Calc Tutorial!"))    (message "Welcome to the Calc Tutorial!"))
177    
178  (defun calc-info-summary ()  (defun calc-info-summary ()
179    "Run the Emacs Info system on the Calculator Summary."    "Run the Emacs Info system on the Calculator Summary."
180    (interactive)    (interactive)
181    (calc-info)    (calc-info-goto-node "Summary"))
   (Info-goto-node "Summary"))  
182    
183  (defun calc-help ()  (defun calc-help ()
184    (interactive)    (interactive)

Legend:
Removed from v.1.10.4.1  
changed lines
  Added in v.1.10.4.2

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26