From 5ef807becbfa3d2f9da0b6a88ecf113e2d4bedb2 Mon Sep 17 00:00:00 2001
From: Kenichi Handa <handa@m17n.org>
Date: Tue, 20 Jan 2004 08:27:17 +0000
Subject: [PATCH] (diacritic-composition-function): Fix for the case that POS
 is at the head.  Allow combining with more characters.

---
 lisp/language/european.el | 72 +++++++++++++++++++--------------------
 1 file changed, 35 insertions(+), 37 deletions(-)

diff --git a/lisp/language/european.el b/lisp/language/european.el
index e56c5f49df4..2035d479487 100644
--- a/lisp/language/european.el
+++ b/lisp/language/european.el
@@ -686,43 +686,41 @@ The return value is the end position of composed characters,
 or nil if no characters are composed."
   (setq pos (1- pos))
   (if string
-      (let ((ch (aref string pos))
-	    start end components ch composition)
-	(when (and (>= pos 0)
-		   ;; Previous character is latin.
-		   (aref (char-category-set ch) ?l)
-		   (/= ch 32))
-	  (setq start pos
-		end (length string)
-		components (list ch)
-		pos (1+ pos))
-	  (while (and
-		  (< pos end)
-		  (setq ch (aref string pos)
-			composition
-			(get-char-code-property ch 'diacritic-composition)))
-	    (setq components (cons ch (cons composition components))
-		  pos (1+ pos)))
-	  (compose-string string start pos (nreverse components))
-	  pos))
-    (let ((ch (char-after pos))
-	  start end components composition)
-      (when (and (>= pos (point-min))
-		 (aref (char-category-set ch) ?l)
-		 (/= ch 32))
-	(setq start pos
-	      end (point-max)
-	      components (list ch)
-	      pos (1+ pos))
-	(while (and
-		(< pos end)
-		(setq ch (char-after pos)
-		      composition
-		      (get-char-code-property ch 'diacritic-composition)))
-	  (setq components (cons ch (cons composition components))
-		pos (1+ pos)))
-	(compose-region start pos (nreverse components))
-	pos))))
+      (if (>= pos 0)
+	  (let ((ch (aref string pos))
+		start end components ch composition)
+	    (when (and (>= ch 32) (or (< ch 127) (>= ch 160)))
+	      (setq start pos
+		    end (length string)
+		    components (list ch)
+		    pos (1+ pos))
+	      (while (and
+		      (< pos end)
+		      (setq ch (aref string pos)
+			    composition
+			    (get-char-code-property ch
+						    'diacritic-composition)))
+		(setq components (cons ch (cons composition components))
+		      pos (1+ pos)))
+	      (compose-string string start pos (nreverse components))
+	      pos)))
+    (if (>= pos (point-min))
+	(let ((ch (char-after pos))
+	      start end components composition)
+	  (when (and (>= ch 32) (or (< ch 127) (>= ch 160)))
+	    (setq start pos
+		  end (point-max)
+		  components (list ch)
+		  pos (1+ pos))
+	    (while (and
+		    (< pos end)
+		    (setq ch (char-after pos)
+			  composition
+			  (get-char-code-property ch 'diacritic-composition)))
+	      (setq components (cons ch (cons composition components))
+		    pos (1+ pos)))
+	    (compose-region start pos (nreverse components))
+	    pos)))))
 
 (provide 'european)
 
-- 
2.39.2