blob: ea9d26437f34d5345795f49f23493c1c278f6779 (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
|
;;; lr.el --- run `lr' and display the results
(define-compilation-mode lr-mode "Lr"
(set (make-local-variable 'compilation-error-regexp-alist)
'(("\\([^ \n']+\\)[*/=>@|]$" 1)
("\\([^ \n']+\\)$" 1)
("'\\(.+\\)'$" 1)))
(set (make-local-variable 'next-error-highlight) nil))
(defun lr (command-args)
"Run lr, with user-specified args, and collect output in a buffer.
While lr runs asynchronously, you can use \\[next-error] (M-x next-error),
or RET in the *lr* buffer, to go to the files lr found."
(interactive (list (read-shell-command "Run lr (like this): "
"lr " 'lr-history)))
(compilation-start command-args 'lr-mode))
(provide 'lr)
;;; lr.el ends here
|
