From: MORIOKA Tomohiko <tomo@kanji.zinbun.kyoto-u.ac.jp>
Date: Mon, 5 Apr 2010 23:49:25 +0000 (+0900)
Subject: (find-previous-defined-code-point): Fix problem with `=ucs'.
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=ba1c09e98a51f1376e6e6a1c7805f80e3ca1574c;p=chise%2Fest.git

(find-previous-defined-code-point): Fix problem with `=ucs'.
---

diff --git a/cwiki-common.el b/cwiki-common.el
index 2fb5094..e5e937c 100644
--- a/cwiki-common.el
+++ b/cwiki-common.el
@@ -188,7 +188,9 @@
       (setq ccs '=jis-x0213-1@2004)))
     (while (and i
 		(>= i 0)
-		(null (setq char (decode-char ccs i 'defined-only))))
+		(null (setq char (decode-char ccs i
+					      (unless (eq ccs '=ucs)
+						'defined-only)))))
       (setq i (get-previous-code-point ccs i)))
     char))