unofficial mirror of emacs-devel@gnu.org 
 help / color / mirror / code / Atom feed
From: "T.V. Raman" <tv.raman.tv@gmail.com>
To: Stefan Monnier <monnier@iro.umontreal.ca>, emacs-devel@gnu.org
Subject: Info: Console Vs GUI difference?
Date: Thu, 31 Oct 2013 15:14:30 -0700	[thread overview]
Message-ID: <CADkJX2iaOTMYX+YXsGbeJZDH2TvMeAOr6vBnunzdu5DdpwYewA@mail.gmail.com> (raw)
In-Reply-To: <jwvtxfxs4k1.fsf-monnier+emacs@gnu.org>

Hi Stefan:

At this point for the error/signal/user-error feedback -- i
believe command-error-funciton should meet my needs except for
backward compatibility -- some help in knowing how to use it
correctly would help.

Re your suggestion re calling backtrace within the advice, tried
that -- and though I'm hearing the spurious feedback under X  in
Info -- but not at the terminal -- the backtrace is not
invoked. This leads me to suspect a subtle bug in advice itself
-- Here are the advice fragments I have for error, user-error and
signal.

(defcustom emacspeak-speak-errors t
  "Specifies if error messages are cued."
  :type 'boolean
  :group 'emacspeak-speak)

(defadvice error (before emacspeak pre act comp)
  "Speak the error message.
 Also produces an auditory icon if possible."
  (when emacspeak-speak-errors
    (let ((emacspeak-speak-signals nil)
          (emacspeak-speak-errors nil)
          (dtk-stop-immediately  nil))
      (emacspeak-auditory-icon 'warn-user)
      (tts-with-punctuations 'all
                             (dtk-speak
                              (apply #'format (ad-get-arg 0)(ad-get-args 1))))))
  t)

(defadvice user-error (before emacspeak pre act comp)
  "Speak the error message."
  (when emacspeak-speak-errors
    (let ((emacspeak-speak-signals nil)
          (emacspeak-speak-errors nil)
          (dtk-stop-immediately  nil))
      (tts-with-punctuations 'all
                             (dtk-speak
                              (apply #'format (ad-get-arg 0)(ad-get-args 1))))))
  t)



;;;###autoload
(defcustom emacspeak-speak-signals t
  "Specifies if signalled   messages are cued."
  :type 'boolean
  :group 'emacspeak-speak)

(defadvice signal (before emacspeak pre act compile)
  "Speak the signalled  message."
  (when emacspeak-speak-signals
    (let ((msg (first (ad-get-arg 1))))
      (when (and msg (> (length msg) 0))
        (tts-with-punctuations 'all (dtk-speak msg))))))

-- 

-- 


On 10/31/13, Stefan Monnier <monnier@iro.umontreal.ca> wrote:
>> And speaking of aditional emacs hooks that would help emacspeak:
>
>> 1. A hook that I can use to catch read-only    errors for  typing
>> commands  -- a hook here would be a clean solution because
>> independent of context, I mostly want to speak the same thing
>
>> 2. Less need to advice error/ and hopefully never to advice signal --
>> This one is harder because many emacs packages use signal and
>> error to signal conditions that should be communicated to the
>> average user.
>
> It seems from where I stand that both should be covered by
> command-error-function.  So, maybe you should explain in more detail
> which part of command-error-function doesn't suit your need.
>
>
>         Stefan
>



  reply	other threads:[~2013-10-31 22:14 UTC|newest]

Thread overview: 34+ messages / expand[flat|nested]  mbox.gz  Atom feed  top
2013-10-30  9:27 Info: Console Vs GUI difference? T.V. Raman
2013-10-30 12:35 ` Stefan Monnier
2013-10-30 21:46   ` T.V. Raman
2013-10-30 23:11     ` Stefan Monnier
2013-10-31 16:21       ` T.V. Raman
2013-10-31 18:02         ` Stefan Monnier
2013-10-31 22:14           ` T.V. Raman [this message]
2013-11-01  1:32             ` Stefan Monnier
2013-11-01  2:10               ` T.V. Raman
2013-11-01 12:23                 ` Stefan Monnier
2013-11-01 16:55                   ` T.V. Raman
2013-11-01 18:34                     ` Eli Zaretskii
2013-11-01 20:24                       ` T.V. Raman
2013-11-01 20:36                         ` Eli Zaretskii
2013-11-02  0:17                           ` T.V. Raman
2013-11-02  2:04                             ` Stefan Monnier
2013-11-03 15:51                               ` T.V. Raman
2013-11-03 19:02                                 ` Jarek Czekalski
2013-11-03 19:05                                   ` T.V. Raman
2013-11-03 21:19                                     ` Stefan Monnier
2013-11-04  3:10                                     ` Dmitri Paduchikh
2013-11-04 16:38                                       ` T.V. Raman
2013-11-02  7:04                             ` Eli Zaretskii
2013-11-02  1:39                           ` T.V. Raman
2013-11-02  8:06                             ` Jarek Czekalski
2013-11-02 15:35           ` T.V. Raman
2013-11-02 15:56             ` Jarek Czekalski
2013-11-02 16:35             ` Dmitri Paduchikh
2013-11-02 20:46               ` T.V. Raman
2013-10-30 13:46 ` Jarek Czekalski
2013-10-30 21:45   ` T.V. Raman
2013-10-31 20:23   ` Richard Stallman
2013-11-01  7:37     ` Eli Zaretskii
2013-11-01 17:21       ` T.V. Raman

Reply instructions:

You may reply publicly to this message via plain-text email
using any one of the following methods:

* Save the following mbox file, import it into your mail client,
  and reply-to-all from there: mbox

  Avoid top-posting and favor interleaved quoting:
  https://en.wikipedia.org/wiki/Posting_style#Interleaved_style

  List information: https://www.gnu.org/software/emacs/

* Reply using the --to, --cc, and --in-reply-to
  switches of git-send-email(1):

  git send-email \
    --in-reply-to=CADkJX2iaOTMYX+YXsGbeJZDH2TvMeAOr6vBnunzdu5DdpwYewA@mail.gmail.com \
    --to=tv.raman.tv@gmail.com \
    --cc=emacs-devel@gnu.org \
    --cc=monnier@iro.umontreal.ca \
    /path/to/YOUR_REPLY

  https://kernel.org/pub/software/scm/git/docs/git-send-email.html

* If your mail client supports setting the In-Reply-To header
  via mailto: links, try the mailto: link
Be sure your reply has a Subject: header at the top and a blank line before the message body.
Code repositories for project(s) associated with this public inbox

	https://git.savannah.gnu.org/cgit/emacs.git

This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for read-only IMAP folder(s) and NNTP newsgroup(s).