Re: Info: Console Vs GUI difference?

[Dmitri Paduchikh]

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)