From: Stefan Monnier Date: Wed, 9 Nov 2011 15:39:32 +0000 (-0500) Subject: * lisp/progmodes/compile.el: Adjust regexp for OCaml warnings. X-Git-Tag: emacs-pretest-24.0.92~121^2~6 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=d9ac1a1e5de383d2929d1590176e5b82901b89c9;p=emacs.git * lisp/progmodes/compile.el: Adjust regexp for OCaml warnings. (compilation-error-regexp-alist-alist): OCaml warnings (can?) have a number. Fixes: debbugs:9749 --- diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 8f00ef70776..d7501d14f8d 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,5 +1,8 @@ 2011-11-09 Stefan Monnier + * progmodes/compile.el (compilation-error-regexp-alist-alist): + Adjust regexp for OCaml warnings. + * electric.el (electric-pair-post-self-insert-function): Let user turn it off buffer-locally (bug#9932). diff --git a/lisp/progmodes/compile.el b/lisp/progmodes/compile.el index 491d5c75671..3dba1af515a 100644 --- a/lisp/progmodes/compile.el +++ b/lisp/progmodes/compile.el @@ -157,7 +157,7 @@ of[ \t]+\"?\\([a-zA-Z]?:?[^\":\n]+\\)\"?:" 3 2 nil (1)) (python-tracebacks-and-caml "^[ \t]*File \\(\"?\\)\\([^,\" \n\t<>]+\\)\\1, lines? \\([0-9]+\\)-?\\([0-9]+\\)?\\(?:$\\|,\ -\\(?: characters? \\([0-9]+\\)-?\\([0-9]+\\)?:\\)?\\([ \n]Warning:\\)?\\)" +\\(?: characters? \\([0-9]+\\)-?\\([0-9]+\\)?:\\)?\\([ \n]Warning\\(?: [0-9]+\\)?:\\)?\\)" 2 (3 . 4) (5 . 6) (7)) (comma diff --git a/test/automated/compile-tests.el b/test/automated/compile-tests.el index 1d9a266904c..419cc0e9116 100644 --- a/test/automated/compile-tests.el +++ b/test/automated/compile-tests.el @@ -71,7 +71,7 @@ ;; caml ("File \"foobar.ml\", lines 5-8, characters 20-155: blah blah" 1 (19 . 155) (5 . 8) "foobar.ml") - ("File \"F:\\ocaml\\sorting.ml\", line 65, characters 2-145:" + ("File \"F:\\ocaml\\sorting.ml\", line 65, characters 2-145:\nWarning 26: unused variable equ." 1 (1 . 145) 65 "F:\\ocaml\\sorting.ml") ("File \"/usr/share/gdesklets/display/TargetGauge.py\", line 41, in add_children" 1 nil 41 "/usr/share/gdesklets/display/TargetGauge.py")