Mercurial > dotfiles

comparison .elisp/settings/50.compilation-tweaks.el @ 445:b0264224e2ec

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
compilation tweaks: tried and failed to fix hg compilation stuff I can't figure out why it's not working, but it's at least a little more hackable now.
author Augie Fackler <raf@durin42.com>
date Sat, 30 Sep 2017 06:47:10 -0400
parents 1ba5a7b0a328
children 6bcdbe7b8e42
comparison
equal deleted inserted replaced
444:957632211aa3 445:b0264224e2ec
1 (require 'compile) 1 (require 'compile)
2 2
3 (pushnew 3 (setq af--hg-test-traceback
4 '(mercurial-test-output-tb 4 (rx
5 "\+ File \".*/install/lib/python/\\([^\"]*\\)\", line \\([0-9]*\\)\\(, in .*\\)?$" 5 bol
6 1 2) compilation-error-regexp-alist-alist) 6 "+ File \""
7 (pushnew 7 (one-or-more not-newline)
8 '(mercurial-check-code-output-tb 8 "/install/lib/python/"
9 "\+\\(/[^:]+\\):\\([0-9]+\\):$" 9 (group (one-or-more (not (any "\""))))
10 1 2) compilation-error-regexp-alist-alist) 10 ", line "
11 ;; add to the end so this gets priority 11 (group (one-or-more digit))
12 (setq compilation-error-regexp-alist 12 )
13 (append compilation-error-regexp-alist '(mercurial-test-output-tb))) 13 )
14 (setq compilation-error-regexp-alist
15 (append compilation-error-regexp-alist '(mercurial-check-code-output-tb)))
16 14
17 ;; Use the next s-exp to remove the last list element if you need to 15 (setq compilation-error-regexp-alist-alist
18 ;; live-edit this regex 16 (cons '(mercurial-test-output-tb af--hg-test-traceback 1 2)
19 ;; (setq compilation-error-regexp-alist-alist 17 (assq-delete-all 'mercurial-test-output-tb
20 ;; (cdr compilation-error-regexp-alist-alist)) 18 compilation-error-regexp-alist-alist)))
21 ;; (setq compilation-error-regexp-alist 19
22 ;; (reverse (cdr (reverse compilation-error-regexp-alist)))) 20 (setq af--hg-check-code-error-re
21 (rx
22 bol
23 "+ "
24 (group (one-or-more not-newline))
25 ":"
26 (group (one-or-more digit))
27 ":"
28 )
29 )
30
31 (setq compilation-error-regexp-alist-alist
32 (cons '(mercurial-check-code-output af--hg-check-code-error-re 1 2)
33 (assq-delete-all 'mercurial-check-code-output
34 compilation-error-regexp-alist-alist)))
35
36 (add-to-list 'compilation-error-regexp-alist 'mercurial-test-output-tb)
37 (add-to-list 'compilation-error-regexp-alist 'mercurial-check-code-output)
38
39 ;; to debug:
40 ;;(setq compilation-error-regexp-alist '(mercurial-check-code-output))