Репозиторий Sisyphus
Последнее обновление: 1 октября 2023 | Пакетов: 18631 | Посещений: 37047992
en ru br
Репозитории 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
www.altlinux.org/Changes

Другие репозитории
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)))
 
дизайн и разработка: Vladimir Lettiev aka crux © 2004-2005, Andrew Avramenko aka liks © 2007-2008
текущий майнтейнер: Michael Shigorin