Mercurial > emacs

changeset 41359:5042a5269efd

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(calc-info): Don't perform voodoo, just (info "Calc").
author Colin Walters <walters@gnu.org>
date Thu, 22 Nov 2001 06:03:24 +0000
parents f1d3cfc0cdeb
children fe22de43f464
files lisp/calc/calc-misc.el
diffstat 1 files changed, 1 insertions(+), 18 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/calc/calc-misc.el	Thu Nov 22 00:08:32 2001 +0000
+++ b/lisp/calc/calc-misc.el	Thu Nov 22 06:03:24 2001 +0000
@@ -223,25 +223,8 @@
 (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."