Limit number of GnuTLS handshakes per connection.

[bpt/emacs.git] / lisp / emacs-lisp / eieio-datadebug.el

diff --git a/lisp/emacs-lisp/eieio-datadebug.el b/lisp/emacs-lisp/eieio-datadebug.el
index b6c116e..b7f0deb 100644 (file)
--- a/lisp/emacs-lisp/eieio-datadebug.el
+++ b/lisp/emacs-lisp/eieio-datadebug.el
@@ -1,9 +1,10 @@
 ;;; eieio-datadebug.el --- EIEIO extensions to the data debugger.
 
-;; Copyright (C) 2007, 2008, 2009 Free Software Foundation, Inc.
+;; Copyright (C) 2007-2012  Free Software Foundation, Inc.
 
-;; Author: Eric M. Ludlam  <zappo@gnu.org>
+;; Author: Eric M. Ludlam <zappo@gnu.org>
 ;; Keywords: OO, lisp
+;; Package: eieio
 
 ;; This file is part of GNU Emacs.
 
@@ -33,30 +34,25 @@
 (defun data-debug-insert-object-slots (object prefix)
   "Insert all the slots of OBJECT.
 PREFIX specifies what to insert at the start of each line."
-  (let ((attrprefix (concat (make-string (length prefix) ? ) "] "))
-       )
-    (data-debug/eieio-insert-slots object attrprefix)
-    )
-  )
+  (let ((attrprefix (concat (make-string (length prefix) ? ) "] ")))
+    (data-debug/eieio-insert-slots object attrprefix)))
 
 (defun data-debug-insert-object-slots-from-point (point)
   "Insert the object slots found at the object button at POINT."
   (let ((object (get-text-property point 'ddebug))
        (indent (get-text-property point 'ddebug-indent))
-       start
-       )
+       start)
     (end-of-line)
     (setq start (point))
     (forward-char 1)
     (data-debug-insert-object-slots object
                                    (concat (make-string indent ? )
                                            "~ "))
-    (goto-char start)
-    ))
+    (goto-char start)))
 
 (defun data-debug-insert-object-button (object prefix prebuttontext)
   "Insert a button representing OBJECT.
-PREFIX is the text that preceeds the button.
+PREFIX is the text that precedes the button.
 PREBUTTONTEXT is some text between PREFIX and the object button."
   (let ((start (point))
        (end nil)
@@ -77,9 +73,7 @@ PREBUTTONTEXT is some text between PREFIX and the object button."
     (put-text-property start end 'help-echo tip)
     (put-text-property start end 'ddebug-function
                       'data-debug-insert-object-slots-from-point)
-    (insert "\n")
-    )
-  )
+    (insert "\n")))
 
 ;;; METHODS
 ;;
@@ -118,8 +112,7 @@ PREBUTTONTEXT is some text between PREFIX and the object button."
                     " ")
             'font-lock-keyword-face))
          )
-       (setq publa (cdr publa) publd (cdr publd)))
-      )))
+       (setq publa (cdr publa) publd (cdr publd))))))
 
 ;;; Augment the Data debug thing display list.
 (data-debug-add-specialized-thing (lambda (thing) (object-p thing))
@@ -130,7 +123,7 @@ PREBUTTONTEXT is some text between PREFIX and the object button."
 ;; A generic function to run DDEBUG on an object and popup a new buffer.
 ;;
 (defmethod data-debug-show ((obj eieio-default-superclass))
-  "Run ddebug against any EIEIO object OBJ"
+  "Run ddebug against any EIEIO object OBJ."
   (data-debug-new-buffer (format "*%s DDEBUG*" (object-name obj)))
   (data-debug-insert-object-slots obj "]"))