Репозитории ALT
S: | 2.5-alt0.4 |
5.1: | 1.96-alt7 |
4.1: | 1.96-alt5.M41.1 |
4.0: | 1.96-alt2.6 |
3.0: | |
+backports: | 1.96-alt0.M30.1 |
Другие репозитории
Upstream: | 1.96-beta |
Группа :: Звук
Пакет: festival
Главная Изменения Спек Патчи Sources Загрузить Gear Bugs and FR Repocop
Патч: 14-fix-emacs-utf8.diff
Скачать
Скачать
Patch from Javier M Mora for fixing Emacs functionality
if character set of system is UTF-8 (Closes: #572779)
--- a/lib/festival.el
+++ b/lib/festival.el
@@ -123,15 +123,16 @@
(interactive )
(let ((process-connection-type t))
(if (and festival-process
- (eq (process-status festival-process) 'run))
- 't
+ (eq (process-status festival-process) 'run))
+ 't
;;(festival-kill-festival t)
(message "Starting new synthesizer process...")
(sit-for 0)
(setq festival-process
- (start-process "festival" (get-buffer-create "*festival*")
- festival-program-name)))
- ))
+ (start-process "festival" (get-buffer-create "*festival*")
+ festival-program-name))
+ (set-process-coding-system festival-process 'iso-latin-1 'iso-latin-1)
+ festival-process) ))
(defun festival-kill-process ()
"Kill festival sub-process"
@@ -152,7 +153,8 @@
as a file in /tmp and then tells festival to say that file. The
major mode is *not* passed as text mode name to Festival."
(interactive "r")
- (write-region reg-start reg-end festival-tmp-file)
+ (let ((coding-system-for-write 'iso-latin-1))
+ (write-region reg-start reg-end festival-tmp-file))
(festival-send-command (list 'tts festival-tmp-file nil)))
(defun festival-say-buffer ()
@@ -160,7 +162,8 @@
as a file in /tmp and then tells festival to say that file. The
major-mode is passed as a text mode to Festival."
(interactive)
- (write-region (point-min) (point-max) festival-tmp-file)
+ (let ((coding-system-for-write 'iso-latin-1))
+ (write-region (point-min) (point-max) festival-tmp-file))
;; Because there may by sgml-like sub-files mentioned
;; ensure festival tracks the buffer's default-directory
(festival-send-command (list 'cd (expand-file-name default-directory)))