Mercurial > hg > xemacs-beta

changeset 4791:ea07b60c097f

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
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.
author Aidan Kehoe <kehoea@parhasard.net>
date Thu, 31 Dec 2009 08:21:30 +0000
parents bc4f2511bbea
children 95b04754ea8c
files lisp/ChangeLog lisp/list-mode.el
diffstat 2 files changed, 15 insertions(+), 5 deletions(-) [+]
line wrap: on
line diff
--- 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.
--- 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