[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
Re: How to get the connected forms of Syriac Letters?
From: |
Fabian Rieger |
Subject: |
Re: How to get the connected forms of Syriac Letters? |
Date: |
Tue, 16 Dec 2014 12:00:56 +0100 |
User-agent: |
Mozilla/5.0 (X11; Linux x86_64; rv:31.0) Gecko/20100101 Icedove/31.3.0 |
Benjamin Riefenstahl wrote
> I use something like this in my .emacs with Emacs 24.4.1 on Debian
> Jessie:
>
> ;; Tell Emacs to actually use shaping for Syriac (via m17n).
> ;; \u0700-\u074F: Syriac
> ;; \u0640: TATWEEL
> ;; \u200D: ZWJ
> (set-char-table-range
> composition-function-table
> '(?\u0700 . ?\u074F)
> (list ["[\u0700-\u074F\u0640\u200D]+" 0 font-shape-gstring]))
>
> (defun benny-setup-fonts (frame)
> (set-fontset-font t (?\u0700 . ?\u074F) "Serto Mardin 16" frame))
>
> ;; Run font setup whenever a new frame is constructed.
> (add-to-list 'after-make-frame-functions 'benny-setup-fonts)
>
> ;; Run font setup now if we already have a frame.
> (let ((frame (selected-frame)))
> (if frame (benny-setup-fonts frame)))
Hi Benny,
that solved the problem. I just had to replace
(set-fontset-font t (?\u0700 . ?\u074F) ...
with
(set-fontset-font t (cons (decode-char 'ucs ?\x0700)
(decode-char 'ucs ?\x074F) ...
(The reason for this maybe I'll try to understand next week ...)
and now Syriac really looks fine.
Thanks for your help.
Fabian
Re: How to get the connected forms of Syriac Letters?,
Fabian Rieger <=
Re: How to get the connected forms of Syriac Letters?, Stefan Monnier, 2014/12/17