/[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.4 by walters, Mon Nov 19 07:36:42 2001 UTC revision 1.5 by walters, Thu Nov 22 06:03:24 2001 UTC
# Line 223  Calc user interface as before (either M- Line 223  Calc user interface as before (either M-
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."

Legend:
Removed from v.1.4  
changed lines
  Added in v.1.5

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