view .elisp/settings/50.compilation-tweaks.el @ 264:b56da15f4444

emacs: enable narrow-to-region
author Augie Fackler <durin42@gmail.com>
date Wed, 02 Nov 2011 09:53:57 -0500
parents 1ba5a7b0a328
children b0264224e2ec
line wrap: on
line source

(require 'compile)

(pushnew
 '(mercurial-test-output-tb
   "\+  File \".*/install/lib/python/\\([^\"]*\\)\", line \\([0-9]*\\)\\(, in .*\\)?$"
    1 2) compilation-error-regexp-alist-alist)
(pushnew
 '(mercurial-check-code-output-tb
   "\+\\(/[^:]+\\):\\([0-9]+\\):$"
    1 2) compilation-error-regexp-alist-alist)
;; add to the end so this gets priority
(setq compilation-error-regexp-alist
      (append compilation-error-regexp-alist '(mercurial-test-output-tb)))
(setq compilation-error-regexp-alist
      (append compilation-error-regexp-alist '(mercurial-check-code-output-tb)))

;; Use the next s-exp to remove the last list element if you need to
;; live-edit this regex
;; (setq compilation-error-regexp-alist-alist
;;         (cdr compilation-error-regexp-alist-alist))
;; (setq compilation-error-regexp-alist
;;         (reverse (cdr (reverse compilation-error-regexp-alist))))