From: ueno <ueno>
Date: Mon, 13 Oct 2003 19:07:50 +0000 (+0000)
Subject: (riece-button-map-identity-region): Don't bind identity.
X-Git-Tag: riece-0_1_3~6
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=4655ecd59f785bdcf347a8fea303cae388a3d572;p=elisp%2Friece.git

(riece-button-map-identity-region): Don't bind identity.
---

diff --git a/lisp/riece-button.el b/lisp/riece-button.el
index 4a2867c..a9ac375 100644
--- a/lisp/riece-button.el
+++ b/lisp/riece-button.el
@@ -199,9 +199,8 @@ This function is used as a callback for a channel button."
       (if (= start end)
 	  (throw 'done nil))
       ;; Search for the end of the button region.
-      (let* ((identity (get-text-property start 'riece-identity))
-	     (button-end (next-single-property-change start 'riece-identity
-						      nil end)))
+      (let ((button-end (next-single-property-change start 'riece-identity
+						     nil end)))
 	(if (= button-end end)
 	    (throw 'done nil))
 	(funcall function start button-end)