[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[AUCTeX-diffs] Changes to auctex/tex-buf.el,v
From: |
Ralf Angeli |
Subject: |
[AUCTeX-diffs] Changes to auctex/tex-buf.el,v |
Date: |
Sun, 05 Apr 2009 17:52:27 +0000 |
CVSROOT: /cvsroot/auctex
Module name: auctex
Changes by: Ralf Angeli <angeli> 09/04/05 17:52:26
Index: tex-buf.el
===================================================================
RCS file: /cvsroot/auctex/auctex/tex-buf.el,v
retrieving revision 1.276
retrieving revision 1.277
diff -u -b -r1.276 -r1.277
--- tex-buf.el 28 Dec 2008 15:42:45 -0000 1.276
+++ tex-buf.el 5 Apr 2009 17:52:26 -0000 1.277
@@ -1,7 +1,7 @@
;;; tex-buf.el --- External commands for AUCTeX.
-;; Copyright (C) 1991, 1993, 1996, 2001, 2003, 2004,
-;; 2005, 2006, 2007, 2008 Free Software Foundation, Inc.
+;; Copyright (C) 1991, 1993, 1996, 2001, 2003, 2004, 2005, 2006, 2007,
+;; 2008, 2009 Free Software Foundation, Inc.
;; Maintainer: address@hidden
;; Keywords: tex, wp
@@ -1651,10 +1651,10 @@
"\n\n--- TeX said ---"
output
"\n--- HELP ---\n"
+ (let ((help (cdr (nth TeX-error-pointer
+ TeX-error-description-list))))
(save-excursion
- (if (and (string= (cdr (nth TeX-error-pointer
- TeX-error-description-list))
- "No help available")
+ (if (and (string= help "No help available")
(let* ((log-buffer (find-buffer-visiting log-file)))
(if log-buffer
(progn
@@ -1666,17 +1666,15 @@
(auto-save-mode nil)
(setq buffer-read-only t)
(goto-line (point-min))
- (search-forward error nil t 1)))
- (progn
- (re-search-forward "^l\\.")
- (re-search-forward "^ [^\n]+$")
+ (search-forward error nil t 1))
+ (re-search-forward "^l\\." nil t)
+ (re-search-forward "^ [^\n]+$" nil t))
+ (let ((start (1+ (point))))
(forward-char 1)
- (let ((start (point)))
(re-search-forward "^$")
(concat "From the .log file...\n\n"
- (buffer-substring start (point)))))
- (cdr (nth TeX-error-pointer
- TeX-error-description-list)))))
+ (buffer-substring start (point))))
+ help))))
(goto-char (point-min))
(TeX-pop-to-buffer old-buffer nil t)))
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [AUCTeX-diffs] Changes to auctex/tex-buf.el,v,
Ralf Angeli <=