# HG changeset patch
# User Aidan Kehoe <kehoea@parhasard.net>
# Date 1262247690 0
# Node ID ea07b60c097f31fb7ce219c6647d482b4076ef85
# Parent  bc4f2511bbea862eabff918592ae564f51095c2c
Fix issue 546, use next-single-char-property-change in list-mode.el

lisp/ChangeLog addition:

2009-12-31  Aidan Kehoe  <kehoea@parhasard.net>

	* list-mode.el (next-list-mode-item, switch-to-completions): Use
	next-single-char-property-change,
	previous-single-char-property-change now
	next-single-property-change no longer pays attention to extents
	not created using the text property functions. Fix for issue 546,
	bug dates from changeset 8c96bdabcaf9.

diff -r bc4f2511bbea -r ea07b60c097f lisp/ChangeLog
--- a/lisp/ChangeLog	Tue Dec 22 15:52:06 2009 -0700
+++ b/lisp/ChangeLog	Thu Dec 31 08:21:30 2009 +0000
@@ -1,3 +1,12 @@
+2009-12-31  Aidan Kehoe  <kehoea@parhasard.net>
+
+	* list-mode.el (next-list-mode-item, switch-to-completions): Use
+	next-single-char-property-change,
+	previous-single-char-property-change now
+	next-single-property-change no longer pays attention to extents
+	not created using the text property functions. Fix for issue 546,
+	bug dates from changeset 8c96bdabcaf9.
+
 2009-12-21  Jerry James  <james@xemacs.org>
 
 	* dragdrop.el (offix-start-drag): Remove.
diff -r bc4f2511bbea -r ea07b60c097f lisp/list-mode.el
--- a/lisp/list-mode.el	Tue Dec 22 15:52:06 2009 -0700
+++ b/lisp/list-mode.el	Thu Dec 31 08:21:30 2009 +0000
@@ -174,8 +174,9 @@
       (if extent (goto-char (extent-end-position extent)))
       ;; Move to start of next one.
       (or (extent-at (point) (current-buffer) 'list-mode-item)
-	  (goto-char (next-single-property-change (point) 'list-mode-item
-						  nil end))))
+	  (goto-char (next-single-char-property-change (point)
+						       'list-mode-item
+						       nil end))))
     (setq n (1- n)))
   (while (and (< n 0) (not (bobp)))
     (let ((extent (extent-at (point) (current-buffer) 'list-mode-item))
@@ -186,7 +187,7 @@
       (if (setq extent (extent-at (point) (current-buffer) 'list-mode-item
 				  nil 'before))
 	  (goto-char (extent-start-position extent))
-	(goto-char (previous-single-property-change
+	(goto-char (previous-single-char-property-change
 		    (point) 'list-mode-item nil end))
 	(if (setq extent (extent-at (point) (current-buffer) 'list-mode-item
 				    nil 'before))
@@ -648,7 +649,7 @@
   (if (not (get-buffer-window "*Completions*"))
       nil
     (select-window (get-buffer-window "*Completions*"))
-    (goto-char (next-single-property-change (point-min) 'list-mode-item nil
-					    (point-max)))))
+    (goto-char (next-single-char-property-change (point-min) 'list-mode-item
+						 nil (point-max)))))
 
 ;;; list-mode.el ends here