[slime-cvs] CVS slime

[CVS User heller]

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

Modified Files:
	ChangeLog slime.el 
Log Message:
XEmacs fixes.

* slime.el (slime-editing-keys): Use (kbd "C-M-.") because XEmacs
translates [?\C-\M-.] to C-M-n.
(next-single-char-property-change)
(previous-single-char-property-change): Use
next-single-property-change because next-char-property-change gets
embarrisingly slow in XEmacs in font-locked buffers.
It never felt that slow in Emacs 20 though.

--- /project/slime/cvsroot/slime/ChangeLog	2009/08/15 08:35:15	1.1837
+++ /project/slime/cvsroot/slime/ChangeLog	2009/08/15 16:01:17	1.1838
@@ -1,5 +1,17 @@
 2009-08-15  Helmut Eller  <heller at common-lisp.net>
 
+	XEmacs fixes.
+
+	* slime.el (slime-editing-keys): Use (kbd "C-M-.") because XEmacs
+	translates [?\C-\M-.] to C-M-n.
+	(next-single-char-property-change)
+	(previous-single-char-property-change): Use
+	next-single-property-change because next-char-property-change gets
+	embarrisingly slow in XEmacs in font-locked buffers.
+	It never felt that slow in Emacs 20 though.
+
+2009-08-15  Helmut Eller  <heller at common-lisp.net>
+
 	* swank-ccl.lisp (definition-name): Special case methods.
 
 	* slime.el (slime-choose-overlay-region): Don't return zero length
--- /project/slime/cvsroot/slime/slime.el	2009/08/15 08:34:48	1.1213
+++ /project/slime/cvsroot/slime/slime.el	2009/08/15 16:01:17	1.1214
@@ -571,7 +571,7 @@
 ;;; These keys are useful for buffers where the user can insert and
 ;;; edit s-exprs, e.g. for source buffers and the REPL.
 (defvar slime-editing-keys
-  '(;; Arglist display & completion
+  `(;; Arglist display & completion
     ("\M-\t"      slime-complete-symbol)
     (" "          slime-space)
     ;; Evaluating
@@ -582,7 +582,7 @@
     ("\C-c\M-m"   slime-macroexpand-all)
     ;; Misc
     ("\C-c\C-u"   slime-undefine-function)
-    ([?\C-\M-.]   slime-next-location)
+    (,(kbd "C-M-.")   slime-next-location)
     ;; Obsolete, redundant bindings
     ("\C-c\C-i" slime-complete-symbol)
     ;;("\M-*" pop-tag-mark) ; almost to clever
@@ -8652,7 +8652,8 @@
       (with-current-buffer (or object (current-buffer))
 	(let ((initial-value (get-char-property position prop object))
 	      (limit (or limit (point-max))))
-	  (loop for pos = position then (next-char-property-change pos limit)
+	  (loop for pos = position then 
+                (next-single-property-change pos prop object limit)
 		if (>= pos limit) return limit
 		if (not (eq initial-value 
 			    (get-char-property pos prop object))) 
@@ -8675,7 +8676,7 @@
             (let ((initial-value (get-char-property (1- position)
                                                     prop object)))
               (loop for pos = position then 
-                    (previous-char-property-change pos limit)
+                    (previous-single-property-change pos prop object limit)
                     if (<= pos limit) return limit
                     if (not (eq initial-value 
                                 (get-char-property (1- pos) prop object)))