[slime-cvs] CVS update: slime/slime.el

[Helmut Eller]

Update of /project/slime/cvsroot/slime
In directory common-lisp.net:/tmp/cvs-serv7136

Modified Files:
	slime.el 
Log Message:
(slime-pprint-event): New function.
(slime-log-event): Use it.

(slime-reindent-defun): Indent the defun after point, if point is in
the first column an immediately before a #\(.

Date: Sat May 22 03:59:26 2004
Author: heller

Index: slime/slime.el
diff -u slime/slime.el:1.304 slime/slime.el:1.305
--- slime/slime.el:1.304	Fri May 21 17:24:21 2004
+++ slime/slime.el	Sat May 22 03:59:26 2004
@@ -1710,6 +1710,13 @@
 
 ;;;;;;; Event logging to *slime-events*
 
+(defun slime-pprint-event (object buffer)
+  "Pretty print OBJECT in BUFFER with limited depth and width."
+  (let ((print-length 20)
+	(print-level 6)
+	(pp-escape-newlines t))
+    (pp event buffer)))
+
 (defun slime-log-event (event)
   (when slime-log-events
     (with-current-buffer (slime-events-buffer)
@@ -1720,9 +1727,7 @@
         (delete-region (point-min) (point)))
       (goto-char (point-max))
       (save-excursion
-        (let ((print-level 5)
-              (print-length 20))
-          (pp event (current-buffer))))
+        (slime-pprint-event event (current-buffer)))
       (when (and (boundp 'outline-minor-mode)
                  outline-minor-mode)
         (hide-entry))
@@ -5723,7 +5728,10 @@
   (save-excursion
     (if (or force-text-fill (slime-beginning-of-comment))
         (fill-paragraph nil)
-      (let ((start (progn (beginning-of-defun) (point)))
+      (let ((start (progn (unless (and (zerop (current-column))
+                                       (eq ?\( (char-after)))
+                            (beginning-of-defun))
+                          (point)))
             (end (ignore-errors (end-of-defun) (point))))
         (unless end
           (forward-paragraph)