mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-08 15:35:02 +00:00
Code Issues Releases Activity

Fix string-glyph-split infloop

Browse Source 
* lisp/emacs-lisp/subr-x.el (string-glyph-split): Fix infloop when
applied to (string-glyph-split "✈️🌍") (bug#52067).
This commit is contained in:
Lars Ingebrigtsen 2021-11-24 08:27:22 +01:00
parent d63fc69b19
commit 3a2eee6f74
1 changed files with 6 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
lisp/emacs-lisp/subr-x.el
View File

@ -456,7 +456,12 @@ This takes into account combining characters and grapheme clusters."
(start 0)
comp)
(while (< start (length string))
(if (setq comp (find-composition-internal start nil string nil))
(if (setq comp (find-composition-internal
start
;; Don't search backward in the string for the
;; start of the composition.
(min (length string) (1+ start))
string nil))
(progn
(push (substring string (car comp) (cadr comp)) result)
(setq start (cadr comp)))