Suppress "variable XXX bound but not referenced" warning.

[riece] / lisp / riece-history.el

diff --git a/lisp/riece-history.el b/lisp/riece-history.el
index 6541feb..5b9fc1e 100644 (file)
--- a/lisp/riece-history.el
+++ b/lisp/riece-history.el
@@ -83,8 +83,7 @@
   (if (and (not (ring-empty-p riece-channel-history))
           (riece-identity-equal identity (ring-ref riece-channel-history 0)))
       (let ((string (riece-format-identity identity))
-           (start 0)
-           extent)
+           (start 0))
        ;; Escape % -> %%.
        (while (string-match "%" string start)
          (setq start (1+ (match-end 0))