From: Eli Zaretskii <eliz@gnu.org>
Date: Fri, 2 Jun 2023 12:42:42 +0000 (+0300)
Subject: Avoid errors in 'delete-forward-char' deleting static compositions
X-Git-Tag: emacs-29.0.92~64
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=dc7acb1aafe9b0b84481ac51a5bd5125d263537e;p=emacs.git

Avoid errors in 'delete-forward-char' deleting static compositions

* lisp/simple.el (delete-forward-char): Fix recognition of static
compositions.  (Bug#63837)
---

diff --git a/lisp/simple.el b/lisp/simple.el
index 3f88fcb8d03..9df5958a168 100644
--- a/lisp/simple.el
+++ b/lisp/simple.el
@@ -1520,7 +1520,8 @@ the actual saved text might be different from what was killed."
                        (let ((from (car cmp))
                              (to (cadr cmp)))
                          (cond
-                          ((= (length cmp) 2) ; static composition
+                          ((and (= (length cmp) 3) ; static composition
+                                (booleanp (nth 2 cmp)))
                            to)
                           ;; TO can be at POS, in which case we want
                           ;; to make sure we advance at least by 1