[sisyphus] Emacs and UTF-8 again

[Ott Alex]

>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