Re: program args to dtk-program

[Jarek Czekalski <jarekczek@xxxxxxxxxxx>]

Oops, here it goes :)

Index: lisp/dtk-speak.el
===================================================================
--- lisp/dtk-speak.el	(revision 8404)
+++ lisp/dtk-speak.el	(working copy)
@@ -76,6 +76,10 @@
 espeak      For eSpeak
 The default is dtk-exp.")
 
+(defvar dtk-program-args
+  (or (getenv "DTK_PROGRAM_ARGS") "")
+  "Arguments passed to the dtk-program")
+
 (defvar emacspeak-pronounce-pronunciation-table)
 (defvar emacspeak-ssh-tts-server )
 (defvar emacspeak-auditory-icon-function )
@@ -1707,12 +1711,26 @@
                     dtk-speak-server-initialized
                     dtk-startup-hook emacspeak-servers-directory))
   (let ((new-process nil)
-        (process-connection-type  nil))
+        (process-connection-type  nil)
+        (prog-file-name
+          (if (file-name-absolute-p dtk-program)
+            dtk-program
+            (expand-file-name dtk-program emacspeak-servers-directory)
+          ))
+  )
     (setq new-process
-          (start-process
-           "speaker"
-           (and dtk-debug tts-debug-buffer)
-           (expand-file-name dtk-program emacspeak-servers-directory)))
+      (if dtk-program-args
+        (start-process
+          "speaker"
+          (and dtk-debug tts-debug-buffer)
+          prog-file-name
+          dtk-program-args)
+        (start-process
+          "speaker"
+          (and dtk-debug tts-debug-buffer)
+          prog-file-name)
+      )
+    )
     (setq dtk-speak-server-initialized
           (or (eq 'run (process-status new-process ))
               (eq 'open (process-status new-process))))