From: Eli Zaretskii <eliz@gnu.org>
Date: Wed, 23 Nov 2022 15:16:32 +0000 (+0200)
Subject: Avoid signaling args-out-of-range in mouse.el
X-Git-Tag: emacs-29.0.90~1572
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=5496f454372a2e4fec651423c41b5ee2a06e0add;p=emacs.git

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

diff --git a/lisp/mouse.el b/lisp/mouse.el
index e38a4f8a71a..f72ab4fc642 100644
--- a/lisp/mouse.el
+++ b/lisp/mouse.el
@@ -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