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) |