From: yamaoka <yamaoka>
Date: Fri, 14 Feb 2003 01:28:29 +0000 (+0000)
Subject: * wl-xmas.el (wl-xmas-highlight-folder-group-line): Use `map-extents' instead
X-Git-Tag: wl-2_10_1pre~29
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=ab11df5a7fe77a5bd9679181c81debe2f264a5e0;p=elisp%2Fwanderlust.git

* wl-xmas.el (wl-xmas-highlight-folder-group-line): Use `map-extents' instead
 of `extent-at' repeatedly.
(wl-highlight-folder-current-line): Ditto.

* wl-highlight.el: Remove useless dummy functions.
---

diff --git a/wl/ChangeLog b/wl/ChangeLog
index f68c372..e3f3190 100644
--- a/wl/ChangeLog
+++ b/wl/ChangeLog
@@ -1,3 +1,11 @@
+2003-02-14  Katsumi Yamaoka  <yamaoka@jpl.org>
+
+	* wl-xmas.el (wl-xmas-highlight-folder-group-line): Use
+	`map-extents' instead of `extent-at' repeatedly.
+	(wl-highlight-folder-current-line): Ditto.
+
+	* wl-highlight.el: Remove useless dummy functions.
+
 2003-02-08  Yoichi NAKAYAMA  <yoichi@eken.phys.nagoya-u.ac.jp>
 
 	* wl-score.el (wl-score-save): Bind print-length and print-level.
diff --git a/wl/wl-highlight.el b/wl/wl-highlight.el
index 4391cf5..670cb55 100644
--- a/wl/wl-highlight.el
+++ b/wl/wl-highlight.el
@@ -1,6 +1,7 @@
 ;;; wl-highlight.el --- Hilight modules for Wanderlust.
 
-;; Copyright (C) 1998,1999,2000 Yuuichi Teranishi <teranisi@gohome.org>
+;; Copyright (C) 1998, 1999, 2000, 2001, 2002, 2003
+;;  Yuuichi Teranishi <teranisi@gohome.org>
 
 ;; Author: Yuuichi Teranishi <teranisi@gohome.org>
 ;; Keywords: mail, net news
@@ -42,12 +43,6 @@
 	 (require 'wl-e21))
 	(t
 	 (require 'wl-mule)))
-  (defun-maybe extent-begin-glyph (a))
-  (defun-maybe delete-extent (a))
-  (defun-maybe make-extent (a b))
-  (defun-maybe set-extent-begin-glyph (a b))
-  (defun-maybe set-extent-end-glyph (a b))
-  (defun-maybe extent-at (a b c d e))
   (defun-maybe wl-dnd-set-drop-target (a b))
   (defun-maybe wl-dnd-set-drag-starter (a b)))
 
diff --git a/wl/wl-xmas.el b/wl/wl-xmas.el
index 93da3a2..3d3e2f1 100644
--- a/wl/wl-xmas.el
+++ b/wl/wl-xmas.el
@@ -1,7 +1,8 @@
 ;;; wl-xmas.el --- Wanderlust modules for XEmacsen.
 
-;; Copyright (C) 1998,1999,2000 Yuuichi Teranishi <teranisi@gohome.org>
-;; Copyright (C) 2000 Katsumi Yamaoka <yamaoka@jpl.org>
+;; Copyright (C) 1998, 1999, 2000, 2001, 2002, 2003
+;;  Yuuichi Teranishi <teranisi@gohome.org>
+;; Copyright (C) 2000, 2001, 2002, 2003 Katsumi Yamaoka <yamaoka@jpl.org>
 
 ;; Author: Yuuichi Teranishi <teranisi@gohome.org>
 ;;	Katsumi Yamaoka <yamaoka@jpl.org>
@@ -201,13 +202,13 @@
   (defsubst wl-xmas-highlight-folder-group-line (glyph text-face numbers)
     (let ((start (match-beginning 1))
 	  (end (match-end 1)))
-      (let (extent)
-	(while (and (setq extent (extent-at start nil nil extent 'at))
-		    (not (and (eq start (extent-start-position extent))
-			      (eq end (extent-end-position extent))
-			      (extent-end-glyph extent)))))
-	(unless extent
-	  (setq extent (make-extent start end)))
+      (let ((extent (or (map-extents
+			 (lambda (extent maparg)
+			   (and (eq start (extent-start-position extent))
+				(eq end (extent-end-position extent))
+				extent))
+			 nil start start nil nil 'end-glyph)
+			(make-extent start end))))
 	(set-extent-properties extent `(end-open t start-closed t invisible t))
 	(set-extent-end-glyph
 	 extent
@@ -266,13 +267,13 @@
 			     (get-text-property (point) 'wl-folder-entity-id)))
 	     (looking-at "[ \t]+\\([^ \t]+\\)"))
 	(let ((start (match-beginning 1)))
-	  (let (extent)
-	    (while (and (setq extent (extent-at start nil nil extent 'at))
-			(not (and (eq start (extent-start-position extent))
-				  (eq start (extent-end-position extent))
-				  (extent-begin-glyph extent)))))
-	    (unless extent
-	      (setq extent (make-extent start start)))
+	  (let ((extent (or (map-extents
+			     (lambda (extent maparg)
+			       (and (eq start (extent-start-position extent))
+				    (eq start (extent-end-position extent))
+				    extent))
+			     nil start start nil nil 'begin-glyph)
+			    (make-extent start start))))
 	    (let (type)
 	      (set-extent-begin-glyph
 	       extent