; Fix documentation of recent change in mouse.el
* lisp/mouse.el (mouse-event-areas-with-no-buffer-positions): Doc fix. (mouse-posn-property): Add commentary.
This commit is contained in:
parent
6e28c2019e
commit
82e44e8675
1 changed files with 4 additions and 1 deletions
|
@ -1664,7 +1664,7 @@ is dragged over to."
|
|||
"Event areas not containing buffer positions.
|
||||
Example: mouse clicks in the fringe come with a position in
|
||||
(nth 5). This is useful but is not where we clicked, so
|
||||
don't look up that position's properties!. Likewise for
|
||||
don't look up that position's properties! Likewise for
|
||||
the other event areas.")
|
||||
|
||||
(defun mouse-posn-property (pos property)
|
||||
|
@ -1690,6 +1690,9 @@ because such events do not contain buffer positions."
|
|||
(get-text-property (cdr str) property (car str)))
|
||||
(and pt
|
||||
(not (memq (posn-area pos)
|
||||
;; Don't return position of these mouse
|
||||
;; events because they don't describe the
|
||||
;; position of the click.
|
||||
mouse-event-areas-with-no-buffer-positions))
|
||||
(get-char-property pt property w))))
|
||||
(get-char-property pos property)))
|
||||
|
|
Loading…
Add table
Reference in a new issue