From mboxrd@z Thu Jan 1 00:00:00 1970 Path: news.gmane.org!not-for-mail From: Dmitri Paduchikh Newsgroups: gmane.emacs.devel Subject: Re: Info: Console Vs GUI difference? Date: Sat, 02 Nov 2013 22:35:44 +0600 Message-ID: <87txfuwylb.fsf@dpaduchikh.invalid> References: NNTP-Posting-Host: plane.gmane.org Mime-Version: 1.0 Content-Type: text/plain X-Trace: ger.gmane.org 1383410166 6505 80.91.229.3 (2 Nov 2013 16:36:06 GMT) X-Complaints-To: usenet@ger.gmane.org NNTP-Posting-Date: Sat, 2 Nov 2013 16:36:06 +0000 (UTC) Cc: "T.V. Raman" To: emacs-devel@gnu.org Original-X-From: emacs-devel-bounces+ged-emacs-devel=m.gmane.org@gnu.org Sat Nov 02 17:36:11 2013 Return-path: Envelope-to: ged-emacs-devel@m.gmane.org Original-Received: from lists.gnu.org ([208.118.235.17]) by plane.gmane.org with esmtp (Exim 4.69) (envelope-from ) id 1VceBG-00055I-K2 for ged-emacs-devel@m.gmane.org; Sat, 02 Nov 2013 17:36:10 +0100 Original-Received: from localhost ([::1]:42629 helo=lists.gnu.org) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1VceBG-0005Vx-6r for ged-emacs-devel@m.gmane.org; Sat, 02 Nov 2013 12:36:10 -0400 Original-Received: from eggs.gnu.org ([2001:4830:134:3::10]:58960) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1VceB5-0005Vc-Mq for emacs-devel@gnu.org; Sat, 02 Nov 2013 12:36:08 -0400 Original-Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1VceAt-0000V0-He for emacs-devel@gnu.org; Sat, 02 Nov 2013 12:35:59 -0400 Original-Received: from mail-lb0-x22e.google.com ([2a00:1450:4010:c04::22e]:49961) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1VceAt-0000Uu-9g for emacs-devel@gnu.org; Sat, 02 Nov 2013 12:35:47 -0400 Original-Received: by mail-lb0-f174.google.com with SMTP id q8so4333151lbi.33 for ; Sat, 02 Nov 2013 09:35:46 -0700 (PDT) DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=gmail.com; s=20120113; h=from:to:cc:subject:references:date:in-reply-to:message-id :user-agent:mime-version:content-type; bh=eevy9kGuMsQgnDwxfjxvcLjD6Tt3QhWInamng5OiEgI=; b=whxm6zh6AQxMrrSbAIzc4bXabRvw6WIRzjOVSpIP70eXAL8PZRpSvBUYsho0hdKPUm ujl9OKGPI2NlJQGWAmZ5YzMkUhm5x/2mEiJueklYdA7WgUCKK7WpnPopZDpfn7SGkPYb gmPFyLXuoSNBDq+YqydTwah+0lu1++dobL8OrPXU0U5+7LqHH9iCU72c5CIL2m5MG3RO PBpUUcAgVCmGIM6Cxi0nkJYm5VcAuTPPbcX49+SAWcLUMEHJkvkO1RrNnJ2aVsQtqsNc uzaYPi+hBdpkt1YBGC8q4OpGIBkO4SK9pDek4S+SFlzpsS6o6l09fln0M4F/0Xx7/UJ8 Wkiw== X-Received: by 10.152.26.72 with SMTP id j8mr5301699lag.19.1383410145945; Sat, 02 Nov 2013 09:35:45 -0700 (PDT) Original-Received: from paduch.telenet.ru ([46.48.49.226]) by mx.google.com with ESMTPSA id ys4sm13749830lab.4.2013.11.02.09.35.44 for (version=TLSv1.2 cipher=ECDHE-RSA-AES128-GCM-SHA256 bits=128/128); Sat, 02 Nov 2013 09:35:45 -0700 (PDT) In-Reply-To: (T. V. Raman's message of "Sat, 2 Nov 2013 08:35:35 -0700") User-Agent: Gnus/5.13 (Gnus v5.13) X-detected-operating-system: by eggs.gnu.org: Error: Malformed IPv6 address (bad octet value). X-Received-From: 2a00:1450:4010:c04::22e X-BeenThere: emacs-devel@gnu.org X-Mailman-Version: 2.1.14 Precedence: list List-Id: "Emacs development discussions." List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: emacs-devel-bounces+ged-emacs-devel=m.gmane.org@gnu.org Original-Sender: emacs-devel-bounces+ged-emacs-devel=m.gmane.org@gnu.org Xref: news.gmane.org gmane.emacs.devel:164870 Archived-At: 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)