(terminal-composition-modification): New function.

(terminal-composition-function): Create composition with the above
modification function.

1 files changed, 10 insertions, 5 deletions

diff --git a/lisp/composite.el b/lisp/composite.el
index 30010f0f56d..b6626ecc8dd 100644
--- a/lisp/composite.el
+++ b/lisp/composite.el
@@ -427,6 +427,11 @@ See also the command `toggle-auto-composition'.")
 
 (put 'save-buffer-state 'lisp-indent-function 1)
 
+;; This function is called when a composition created by
+;; terminal-composition-function is partially modified.
+(defun terminal-composition-modification (from to)
+  (terminal-composition-function from))
+
 (defun terminal-composition-function (pos &optional string)
   "General composition function used on terminal.
 Non-spacing characters are composed with the preceding spacing
@@ -441,13 +446,13 @@ 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))
-	       (= (aref (symbol-name (get-char-code-property (char-after from)
-							     'general-category))
-			0)
-		  ?L))
+	       (= (aref (symbol-name (get-char-code-property
+				      (char-after from)
+				      'general-category)) 0) ?L))
 	  (compose-region from pos (buffer-substring from pos))
 	(compose-region (1+ from) pos
-			(concat " " (buffer-substring (1+ from) pos))))
+			(concat " " (buffer-substring (1+ from) pos))
+			'terminal-composition-modification))
       pos)))
 
 (defvar terminal-composition-function-table