procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

* admin/last-chance.el (last-chance): Use greps return value

Browse source 
(compilation-finish-functions): Only set it buffer-locally.
This commit is contained in:
Stefan Monnier 2021-01-03 17:25:06 -05:00
parent c2e0f1982f
commit 20ad0cc03b
1 changed files with 8 additions and 12 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

20
admin/last-chance.el
View file

@ -105,18 +105,14 @@ defaulting to the one at point."
"Symbol: " obarray
nil nil
one nil one)))))
(let ((default-directory (or (vc-root-dir)
default-directory)))
(grep (format "%s %s"
last-chance-grep-command
symbol)))
(setf (buffer-local-value 'last-chance-symbol
(process-buffer
(car compilation-in-progress)))
symbol))
(add-to-list 'compilation-finish-functions
'last-chance-cleanup)
(with-current-buffer
(let ((default-directory (or (vc-root-dir)
default-directory)))
(grep (format "%s %s"
last-chance-grep-command
symbol)))
(add-hook 'compilation-finish-functions #'last-chance-cleanup nil t)
(setq-local last-chance-symbol symbol)))
(provide 'last-chance)