From: Stefan Monnier <monnier@iro.umontreal.ca>
Date: Mon, 19 Nov 2018 14:12:15 +0000 (-0500)
Subject: * mouse.el (mouse-posn-property): Add comment
X-Git-Tag: emacs-27.0.90~4145
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=ca0f86e60aeceacef7b7ed9fc108a00db314b5d8;p=emacs.git

* mouse.el (mouse-posn-property): Add comment
---

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