diff options
| author | Kenichi Handa <handa@m17n.org> | 2008-06-26 07:26:39 +0000 |
|---|---|---|
| committer | Kenichi Handa <handa@m17n.org> | 2008-06-26 07:26:39 +0000 |
| commit | a509862bf359ebe4a30e92016980c0f7634c3456 (patch) | |
| tree | c4f365c7af06319105b6d2de7d7f11686aedc94a /lisp/composite.el | |
| parent | 1fc66bcae50b13f2d62ff6ed4c2952cd93ebced5 (diff) | |
| download | emacs-a509862bf359ebe4a30e92016980c0f7634c3456.tar.gz | |
(terminal-composition-function): Fix previous change.
Diffstat (limited to 'lisp/composite.el')
| -rw-r--r-- | lisp/composite.el | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/lisp/composite.el b/lisp/composite.el index 0d4912be747..ce920deaa02 100644 --- a/lisp/composite.el +++ b/lisp/composite.el @@ -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))))) |