Mercurial > emacs

comparison lisp/emacs-lisp/eieio-datadebug.el @ 105327:dcbb3800a4e1

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Doc/message fixes.
author Glenn Morris <rgm@gnu.org>
date Thu, 01 Oct 2009 02:50:00 +0000
parents 4b2a0c5f8552
children 7f4c7f5c0eba
comparison
equal deleted inserted replaced
105326:e18b53ee74a9 105327:dcbb3800a4e1
1 ;;; eieio-datadebug.el --- EIEIO extensions to the data debugger. 1 ;;; eieio-datadebug.el --- EIEIO extensions to the data debugger.
2 2
3 ;; Copyright (C) 2007, 2008, 2009 Free Software Foundation, Inc. 3 ;; Copyright (C) 2007, 2008, 2009 Free Software Foundation, Inc.
4 4
5 ;; Author: Eric M. Ludlam <zappo@gnu.org> 5 ;; Author: Eric M. Ludlam <zappo@gnu.org>
6 ;; Keywords: OO, lisp 6 ;; Keywords: OO, lisp
7 7
8 ;; This file is part of GNU Emacs. 8 ;; This file is part of GNU Emacs.
9 9
10 ;; GNU Emacs is free software: you can redistribute it and/or modify 10 ;; GNU Emacs is free software: you can redistribute it and/or modify
49 "~ ")) 49 "~ "))
50 (goto-char start))) 50 (goto-char start)))
51 51
52 (defun data-debug-insert-object-button (object prefix prebuttontext) 52 (defun data-debug-insert-object-button (object prefix prebuttontext)
53 "Insert a button representing OBJECT. 53 "Insert a button representing OBJECT.
54 PREFIX is the text that preceeds the button. 54 PREFIX is the text that precedes the button.
55 PREBUTTONTEXT is some text between PREFIX and the object button." 55 PREBUTTONTEXT is some text between PREFIX and the object button."
56 (let ((start (point)) 56 (let ((start (point))
57 (end nil) 57 (end nil)
58 (str (object-print object)) 58 (str (object-print object))
59 (tip (format "Object %s\nClass: %S\nParent(s): %S\n%d slots" 59 (tip (format "Object %s\nClass: %S\nParent(s): %S\n%d slots"