auctex
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[AUCTeX] Re: C-c ` pops to *output* buffer


From: Reiner Steib
Subject: [AUCTeX] Re: C-c ` pops to *output* buffer
Date: Sat, 26 Jan 2008 20:34:52 +0100
User-agent: Gnus/5.110007 (No Gnus v0.7) Emacs/22.1.50 (gnu/linux)

On Sat, Jan 26 2008, David Reitter wrote:

> It actually happens with only pop-up-frames.
[...]
> Turns out the TeX-parse-function is only ever called from TeX-next-
> error, so changing TeX-parse-TeX should be a fairly safe thing to do.

It looks like several other caller of `TeX-pop-to-buffer' are wrong,
too.  See the attached, untested patch (I don't feel comfortable to
commit it, because I rarely use AUCTeX and LaTeX at the moment).

Bye, Reiner.

Index: tex-buf.el
===================================================================
RCS file: /sources/auctex/auctex/tex-buf.el,v
retrieving revision 1.267
diff -u -r1.267 tex-buf.el
--- tex-buf.el  28 Dec 2007 10:33:42 -0000      1.267
+++ tex-buf.el  24 Jan 2008 21:32:51 -0000
@@ -238,7 +238,7 @@
   (let ((buffer (TeX-active-buffer)))
     (if buffer
        (let ((old-buffer (current-buffer)))
-         (TeX-pop-to-buffer buffer t t)
+         ;; (TeX-pop-to-buffer buffer t t)
          (bury-buffer buffer)
          (goto-char (point-max))
          (recenter (if line
@@ -1138,9 +1138,9 @@
   "Filter to process background output."
   (let ((old-window (selected-window))
        (pop-up-windows t))
-    (TeX-pop-to-buffer "*TeX background*" nil t)
-    (goto-char (point-max))
-    (insert string)
+    (with-current-buffer "*TeX background*"
+      (goto-char (point-max))
+      (insert string))
     (select-window old-window)))
 
 ;; Copy and adaption of `comint-postoutput-scroll-to-bottom' from CVS
@@ -1385,11 +1385,11 @@
 already in an Emacs buffer) and the cursor is placed at the error."
   (let ((old-buffer (current-buffer))
        (default-major-mode major-mode))
-    (TeX-pop-to-buffer (TeX-active-buffer) nil t)
-    (if reparse
-       (TeX-parse-reset))
-    (goto-char TeX-error-point)
-    (TeX-parse-error old-buffer)))
+    (with-current-buffer (TeX-active-buffer)
+      (if reparse
+         (TeX-parse-reset))
+      (goto-char TeX-error-point)
+      (TeX-parse-error old-buffer))))
 
 ;;; - Parsing (La)TeX
 
-- 
       ,,,
      (o o)
---ooO-(_)-Ooo---  |  PGP key available  |  http://rsteib.home.pages.de/

reply via email to

[Prev in Thread] Current Thread [Next in Thread]