From ca0f86e60aeceacef7b7ed9fc108a00db314b5d8 Mon Sep 17 00:00:00 2001 From: Stefan Monnier Date: Mon, 19 Nov 2018 09:12:15 -0500 Subject: [PATCH] * mouse.el (mouse-posn-property): Add comment --- lisp/mouse.el | 4 ++++ 1 file changed, 4 insertions(+) diff --git a/lisp/mouse.el b/lisp/mouse.el index ca61e364407..e25b664a93f 100644 --- a/lisp/mouse.el +++ b/lisp/mouse.el @@ -1114,6 +1114,10 @@ its value is returned." (if (consp pos) (let ((w (posn-window pos)) (pt (posn-point pos)) (str (posn-string pos))) + ;; FIXME: When STR has a `category' property and there's another + ;; `category' property at PT, we should probably disregard the + ;; `category' property at PT while doing the (get-char-property + ;; pt property w)! (or (and str (get-text-property (cdr str) property (car str))) ;; Mouse clicks in the fringe come with a position in -- 2.39.5