From 20ad0cc03b73f6576ece195bb16878415c313d45 Mon Sep 17 00:00:00 2001 From: Stefan Monnier Date: Sun, 3 Jan 2021 17:25:06 -0500 Subject: [PATCH] * admin/last-chance.el (last-chance): Use `grep`s return value (compilation-finish-functions): Only set it buffer-locally. --- admin/last-chance.el | 20 ++++++++------------ 1 file changed, 8 insertions(+), 12 deletions(-) diff --git a/admin/last-chance.el b/admin/last-chance.el index fd5b8e9bd7a..e8021129e30 100644 --- a/admin/last-chance.el +++ b/admin/last-chance.el @@ -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) -- 2.39.5