From 3f2c97ea216267a0c1d92f259b7cf96748817ae6 Mon Sep 17 00:00:00 2001 From: Stefan Monnier Date: Thu, 18 Mar 2004 20:26:01 +0000 Subject: [PATCH] (tex-shell): Set error parsing function here. (tex-send-tex-command): Rather than here. (tex-compilation-parse-errors): Simplify. --- lisp/textmodes/tex-mode.el | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/lisp/textmodes/tex-mode.el b/lisp/textmodes/tex-mode.el index 68b408af081..6e129987ec1 100644 --- a/lisp/textmodes/tex-mode.el +++ b/lisp/textmodes/tex-mode.el @@ -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 @@ Mark is left at original location." ;; 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 @@ FILE is typically the output DVI or PDF file." (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 @@ for the error messages." 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 -- 2.39.2