[AUCTeX-diffs] [elpa] externals/auctex 5208d91 50/80: Enhance support for file names with spaces

[Tassilo Horn]

branch: externals/auctex
commit 5208d9197c7a7ab4c6346005f87c22a62cc2b131
Author: Ikumi Keita <address@hidden>
Commit: Ikumi Keita <address@hidden>

    Enhance support for file names with spaces
    
    * tex-buf.el (TeX-run-compile): Add an entry for file name with spaces
    to localized `compilation-error-regexp-alist'.
---
 tex-buf.el | 16 +++++++++++++++-
 1 file changed, 15 insertions(+), 1 deletion(-)

diff --git a/tex-buf.el b/tex-buf.el
index 8b87c4c..9aaa585 100644
--- a/tex-buf.el
+++ b/tex-buf.el
@@ -1293,7 +1293,21 @@ run of `TeX-run-TeX', use
 (defun TeX-run-compile (_name command _file)
   "Ignore first and third argument, start compile with second argument."
   (let ((default-directory (TeX-master-directory)))
-    (setq TeX-command-buffer (compile command))))
+    (setq TeX-command-buffer (compile command)))
+  ;; Make `compilation-mode' recognize file names with spaces.
+  ;; (bug#36483)
+  ;; FIXME: This is just an ad-hoc workaround and it's better to fix
+  ;; the regular expression in compile.el properly, if possible.  But
+  ;; there was no response to such request in address@hidden.
+  (with-current-buffer TeX-command-buffer
+    (make-local-variable 'compilation-error-regexp-alist)
+    ;; Add slightly modified entry of the one associated with `comma'
+    ;; in `compilation-error-regexp-alist-alist' to pick up file names
+    ;; with spaces.
+    (add-to-list 'compilation-error-regexp-alist
+                '("^\"\([^,\"
        ]+\)\", line \([0-9]+\)\
+\(?:[(. pos]+\([0-9]+\))?\)?[:.,; (-]\( warning:\|[-0-9 ]*(W)\)?" 1 2 3 (4))
+                t)))
 
 (defun TeX-run-shell (_name command _file)
   "Ignore first and third argument, start shell-command with second argument."