help-gnu-emacs
[Top][All Lists]
Advanced

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

Re: How to get the connected forms of Syriac letters?


From: Benjamin Riefenstahl
Subject: Re: How to get the connected forms of Syriac letters?
Date: Mon, 15 Dec 2014 23:32:53 +0100
User-agent: Gnus/5.13 (Gnus v5.13) Emacs/24.4 (gnu/linux)

Hi Fabian,

Fabian Rieger writes:
> Is there a method to make Emacs show the connected (initial, medial,
> final) forms of Syriac letters?

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)))

benny


reply via email to

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