[AUCTeX-diffs] Changes to auctex/tex.el,v

[Ralf Angeli]

CVSROOT:        /cvsroot/auctex
Module name:    auctex
Changes by:     Ralf Angeli <angeli>    06/06/12 16:54:21

Index: tex.el
===================================================================
RCS file: /cvsroot/auctex/auctex/tex.el,v
retrieving revision 5.574
retrieving revision 5.575
diff -u -b -r5.574 -r5.575
--- tex.el      11 Jun 2006 14:16:45 -0000      5.574
+++ tex.el      12 Jun 2006 16:54:21 -0000      5.575
@@ -4732,7 +4732,6 @@
   (interactive)
   (info "auctex"))
 
-(autoload 'Info-find-file "info")
 (autoload 'info-lookup->completions "info-look")
 
 (defvar TeX-doc-backend-alist
@@ -4744,9 +4743,14 @@
              (call-process "texdoc" nil 0 nil doc)))
     (latex-info (latex-mode)
                (lambda ()
-                 (when (condition-case nil ; If function is not available.
-                           (Info-find-file "latex" t)
+                 (when (let ((buf-name (generate-new-buffer-name "*info*")))
+                         (prog1
+                             (condition-case nil
+                                 (progn
+                                   (info "latex" buf-name)
+                                   t)
                          (error nil))
+                           (kill-buffer buf-name)))
                    (mapcar (lambda (x)
                              (let ((x (car x)))
                                (if (string-match "\\`\\\\" x)
@@ -4756,9 +4760,14 @@
                  (info-lookup-symbol (concat "\\" doc) 'latex-mode)))
     (texinfo-info (texinfo-mode)
                  (lambda ()
-                   (when (condition-case nil ; If function is not available.
-                             (Info-find-file "texinfo" t)
+                   (when (let ((buf-name (generate-new-buffer-name "*info*")))
+                         (prog1
+                             (condition-case nil
+                                 (progn
+                                   (info "texinfo" buf-name)
+                                   t)
                            (error nil))
+                           (kill-buffer buf-name)))
                      (mapcar (lambda (x)
                                (let ((x (car x)))
                                  (if (string-match "\\`@" x)