From 8603f538c2dd8b8336be11df867453a04d286104 Mon Sep 17 00:00:00 2001 From: Howard Abrams Date: Tue, 10 May 2022 11:26:55 -0700 Subject: [PATCH] Beep to call consult instead of counsel. --- elisp/beep.el | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/elisp/beep.el b/elisp/beep.el index 70be30d..d1a7fae 100644 --- a/elisp/beep.el +++ b/elisp/beep.el @@ -46,11 +46,11 @@ as this can be pretty distracting." (beep--speak phrase)) (defun compile-and-notify () - "Call `counsel-compile' and notify us when finished. + "Call `compile' and notify us when finished. See `beep--when-finished' for details." (interactive) - (let ((root (projectile-project-root))) - (counsel-compile root) + (let ((default-directory (projectile-project-root))) + (call-interactively 'compile) (beep--when-finished "The compile command has finished."))) (defvar beep-func-too-long-time 5