From: ueno <ueno>
Date: Sun, 7 Mar 2004 23:23:03 +0000 (+0000)
Subject: Suppress "variable XXX bound but not referenced" warning.
X-Git-Tag: riece-0_2_0~1
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;ds=sidebyside;h=42ac2270d022b7346adfff66363a0e0d1028429f;p=elisp%2Friece.git

Suppress "variable XXX bound but not referenced" warning.
---

diff --git a/lisp/riece-highlight.el b/lisp/riece-highlight.el
index 4803efb..b5c5b1f 100644
--- 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))
diff --git a/lisp/riece-history.el b/lisp/riece-history.el
index 6541feb..5b9fc1e 100644
--- 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))
diff --git a/lisp/riece-naming.el b/lisp/riece-naming.el
index 97beb25..4aa774d 100644
--- a/lisp/riece-naming.el
+++ b/lisp/riece-naming.el
@@ -86,8 +86,7 @@
 			(cdr (car users)))
 		  user-identity-list)
 	    users (cdr users)))
-    (riece-emit-signal 'user-list-changed
-		       (riece-make-identity channel-name riece-server-name))))
+    (riece-emit-signal 'user-list-changed channel-identity)))
 
 (provide 'riece-naming)
 
diff --git a/lisp/riece-unread.el b/lisp/riece-unread.el
index b2b2a28..6f64b2e 100644
--- a/lisp/riece-unread.el
+++ b/lisp/riece-unread.el
@@ -84,8 +84,7 @@
 (defun riece-unread-format-identity-for-channel-list-indicator (index identity)
   (if (riece-identity-member identity riece-unread-channels)
       (let ((string (riece-format-identity identity))
-	    (start 0)
-	    extent)
+	    (start 0))
 	;; Escape % -> %%.
 	(while (string-match "%" string start)
 	  (setq start (1+ (match-end 0))