From 503a6a2b826a93e8acca3dbbe1c282babb77c3ff Mon Sep 17 00:00:00 2001 From: Daiki Ueno Date: Sun, 7 Mar 2004 23:23:03 +0000 Subject: [PATCH] Suppress "variable XXX bound but not referenced" warning. --- lisp/riece-highlight.el | 3 +-- lisp/riece-history.el | 3 +-- lisp/riece-naming.el | 3 +-- lisp/riece-unread.el | 3 +-- 4 files changed, 4 insertions(+), 8 deletions(-) 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)) -- 2.25.1