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

[Helmut Eller]

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

Modified Files:
	slime.el 
Log Message:
(slime-maybe-list-compiler-notes): Display the notes listing after C-c
C-c only if there are no annotations in the buffer.  CMUCL creates
usually one warning with a error location and an almost redundant
warning at the end of the compilation unit. Don't display the listing
in this common case.

(slime-reindent-defun): Pass nil as the third arument to indent-region.

Date: Thu May  6 15:52:25 2004
Author: heller

Index: slime/slime.el
diff -u slime/slime.el:1.296 slime/slime.el:1.297
--- slime/slime.el:1.296	Thu May  6 03:38:41 2004
+++ slime/slime.el	Thu May  6 15:52:23 2004
@@ -2759,9 +2759,9 @@
 Useful value for `slime-compilation-finished-hook'"
   (unless (or (null notes)
 	      (and (eq last-command 'slime-compile-defun)
-                   (not (find ':error notes 
-                              :key (lambda (x) 
-                                     (car (slime-note.location x)))))))
+                   (some (lambda (x) 
+                           (not (eq ':error (car (slime-note.location x)))))
+                         notes)))
     (slime-list-compiler-notes notes)))
 
 (defun slime-list-compiler-notes (&optional notes)
@@ -4526,7 +4526,6 @@
   (interactive)
   (slime-eval-macroexpand 'swank:print-ir1-converted-blocks))
 
-
 
 ;;; Subprocess control
 
@@ -5698,14 +5697,14 @@
   (save-excursion
     (if (or force-text-fill (slime-beginning-of-comment))
         (fill-paragraph nil)
-        (let ((start (progn (beginning-of-defun) (point)))
-              (end (ignore-errors (end-of-defun) (point))))
-          (unless end
-            (forward-paragraph)
-            (slime-close-all-sexp)
-            (end-of-defun)
-            (setf end (point)))
-          (indent-region start end)))))
+      (let ((start (progn (beginning-of-defun) (point)))
+            (end (ignore-errors (end-of-defun) (point))))
+        (unless end
+          (forward-paragraph)
+          (slime-close-all-sexp)
+          (end-of-defun)
+          (setf end (point)))
+        (indent-region start end nil)))))
 
 ;;; Test suite