[slime-cvs] CVS slime/contrib

[trittweiler]

Update of /project/slime/cvsroot/slime/contrib
In directory clnet:/tmp/cvs-serv9286/contrib

Modified Files:
	slime-presentations.el ChangeLog 
Log Message:

* slime-presentations.el (slime-presentation-around-or-before-point):
  Guard against the case being used at the start of a buffer.


--- /project/slime/cvsroot/slime/contrib/slime-presentations.el	2008/04/06 10:02:24	1.15
+++ /project/slime/cvsroot/slime/contrib/slime-presentations.el	2008/08/03 13:31:54	1.16
@@ -271,7 +271,7 @@
   (let ((object (or object (current-buffer))))
     (multiple-value-bind (presentation start end whole-p)
         (slime-presentation-around-point point object)
-      (if presentation
+      (if (or presentation (= point (point-min)))
           (values presentation start end whole-p)
         (slime-presentation-around-point (1- point) object)))))
 
--- /project/slime/cvsroot/slime/contrib/ChangeLog	2008/07/31 08:37:22	1.112
+++ /project/slime/cvsroot/slime/contrib/ChangeLog	2008/08/03 13:31:54	1.113
@@ -1,3 +1,8 @@
+2008-08-03  Tobias C. Rittweiler  <tcr at freebits.de>
+
+	* slime-presentations.el (slime-presentation-around-or-before-point):
+	Guard against the case being used at the start of a buffer.
+
 2008-07-31  Tobias C. Rittweiler  <tcr at freebits.de>
 
 	* slime-mdot-fu.el: New contrib. Makes M-. work on local definitions.