Re: TUTORIAL.bg and windows-1251

[Ognyan Kulev]

Kenichi Handa wrote:
> (let ((lang-env current-language-environment)
>       (mirror-R (string (decode-char 'ucs #x42f)))
>       (hex-print #'(lambda (head str) 
> 		     (insert head)
>                      (dotimes (i (length str))
>                        (let ((ch (aref str i)))
>                          (if (< ch 128)
>                              (insert ch)
>                            (insert (format "\\x%X" (aref str i))))))
>                      (insert "\n")))
>       encoded decoded)
>   (funcall hex-print "original:" mirror-R)
>   (set-language-environment "Bulgarian")
>   (setq encoded (encode-coding-string mirror-R 'ctext-with-extensions))
>   (funcall hex-print "encoded: " encoded)
>   (setq decoded (decode-coding-string encoded 'ctext-with-extensions))
>   (funcall hex-print "decoded: " decoded)
>   (set-language-environment "English")
>   (setq encoded (encode-coding-string mirror-R 'ctext-with-extensions))
>   (funcall hex-print "encoded: " encoded)
>   (setq decoded (decode-coding-string encoded 'ctext-with-extensions))
>   (funcall hex-print "decoded: " decoded)
>   (set-language-environment lang-env))
>
> The result I got is this.
>
> original:\x5144F
> encoded: %/1\x80\x92microsoft-cp1251\xDF
> decoded: \x5144F
> encoded: %G\xD0\xAF%@
> decoded: \x5144F
>
> It seems that the coding system ctext-with-extensions is
> working as expected here.

I get the same here.

> By the way, for rendering, I installed the code I proposed a
> while ago which forces *-microsoft-cp1251 fonts to be used
> for Cyrillic letters of the charset mule-unicode-0100-24ff
> in Bulgarian environment on 2003-12-29.  Have you noticed
> it?

Wait!  My report is exactly about that change not working.  What you 
sent[1] in pure elisp works as expected though.

[1] http://mail.gnu.org/archive/html/emacs-devel/2003-11/msg00452.html

When in current (2004-01-07) emacs I eval the following elisp (written 
by you), microsoft-cp1251 font is used for cyrillic characters.  But 
just setting language environment to bulgarian doesn't work and 
iso10646-1 is used.

(defun use-microsoft-cp1251-font ()
  (let ((fontspec '(nil . "microsoft-cp1251")))
    (map-char-table
     #'(lambda (k v)
         (if (and v (> k 128))
             (set-fontset-font "fontset-default" k fontspec)))
     (get 'encode-windows-1251 'translation-table))))

Regards
--
Ognyan Kulev <address@hidden,fsa-bg.org,jabber.org}>
7D9F 66E6 68B7 A62B 0FCF  EB04 80BF 3A8C A252 9782