From mboxrd@z Thu Jan 1 00:00:00 1970 Path: news.gmane.org!not-for-mail From: Emanuel Berg Newsgroups: gmane.emacs.help Subject: Re: factor out error message functions, access function stack to know location Date: Tue, 27 Oct 2015 02:50:51 +0100 Message-ID: <87d1w1jczo.fsf@debian.uxu> References: <87io5tjguq.fsf@debian.uxu> NNTP-Posting-Host: plane.gmane.org Mime-Version: 1.0 Content-Type: text/plain X-Trace: ger.gmane.org 1445910125 20529 80.91.229.3 (27 Oct 2015 01:42:05 GMT) X-Complaints-To: usenet@ger.gmane.org NNTP-Posting-Date: Tue, 27 Oct 2015 01:42:05 +0000 (UTC) To: help-gnu-emacs@gnu.org Original-X-From: help-gnu-emacs-bounces+geh-help-gnu-emacs=m.gmane.org@gnu.org Tue Oct 27 02:41:53 2015 Return-path: Envelope-to: geh-help-gnu-emacs@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 1ZqtGp-00036d-UD for geh-help-gnu-emacs@m.gmane.org; Tue, 27 Oct 2015 02:41:52 +0100 Original-Received: from localhost ([::1]:56216 helo=lists.gnu.org) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1ZqtGk-000237-5b for geh-help-gnu-emacs@m.gmane.org; Mon, 26 Oct 2015 21:41:46 -0400 Original-Received: from eggs.gnu.org ([2001:4830:134:3::10]:48406) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1ZqtGW-00022z-4e for help-gnu-emacs@gnu.org; Mon, 26 Oct 2015 21:41:33 -0400 Original-Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1ZqtGS-000189-V4 for help-gnu-emacs@gnu.org; Mon, 26 Oct 2015 21:41:32 -0400 Original-Received: from plane.gmane.org ([80.91.229.3]:44972) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1ZqtGS-000185-Ny for help-gnu-emacs@gnu.org; Mon, 26 Oct 2015 21:41:28 -0400 Original-Received: from list by plane.gmane.org with local (Exim 4.69) (envelope-from ) id 1ZqtGQ-0002lZ-Hp for help-gnu-emacs@gnu.org; Tue, 27 Oct 2015 02:41:26 +0100 Original-Received: from nl106-137-244.student.uu.se ([130.243.137.244]) by main.gmane.org with esmtp (Gmexim 0.1 (Debian)) id 1AlnuQ-0007hv-00 for ; Tue, 27 Oct 2015 02:41:26 +0100 Original-Received: from embe8573 by nl106-137-244.student.uu.se with local (Gmexim 0.1 (Debian)) id 1AlnuQ-0007hv-00 for ; Tue, 27 Oct 2015 02:41:26 +0100 X-Injected-Via-Gmane: http://gmane.org/ Mail-Followup-To: help-gnu-emacs@gnu.org Original-Lines: 31 Original-X-Complaints-To: usenet@ger.gmane.org X-Gmane-NNTP-Posting-Host: nl106-137-244.student.uu.se Mail-Copies-To: never User-Agent: Gnus/5.13 (Gnus v5.13) Emacs/24.4 (gnu/linux) Cancel-Lock: sha1:SMjzYa04+RE5JTntOgA8DggoOTk= X-detected-operating-system: by eggs.gnu.org: Genre and OS details not recognized. X-Received-From: 80.91.229.3 X-BeenThere: help-gnu-emacs@gnu.org X-Mailman-Version: 2.1.14 Precedence: list List-Id: Users list for the GNU Emacs text editor List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: help-gnu-emacs-bounces+geh-help-gnu-emacs=m.gmane.org@gnu.org Original-Sender: help-gnu-emacs-bounces+geh-help-gnu-emacs=m.gmane.org@gnu.org Xref: news.gmane.org gmane.emacs.help:107831 Archived-At: Emanuel Berg writes: > Using `backtrace-frame', this almost worked ... This excludes the "subr" functions - are they the C ones? Probably those are all you need to steer the flow to the error communicator. And then it should work! To quote the Captain of Titanic, "Now, nothing can go wrong!" (defun backtrace-to-non-subr-frame () (let ((i 6) ; offset determined by how *this* function is built (f) ) (cl-loop while (setq f (cadr (backtrace-frame (incf i)))) do (when (member (type-of (symbol-function f)) '(cons compiled-function)) (cl-return f) )))) (defun function-stack-caller () (backtrace-to-non-subr-frame) ) ;; (function-stack-caller) ; function-stack-caller (defun function-stack-embedded-caller () (if 'some-error-check (backtrace-to-non-subr-frame) )) ;; (function-stack-embedded-caller) ; function-stack-embedded-caller -- underground experts united http://user.it.uu.se/~embe8573