Make eldoc-box-clear-with-C-g work for help-at-point too

* eldoc-box.el (eldoc-box-help-at-point): Add advice if eldoc-box-clear-with-C-g is non-nil.
emacsmirror · Sep 21, 2023 · 270a9a8 · 270a9a8
1 parent 2663fd8
commit 270a9a8
Showing 1 changed file with 3 additions and 1 deletion.
diff --git a/eldoc-box.el b/eldoc-box.el
@@ -290,7 +290,9 @@ If point != last point, hide the childframe.")
        (with-current-buffer eldoc--doc-buffer
          (buffer-string))))
     (setq eldoc-box--help-at-point-last-point (point))
-    (run-with-timer 0.1 nil #'eldoc-box--help-at-point-cleanup)))
+    (run-with-timer 0.1 nil #'eldoc-box--help-at-point-cleanup)
+    (when eldoc-box-clear-with-C-g
+      (advice-add #'keyboard-quit :before #'eldoc-box-quit-frame))))
 
 ;;;; Backstage
 ;;;;; Variable