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

[riece] / lisp / riece-button.el

diff --git a/lisp/riece-button.el b/lisp/riece-button.el
index 4a2867c..a9ac375 100644 (file)
--- 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)