Info: Console Vs GUI difference?

[T.V. Raman]

Has the same problem as the code I showed -- this outputs  a set
of messages, including "back to top level"  for every case, -- so
if you install the code, (as with my previous example code), you
hear "back to top level"  even when you hit C-g.

-- 
Best Regards,
--raman


On 11/2/13, Dmitri Paduchikh <address@hidden> wrote:
> Raman, how about this code?
>
> (defun emacspeak-error-handler (err context func)
>   (let ((err-msg (concat context (error-message-string err)))
>         (emacspeak-speak-messages nil)
>         (dtk-stop-immediately nil))
>     (dtk-stop)
>     (message "%s"
>              (concat err-msg
>                      (if func (concat " (" (symbol-name func) ")") "")))
>     (ding)
>     (dtk-speak err-msg)))
>
> Also note that add-function is not available in Emacs 24.3.
>
> --
> With best regards
> Dmitri Paduchikh
>
> T.V. Raman wrote:
>
>> Hi Stefan,
>
>> My last attempt at using command-error-function -- appended below
>> -- only produces a "back to top level"  message in all instances.
>
>> Once I can get this working, I'll make the advice on signal
>> conditional on older emacsuns --
>> (defun emacspeak-error-handler  (data  context  calling-function)
>>   "Emacspeak custom error handling function."
>>                (dtk-speak
>>      (format "%s %s"
>>              (or context "")
>>              (or
>>               (get (car data) 'error-message)
>>               ""))))
>
>> (declaim (special command-error-function))
>>                                             (add-function :before
>> command-error-function 'emacspeak-error-handler)
>
>