changeset 453:f38293cfe508 dev

Limit filename part to extension in an error log line.
author HIROSE Yuuji <yuuji@gentei.org>
date Tue, 21 Feb 2017 19:57:32 +0859
parents 2d9589a786d1
children aaa655456752
files yatexprc.el
diffstat 1 files changed, 5 insertions(+), 2 deletions(-) [+]
line wrap: on
line diff
--- a/yatexprc.el	Tue Feb 21 15:56:22 2017 +0859
+++ b/yatexprc.el	Tue Feb 21 19:57:32 2017 +0859
@@ -1251,8 +1251,11 @@
       (setq s
 	    (buffer-substring
 	     (progn (forward-char 1) (point))
-	     (progn (skip-chars-forward "^ \n" (point-end-of-line))
-		    (point))))
+	     (if (re-search-forward
+		  "\\.\\(tex\\|sty\\|ltx\\)\\>" nil (point-end-of-line))
+		 (match-end 0)
+	       (skip-chars-forward "^ \n" (point-end-of-line))
+	       (point))))
       (if (string= "" s) default s))))
       
 (defun YaTeX-put-nonstopmode ()

yatex.org