Revised.

[riece] / lisp / riece-highlight.el

diff --git a/lisp/riece-highlight.el b/lisp/riece-highlight.el
index 4803efb..b5c5b1f 100644 (file)
--- a/lisp/riece-highlight.el
+++ b/lisp/riece-highlight.el
@@ -237,8 +237,7 @@
                                                                   identity)
   (if (riece-identity-equal identity riece-current-channel)
       (let ((string (riece-format-identity identity))
-           (start 0)
-           extent)
+           (start 0))
        ;; Escape % -> %%.
        (while (string-match "%" string start)
          (setq start (1+ (match-end 0))