Re: program args to dtk-program

["T. V. Raman" <tv.raman.tv@xxxxxxxxxxx>]

I've checked in a slightly fixed-up version of your patch -- note
the following:

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

-- 
Best Regards,
--raman

-----------------------------------------------------------------------------
To unsubscribe from the emacspeak list or change your address on the
emacspeak list send mail to "emacspeak-request@xxxxxxxxxxx" with a
subject of "unsubscribe" or "help".