procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

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

Browse source
This commit is contained in:
Stefan Monnier 2018-11-19 09:12:15 -05:00
parent 450beba338
commit ca0f86e60a
1 changed files with 4 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
lisp/mouse.el
View file

@ -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