From mboxrd@z Thu Jan  1 00:00:00 1970
Return-Path: <ottalex@narod.ru>
Date: Tue, 14 Oct 2003 17:08:37 +0400 (MSD)
From: "Ott Alex" <ottalex@narod.ru>
Sender: ottalex@narod.ru
Message-Id: <3F8BF555.000004.06751@pantene.yandex.ru>
MIME-Version: 1.0
X-Mailer: Yamail [ http://yandex.ru ]
Errors-To: ottalex@narod.ru
To: sisyphus@altlinux.ru
Subject: Re: [sisyphus] Emacs and UTF-8 again
In-Reply-To: <20031014165323.3eaec803.kirey@mmk.ru>
References: <20031014160717.225f0483.kirey@mmk.ru>
	<20031014165323.3eaec803.kirey@mmk.ru>
X-source-ip: 62.117.74.146
Content-Type: text/plain;
  charset="KOI8-R"
Content-Transfer-Encoding: 8bit
X-BeenThere: sisyphus@altlinux.ru
X-Mailman-Version: 2.1.2
Precedence: list
Reply-To: ottalex@narod.ru, sisyphus@altlinux.ru
List-Id: <sisyphus.altlinux.ru>
List-Unsubscribe: <http://altlinux.ru/mailman/listinfo/sisyphus>,
	<mailto:sisyphus-request@altlinux.ru?subject=unsubscribe>
List-Archive: <http://lrn.ru/pipermail/sisyphus>
List-Post: <mailto:sisyphus@altlinux.ru>
List-Help: <mailto:sisyphus-request@altlinux.ru?subject=help>
List-Subscribe: <http://altlinux.ru/mailman/listinfo/sisyphus>,
	<mailto:sisyphus-request@altlinux.ru?subject=subscribe>
X-List-Received-Date: Tue, 14 Oct 2003 13:08:50 -0000
Archived-At: <http://lore.altlinux.org/sisyphus/3F8BF555.000004.06751@pantene.yandex.ru/>
List-Archive: <http://lore.altlinux.org/sisyphus/>

>On Tue, 14 Oct 2003 16:26:01 +0400 (MSD)
>> оно действительно пока не является полноценным unicode
>Как я писал раньше - это ожидается в 22.х версии?
Да - обещают в 22-й версии

>Вот тут еще один вопрос цепляется...
>Я пробовал печать из Emacs через ghostscript.
>Спотыкается  печать на русском тексте:
>	font for characters not found, continue anyway? (y or n)
я использую фонты из intlfonts + ps-mule

работает вот с такой настройкой

(load-library "ps-mule")
(setq bdf-directory-list '("/usr/X11R6/lib/X11/fonts/emacs/bdf"))
(custom-set-variables
 '(ps-mule-font-info-database-default ps-mule-font-info-database-bdf)
 '(ps-multibyte-buffer (quote bdf-font-except-latin)))

только есть одно но - если текст в utf-8, то перед печатью надо выполнить вот такую вот процедуру

(defun unicode-cyrillic-to-8859-5 ()
  (interactive)
  (save-excursion
    (goto-char (point-min))
    (let ((re (format "[%c-%c]+"
		      (decode-char 'ucs #x0400) (decode-char 'ucs #x04ff)))
	  (case-fold-search nil)
	  pos)
      (while (re-search-forward re nil 'move)
	(setq pos (match-beginning 0))
	(encode-coding-region pos (point) 'iso-8859-5)
	(decode-coding-region pos (point) 'iso-8859-5)))))

а потом нажать undo