From 4655ecd59f785bdcf347a8fea303cae388a3d572 Mon Sep 17 00:00:00 2001 From: ueno Date: Mon, 13 Oct 2003 19:07:50 +0000 Subject: [PATCH] (riece-button-map-identity-region): Don't bind identity. --- lisp/riece-button.el | 5 ++--- 1 file changed, 2 insertions(+), 3 deletions(-) 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) -- 1.7.10.4