branch: elpa/eldoc-mouse
commit 6a4cb7338b79e74c0a0f83163aefb04440a4d224
Author: huangfeiyu <[email protected]>
Commit: GitHub <[email protected]>
Bump version to 3.0.1 and refine overlay logic
Updated version number to 3.0.1 and improved overlay handling.
---
eldoc-mouse.el | 20 ++++++++++----------
1 file changed, 10 insertions(+), 10 deletions(-)
diff --git a/eldoc-mouse.el b/eldoc-mouse.el
index 98f21bb63a7..300afc5f0a6 100644
--- a/eldoc-mouse.el
+++ b/eldoc-mouse.el
@@ -3,7 +3,7 @@
;; Copyright (C) 2025 Huang Feiyu
;; Author: Huang Feiyu <[email protected]>
-;; Version: 3.0
+;; Version: 3.0.1
;; Package-Requires: ((emacs "27.1") (posframe "1.4.0") (eglot "1.8"))
;; Keywords: tools, languages, convenience, mouse, hover
;; URL: https://github.com/huangfeiyu/eldoc-mouse
@@ -229,15 +229,15 @@ POS is the buffer position under the mouse cursor."
;; https://emacs.stackexchange.com/questions/14269/14270#14270
(when (and eldoc-mouse-last-symbol-bounds
(not (eolp))
- (not (nth 4 (syntax-ppss))))
+ (not (nth 4 (syntax-ppss)))
+ (or (null eldoc-mouse-interested-thing-function)
+ (funcall eldoc-mouse-interested-thing-function)))
(eldoc-print-current-symbol-info)
- (when (or (null eldoc-mouse-interested-thing-function)
- (funcall eldoc-mouse-interested-thing-function))
- (setq-local eldoc-mouse-mouse-overlay
- (make-overlay
- (car eldoc-mouse-last-symbol-bounds)
- (cdr eldoc-mouse-last-symbol-bounds)))
- (overlay-put eldoc-mouse-mouse-overlay 'face
'secondary-selection)))))))
+ (setq-local eldoc-mouse-mouse-overlay
+ (make-overlay
+ (car eldoc-mouse-last-symbol-bounds)
+ (cdr eldoc-mouse-last-symbol-bounds)))
+ (overlay-put eldoc-mouse-mouse-overlay 'face
'secondary-selection))))))
(defun eldoc-mouse--hide-posframe ()
"Hide the posframe."
@@ -304,7 +304,7 @@ So it won't call `eglot--highlight-piggyback` with `CB`."
(let* ((fun-list1 (seq-filter (lambda (f)
(and (not (function-equal f
#'eglot-hover-eldoc-function))
(or (not (fboundp
'eglot-highlight-eldoc-function))
- (not (function-equal f
#'eglot-highlight-eldoc-function)))
+ (not (with-no-warnings
(function-equal f #'eglot-highlight-eldoc-function))))
(not (function-equal f
#'eglot-signature-eldoc-function))))
eldoc-documentation-functions))
(fun-list2 (append eldoc-mouse-eldoc-documentation-functions
fun-list1)))
