Re: compilation-forget-errors still used by tex-mode.el

[Stefan Monnier]

> It doesn't work for me with a tex file a.tex containing just the line
> \xyz
> Using next-error in buffer *tex-shell* yields 
> compilation-next-error: No more errors yet

Oops, I forgot to include the following patch (which I thought I'd
installed already).


        Stefan


Index: lisp/textmodes/tex-mode.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/textmodes/tex-mode.el,v
retrieving revision 1.142
diff -u -r1.142 tex-mode.el
--- lisp/textmodes/tex-mode.el  3 Jan 2004 21:15:28 -0000       1.142
+++ lisp/textmodes/tex-mode.el  18 Mar 2004 20:24:43 -0000
@@ -1,6 +1,6 @@
 ;;; tex-mode.el --- TeX, LaTeX, and SliTeX mode commands -*- coding: utf-8 -*-
 
-;; Copyright (C) 1985,86,89,92,94,95,96,97,98,1999,2002,2003
+;; Copyright (C) 1985,86,89,92,94,95,96,97,98,1999,2002,03,2004
 ;;       Free Software Foundation, Inc.
 
 ;; Maintainer: FSF
@@ -1446,6 +1446,8 @@
 ;; The utility functions:
 
 (define-derived-mode tex-shell shell-mode "TeX-Shell"
+  (set (make-local-variable 'compilation-parse-errors-function)
+       'tex-compilation-parse-errors)
   (compilation-shell-minor-mode t))
 
 ;;;###autoload
@@ -1879,8 +1881,6 @@
     (let (shell-dirtrack-verbose)
       (tex-send-command tex-shell-cd-command dir)))
   (with-current-buffer (process-buffer (tex-send-command cmd))
-    (make-local-variable 'compilation-parse-errors-function)
-    (setq compilation-parse-errors-function 'tex-compilation-parse-errors)
     (setq compilation-last-buffer (current-buffer))
     (compilation-forget-errors)
     ;; Don't parse previous compilations.
@@ -1927,7 +1927,7 @@
                        end-of-error (match-end 0)))
                (re-search-forward
                 "^l\\.\\([0-9]+\\) \\(\\.\\.\\.\\)?\\(.*\\)$" nil 'move))
-      (let* ((this-error (set-marker (make-marker) begin-of-error))
+      (let* ((this-error (copy-marker begin-of-error))
             (linenum (string-to-int (match-string 1)))
             (error-text (regexp-quote (match-string 3)))
             (filename