[slime-cvs] CVS slime/contrib

[CVS User sboukarev]

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

Modified Files:
	ChangeLog slime-repl.el 
Log Message:
* slime-repl.el (slime-search-property-change): XEmacs may return
nil on previous/next-single-char-property-change, don't pass it to
goto-char.


--- /project/slime/cvsroot/slime/contrib/ChangeLog	2010/09/03 18:53:11	1.411
+++ /project/slime/cvsroot/slime/contrib/ChangeLog	2010/09/03 19:04:28	1.412
@@ -1,5 +1,11 @@
 2010-09-03  Stas Boukarev  <stassats at gmail.com>
 
+	* slime-repl.el (slime-search-property-change): XEmacs may return
+	nil on previous/next-single-char-property-change, don't pass it to
+	goto-char.
+
+2010-09-03  Stas Boukarev  <stassats at gmail.com>
+
 	* slime-repl.el (slime-repl-mode-end-of-defun)
 	(slime-repl-mode-beginning-of-defun): Take an optional argument
 	which specifies how many defuns it should move. GNU Emacs catches
--- /project/slime/cvsroot/slime/contrib/slime-repl.el	2010/09/03 18:53:12	1.49
+++ /project/slime/cvsroot/slime/contrib/slime-repl.el	2010/09/03 19:04:28	1.50
@@ -681,10 +681,12 @@
       (goto-char origin))))
 
 (defun slime-search-property-change (prop &optional backward)
-  (cond (backward 
-         (goto-char (previous-single-char-property-change (point) prop)))
-        (t 
-         (goto-char (next-single-char-property-change (point) prop)))))
+  (cond (backward
+         (goto-char (or (previous-single-char-property-change (point) prop)
+			(point-min))))
+        (t
+         (goto-char (or (next-single-char-property-change (point) prop)
+			(point-max))))))
 
 (defun slime-end-of-proprange-p (property)
   (and (get-char-property (max 1 (1- (point))) property)