procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

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

Browse source 
* lisp/simple.el (delete-forward-char): Fix recognition of static
compositions.  (Bug#63837)
This commit is contained in:
Eli Zaretskii 2023-06-02 15:42:42 +03:00
parent 2f94f6de9d
commit dc7acb1aaf
1 changed files with 2 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
lisp/simple.el
View file

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