diff options
| -rw-r--r-- | lisp/mouse.el | 4 |
1 files changed, 4 insertions, 0 deletions
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." | |||
| 1114 | (if (consp pos) | 1114 | (if (consp pos) |
| 1115 | (let ((w (posn-window pos)) (pt (posn-point pos)) | 1115 | (let ((w (posn-window pos)) (pt (posn-point pos)) |
| 1116 | (str (posn-string pos))) | 1116 | (str (posn-string pos))) |
| 1117 | ;; FIXME: When STR has a `category' property and there's another | ||
| 1118 | ;; `category' property at PT, we should probably disregard the | ||
| 1119 | ;; `category' property at PT while doing the (get-char-property | ||
| 1120 | ;; pt property w)! | ||
| 1117 | (or (and str | 1121 | (or (and str |
| 1118 | (get-text-property (cdr str) property (car str))) | 1122 | (get-text-property (cdr str) property (car str))) |
| 1119 | ;; Mouse clicks in the fringe come with a position in | 1123 | ;; Mouse clicks in the fringe come with a position in |