emacs-devel
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

Re: Cairo font selection for Ethiopic


From: mituharu
Subject: Re: Cairo font selection for Ethiopic
Date: Sat, 22 Jun 2019 18:32:46 +0900
User-agent: SquirrelMail/1.4.22-5.el6

>> Thanks.  Please get the latest master and show the results of the
>> following on both builds:
>>
>>   1. $ emacs -Q -D &
>>   2. (setq font-log nil) C-j
>>   3. (insert 4768) C-j
>>   4. M-x font-show-log RET
>
> Attached.

Thanks.  Could you try the patch below?

                                     YAMAMOTO Mitsuharu
                                address@hidden

diff --git a/src/ftcrfont.c b/src/ftcrfont.c
index 0cc40b4c944..f15e79334ac 100644
--- a/src/ftcrfont.c
+++ b/src/ftcrfont.c
@@ -25,6 +25,7 @@ along with GNU Emacs.  If not, see
<https://www.gnu.org/licenses/>.  */
 #include "lisp.h"
 #include "xterm.h"
 #include "blockinput.h"
+#include "charset.h"
 #include "composite.h"
 #include "font.h"
 #include "ftfont.h"
@@ -308,6 +309,17 @@ ftcrfont_has_char (Lisp_Object font, int c)
   if (FONT_ENTITY_P (font))
     return ftfont_has_char (font, c);

+  struct charset *cs = NULL;
+
+  if (EQ (AREF (font, FONT_ADSTYLE_INDEX), Qja)
+      && charset_jisx0208 >= 0)
+    cs = CHARSET_FROM_ID (charset_jisx0208);
+  else if (EQ (AREF (font, FONT_ADSTYLE_INDEX), Qko)
+      && charset_ksc5601 >= 0)
+    cs = CHARSET_FROM_ID (charset_ksc5601);
+  if (cs)
+    return (ENCODE_CHAR (cs, c) != CHARSET_INVALID_CODE (cs));
+
   return -1;
 }






reply via email to

[Prev in Thread] Current Thread [Next in Thread]