223 |
(defun calc-info () |
(defun calc-info () |
224 |
"Run the Emacs Info system on the Calculator documentation." |
"Run the Emacs Info system on the Calculator documentation." |
225 |
(interactive) |
(interactive) |
|
(require 'info) |
|
226 |
(select-window (get-largest-window)) |
(select-window (get-largest-window)) |
227 |
(or (file-name-absolute-p calc-info-filename) |
(info "Calc")) |
|
(let ((p load-path) |
|
|
name) |
|
|
(if (boundp 'Info-directory) |
|
|
(setq p (cons Info-directory p))) |
|
|
(while (and p (not (file-exists-p |
|
|
(setq name (expand-file-name calc-info-filename |
|
|
(car p)))))) |
|
|
(setq p (cdr p))) |
|
|
(if p (setq calc-info-filename name)))) |
|
|
(condition-case err |
|
|
(info) |
|
|
(error nil)) |
|
|
(or (and (boundp 'Info-current-file) |
|
|
(stringp Info-current-file) |
|
|
(string-match "calc" Info-current-file)) |
|
|
(Info-find-node calc-info-filename "Top"))) |
|
228 |
|
|
229 |
(defun calc-tutorial () |
(defun calc-tutorial () |
230 |
"Run the Emacs Info system on the Calculator Tutorial." |
"Run the Emacs Info system on the Calculator Tutorial." |