Avoid signaling args-out-of-range in mouse.el
* lisp/mouse.el (mouse-posn-property): Avoid signaling args-out-of-range errors when mode-line format uses min-width 'display' property. (Bug#59452)
This commit is contained in:
parent
43e616aca5
commit
5496f45437
1 changed files with 1 additions and 0 deletions
|
@ -1579,6 +1579,7 @@ its value is returned."
|
|||
;; `category' property at PT while doing the (get-char-property
|
||||
;; pt property w)!
|
||||
(or (and str
|
||||
(< (cdr str) (length (car str)))
|
||||
(get-text-property (cdr str) property (car str)))
|
||||
;; Mouse clicks in the fringe come with a position in
|
||||
;; (nth 5). This is useful but is not exactly where we clicked, so
|
||||
|
|
Loading…
Add table
Reference in a new issue