[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

Re: program args to dtk-program



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))))


If you have questions about this archive or had problems using it, please send mail to:

priestdo@cs.vassar.edu No Soliciting!

Emacspeak List Archive | 2010 | 2009 | 2008 | 2007 | 2006 | 2005 | 2004 | 2003 | 2002 | 2001 | 2000 | 1999 | 1998 | Pre 1998

Emacspeak Files | Emacspeak Blog | Search the archive