From: Kenichi Handa <handa@m17n.org>
Date: Wed, 14 May 2008 01:56:07 +0000 (+0000)
Subject: (compose-chars-after): Assume that WINDOW is always non-nil.
X-Git-Tag: emacs-pretest-23.0.90~5545
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=d04effb34e74720a12f14b1881ca66363c335d25;p=emacs.git

(compose-chars-after): Assume that WINDOW is always non-nil.
---

diff --git a/lisp/composite.el b/lisp/composite.el
index b3270327321..3106f726ed5 100644
--- a/lisp/composite.el
+++ b/lisp/composite.el
@@ -341,7 +341,7 @@ This function is the default value of `compose-chars-after-function'."
 	pattern func result)
     (or limit
 	(setq limit (if (stringp object) (length object) (point-max))))
-    (when tail
+    (when (and font-obj tail)
       (save-match-data
 	(save-excursion
 	  (while tail
@@ -495,9 +495,8 @@ This function is the default value of `auto-composition-function' (which see)."
 		  (let* ((ch (aref string from))
 			 (elt (aref table ch))
 			 font-obj newpos)
-		    (when elt
-		      (if window
-			  (setq font-obj (font-at from window string)))
+		    (when (and elt
+			       (setq font-obj (font-at from window string)))
 		      (if (functionp elt)
 			  (setq newpos (funcall elt from to font-obj string))
 			(while (and elt
@@ -517,9 +516,8 @@ This function is the default value of `auto-composition-function' (which see)."
 		  (let* ((ch (char-after from))
 			 (elt (aref table ch))
 			 func pattern font-obj newpos)
-		    (when elt
-		      (if window
-			  (setq font-obj (font-at from window)))
+		    (when (and elt
+			       (setq font-obj (font-at from window)))
 		      (if (functionp elt)
 			  (setq newpos (funcall elt from to font-obj nil))
 			(goto-char from)
@@ -659,7 +657,7 @@ With arg, enable it if and only if arg is positive."
 		(font-obj (and (display-multi-font-p)
 			       (font-at (point) (selected-window))))
 		(pos (point)))
-	    (if (functionp func)
+	    (if (and (functionp func) font-obj)
 		(goto-char (funcall func (point) to font-obj nil)))
 	    (if (<= (point) pos)
 		(forward-char 1)))))