Re: factor out error message functions, access function stack to know location

[Emanuel Berg <embe8573@student.uu.se>]

Emanuel Berg <embe8573@student.uu.se> 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