[slime-cvs] CVS slime

[mkoeppe]

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

Modified Files:
	slime.el 
Log Message:
(slime-enclosing-operator-names): Fix for situation
when point is at end of buffer, as it happens often in the REPL.


--- /project/slime/cvsroot/slime/slime.el	2006/03/26 03:51:56	1.605
+++ /project/slime/cvsroot/slime/slime.el	2006/03/26 21:19:53	1.606
@@ -10046,7 +10046,8 @@
                      (<= level max-levels))
             (let ((arg-index 0))
               ;; Move to the beginning of the current sexp if not already there.
-              (if (or (member (char-syntax (char-after)) '(?\( ?'))
+              (if (or (and (char-after)
+                           (member (char-syntax (char-after)) '(?\( ?')))
                       (member (char-syntax (char-before)) '(?\  ?>)))
                   (incf arg-index))
               (ignore-errors