diff options
| author | Lars Magne Ingebrigtsen <larsi@gnus.org> | 2015-01-28 14:21:33 +1100 |
|---|---|---|
| committer | Lars Magne Ingebrigtsen <larsi@gnus.org> | 2015-01-28 14:21:33 +1100 |
| commit | 7f4f16b3ae6fdb59d83cfc01017668f2a564309f (patch) | |
| tree | 60e4a7f23f949afaed3bc2fddd0a528aef297861 /lisp/emacs-lisp/eieio-datadebug.el | |
| parent | 1a369fc7f1ccec6954344ec1ee0211a4d24c312d (diff) | |
| parent | be2d23e58721b7acc68c0ea654a38e5109df2aa2 (diff) | |
| download | emacs-7f4f16b3ae6fdb59d83cfc01017668f2a564309f.tar.gz | |
Merge branch 'master' of git.sv.gnu.org:/srv/git/emacs
Diffstat (limited to 'lisp/emacs-lisp/eieio-datadebug.el')
| -rw-r--r-- | lisp/emacs-lisp/eieio-datadebug.el | 16 |
1 files changed, 0 insertions, 16 deletions
diff --git a/lisp/emacs-lisp/eieio-datadebug.el b/lisp/emacs-lisp/eieio-datadebug.el index 6534bd0fecf..119f7cce038 100644 --- a/lisp/emacs-lisp/eieio-datadebug.el +++ b/lisp/emacs-lisp/eieio-datadebug.el @@ -129,22 +129,6 @@ PREBUTTONTEXT is some text between PREFIX and the object button." (data-debug-new-buffer (format "*%s DDEBUG*" (eieio-object-name obj))) (data-debug-insert-object-slots obj "]")) -;;; DEBUG FUNCTIONS -;; -(defun eieio-debug-methodinvoke (method class) - "Show the method invocation order for METHOD with CLASS object." - (interactive "aMethod: \nXClass Expression: ") - (let* ((eieio-pre-method-execution-functions - (lambda (l) (throw 'moose l) )) - (data - (catch 'moose (eieio--generic-call - method (list class)))) - (_buf (data-debug-new-buffer "*Method Invocation*")) - (data2 (mapcar (lambda (sym) - (symbol-function (car sym))) - data))) - (data-debug-insert-thing data2 ">" ""))) - (provide 'eieio-datadebug) ;;; eieio-datadebug.el ends here |