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

(terminal-composition-function): Fix previous change.

Browse Source
This commit is contained in:
Kenichi Handa 2008-06-26 07:26:39 +00:00
parent 1fc66bcae5
commit a509862bf3
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lisp/composite.el
View File

@ -452,7 +452,8 @@ character. All non-spacing characters has this function in
(= (aref char-width-table (aref string pos)) 0))
(setq pos (1+ pos)))
(if (and (> from 0)
(terminal-composition-base-character-p (aref string (1- from))))
(terminal-composition-base-character-p
(aref string (1- from))))
(compose-string string (1- from) pos)
(compose-string string from pos
(concat " " (buffer-substring from pos)))))
@ -460,7 +461,7 @@ character. All non-spacing characters has this function in
(= (aref char-width-table (char-after pos)) 0))
(setq pos (1+ pos)))
(if (and (> from (point-min))
(terminal-composition-base-character-p (char-after pos)))
(terminal-composition-base-character-p (char-after (1- from))))
(compose-region (1- from) pos)
(compose-region from pos
(concat " " (buffer-substring from pos)))))