* lisp/simple.el (delete-forward-char): Fix bug #56237.

diff --git a/lisp/simple.el b/lisp/simple.el
index 2b11a6362fd731dc4ab15bb83a354965b94a2896..a750eed72b8622d9d655912521ea224d04573eb7 100644 (file)
--- a/lisp/simple.el
+++ b/lisp/simple.el
@@ -1508,7 +1508,10 @@ the actual saved text might be different from what was killed."
              ;; 'find-composition' will return (FROM TO ....) or nil.
              (setq cmp (find-composition pos))
              (if cmp
-                 (setq pos (cadr cmp))
+                 ;; TO can be at POS, in which case we want to make
+                 ;; sure we advance at least by 1 character.
+                 (let ((cmp-end (cadr cmp)))
+                   (setq pos (max (1+ pos) cmp-end)))
                (setq pos (1+ pos)))
              (setq n (1- n)))
            (delete-char (- pos start) killflag)))