(riece-button-map-identity-region): Don't bind identity.
authorueno <ueno>
Mon, 13 Oct 2003 19:07:50 +0000 (19:07 +0000)
committerueno <ueno>
Mon, 13 Oct 2003 19:07:50 +0000 (19:07 +0000)
lisp/riece-button.el

index 4a2867c..a9ac375 100644 (file)
@@ -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)