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

[Ralf Angeli]

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)))