(find-previous-defined-code-point): Fix problem with `=ucs'.
authorMORIOKA Tomohiko <tomo@kanji.zinbun.kyoto-u.ac.jp>
Mon, 5 Apr 2010 23:49:25 +0000 (08:49 +0900)
committerMORIOKA Tomohiko <tomo@kanji.zinbun.kyoto-u.ac.jp>
Mon, 5 Apr 2010 23:49:25 +0000 (08:49 +0900)
cwiki-common.el

index 2fb5094..e5e937c 100644 (file)
       (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))