[slime-cvs] CVS slime

[CVS User sboukarev]

Update of /project/slime/cvsroot/slime
In directory cl-net:/tmp/cvs-serv5900

Modified Files:
	ChangeLog slime.el 
Log Message:
* slime.el (slime-remove-old-overlays): delete notes at the very beginning
of the buffer too. Thanks to Nick Levine.


--- /project/slime/cvsroot/slime/ChangeLog	2009/08/21 17:16:42	1.1843
+++ /project/slime/cvsroot/slime/ChangeLog	2009/08/27 15:24:31	1.1844
@@ -1,3 +1,8 @@
+2009-08-27  Stas Boukarev  <stassats at gmail.com>
+
+	* slime.el (slime-remove-old-overlays): delete notes at the very beginning
+	of the buffer too. Thanks to Nick Levine.
+
 2009-08-21  Helmut Eller  <heller at common-lisp.net>
 
 	* slime.el (slime-transcript-start-hook)
--- /project/slime/cvsroot/slime/slime.el	2009/08/21 17:16:42	1.1215
+++ /project/slime/cvsroot/slime/slime.el	2009/08/27 15:24:31	1.1216
@@ -2811,13 +2811,15 @@
 
 (defun slime-remove-old-overlays ()
   "Delete the existing Slime overlays in the current buffer."
-  (dolist (buffer (slime-filter-buffers (lambda () slime-mode)))
+  (dolist (buffer (slime-filter-buffers 'slime-mode))
     (with-current-buffer buffer
       (save-excursion
         (save-restriction
           (widen)                ; remove overlays within the whole buffer.
           (goto-char (point-min))
-          (let ((o))
+          (let ((o (slime-note-at-point)))
+            (when o
+              (delete-overlay o))
             (while (setq o (slime-find-next-note))
               (delete-overlay o))))))))