Github/emacs
2
0
Fork 1
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-16 17:24:23 +00:00
Code Issues Projects Releases Packages Wiki Activity

* 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