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

[Ralf Angeli]

CVSROOT:        /cvsroot/auctex
Module name:    auctex
Changes by:     Ralf Angeli <angeli>    06/06/18 13:17:17

Index: tex.el
===================================================================
RCS file: /cvsroot/auctex/auctex/tex.el,v
retrieving revision 5.577
retrieving revision 5.578
diff -u -b -r5.577 -r5.578
--- tex.el      17 Jun 2006 10:03:45 -0000      5.577
+++ tex.el      18 Jun 2006 13:17:17 -0000      5.578
@@ -4749,14 +4749,11 @@
              (call-process "texdoc" nil 0 nil doc)))
     (latex-info (latex-mode)
                (lambda ()
-                 (when (let ((buf-name (generate-new-buffer-name "*info*")))
-                         (prog1
-                             (condition-case nil
-                                 (progn
-                                   (info "latex" buf-name)
+                 (when (condition-case nil
+                           (save-window-excursion
+                             (info "latex" (generate-new-buffer-name "*info*"))
                                    t)
                                (error nil))
-                           (kill-buffer buf-name)))
                    (mapcar (lambda (x)
                              (let ((x (car x)))
                                (if (string-match "\\`\\\\" x)
@@ -4766,14 +4763,12 @@
                  (info-lookup-symbol (concat "\\" doc) 'latex-mode)))
     (texinfo-info (texinfo-mode)
                  (lambda ()
-                   (when (let ((buf-name (generate-new-buffer-name "*info*")))
-                         (prog1
-                             (condition-case nil
-                                 (progn
-                                   (info "texinfo" buf-name)
+                   (when (condition-case nil
+                             (save-window-excursion
+                               (info "texinfo"
+                                     (generate-new-buffer-name "*info*"))
                                    t)
                                (error nil))
-                           (kill-buffer buf-name)))
                      (mapcar (lambda (x)
                                (let ((x (car x)))
                                  (if (string-match "\\`@" x)