From bfcb962cbe113cc6f52dc9be4fbed1f94e61f312 Mon Sep 17 00:00:00 2001 From: Debanjum Singh Solanky Date: Wed, 27 Jul 2022 05:41:22 +0400 Subject: [PATCH] Use post-command-hook to only query on user input - Hooking into after-change-functions results in system logs triggering query --- src/interface/emacs/khoj.el | 19 +++++++++---------- 1 file changed, 9 insertions(+), 10 deletions(-) diff --git a/src/interface/emacs/khoj.el b/src/interface/emacs/khoj.el index a7485422..d3ca9d67 100644 --- a/src/interface/emacs/khoj.el +++ b/src/interface/emacs/khoj.el @@ -153,20 +153,19 @@ (read-only-mode t))) ;; Incremental Search on Khoj -(defun khoj--incremental-query (beg end len) - (let* ((in-khoj-prompt (equal (minibuffer-prompt) khoj--query-prompt)) - (search-type "org") +(defun khoj--incremental-query () + (let* ((search-type "org") (buffer-name (get-buffer-create (format "*Khoj (t:%s)*" search-type))) (query (minibuffer-contents-no-properties)) (query-url (khoj--construct-api-query query search-type))) (khoj--query-api-and-render-results - query - search-type - query-url - buffer-name))) + query + search-type + query-url + buffer-name))) (defun khoj--remove-incremental-query () - (remove-hook 'after-change-functions #'khoj--incremental-query) + (remove-hook 'post-command-hook #'khoj--incremental-query) (remove-hook 'minibuffer-exit-hook #'khoj--remove-incremental-query)) ;;;###autoload @@ -179,8 +178,8 @@ (switch-to-buffer buffer-name) (minibuffer-with-setup-hook (lambda () - (add-hook 'after-change-functions #'khoj--incremental-query) - (add-hook 'minibuffer-exit-hook #'khoj--remove-incremental-query)) + (add-hook 'post-command-hook #'khoj--incremental-query nil 'local) + (add-hook 'minibuffer-exit-hook #'khoj--remove-incremental-query nil 'local)) (read-string khoj--query-prompt)))) ;;;###autoload