From b23d58ff83e31c08d1f0295caf999d04e74f8690 Mon Sep 17 00:00:00 2001 From: Colin Walters Date: Thu, 22 Nov 2001 06:03:24 +0000 Subject: [PATCH] (calc-info): Don't perform voodoo, just (info "Calc"). --- lisp/calc/calc-misc.el | 19 +------------------ 1 file changed, 1 insertion(+), 18 deletions(-) diff --git a/lisp/calc/calc-misc.el b/lisp/calc/calc-misc.el index 226ba02de2a..08ca3fe3190 100644 --- a/lisp/calc/calc-misc.el +++ b/lisp/calc/calc-misc.el @@ -223,25 +223,8 @@ Calc user interface as before (either M-# C or M-# K; initially M-# C)." (defun calc-info () "Run the Emacs Info system on the Calculator documentation." (interactive) - (require 'info) (select-window (get-largest-window)) - (or (file-name-absolute-p calc-info-filename) - (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"))) + (info "Calc")) (defun calc-tutorial () "Run the Emacs Info system on the Calculator Tutorial." -- 2.39.5