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

diff --git a/lisp/mouse.el b/lisp/mouse.el
index ca61e36440758a4da19add25862b1d191696abaf..e25b664a93f34a075c2ac5f916cc51ff97588797 100644 (file)
--- 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