diff options
| author | Joakim Verona <joakim@verona.se> | 2015-01-26 21:57:51 +0100 |
|---|---|---|
| committer | Joakim Verona <joakim@verona.se> | 2015-01-26 21:57:51 +0100 |
| commit | d464b0ee300a1919f4398195974396e3e3d66d57 (patch) | |
| tree | d05753de64e4611c3fa1695cfdb037e8036e6980 /lisp/emacs-lisp/eieio-datadebug.el | |
| parent | f93da81268bb784d51d83db9413a6e9259aacfe1 (diff) | |
| parent | 81f7fcb4b8a4f370162def4fd42fd62674db96a5 (diff) | |
| download | emacs-d464b0ee300a1919f4398195974396e3e3d66d57.tar.gz emacs-d464b0ee300a1919f4398195974396e3e3d66d57.tar.bz2 emacs-d464b0ee300a1919f4398195974396e3e3d66d57.zip | |
merge master
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 |