branch: master
commit 876b4ac37b38d658d4285300a69f9279f4c7958e
Author: Basil L. Contovounesios <conto...@tcd.ie>
Commit: Basil L. Contovounesios <conto...@tcd.ie>
counsel.el (counsel-compile): Minor cleanup
---
counsel.el | 6 ++++--
1 file changed, 4 insertions(+), 2 deletions(-)
diff --git a/counsel.el b/counsel.el
index 1fe8f45..e125496 100644
--- a/counsel.el
+++ b/counsel.el
@@ -5306,10 +5306,12 @@ to further refine the compile options in the directory
specified by `blddir'."
(defun counsel-compile (&optional dir)
"Call `compile' completing with smart suggestions, optionally for DIR."
(interactive)
- (add-hook 'compilation-start-hook 'counsel-compile--update-history)
+ ;; No need to specify `:history' because of this hook.
+ (add-hook 'compilation-start-hook #'counsel-compile--update-history)
(ivy-read "Compile command: "
(counsel--get-compile-candidates dir)
- :action #'counsel-compile--wrapper))
+ :action #'counsel-compile--wrapper
+ :caller 'counsel-compile))
;;* `counsel-mode'
(defvar counsel-mode-map
