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)
_______________________________________________
auctex-diffs mailing list
[EMAIL PROTECTED]
http://lists.gnu.org/mailman/listinfo/auctex-diffs
