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