-;;; riece-display.el --- buffer arrangement
+;;; riece-display.el --- buffer arrangement -*- lexical-binding: t -*-
;; Copyright (C) 1998-2003 Daiki Ueno
;; Author: Daiki Ueno <ueno@unixuser.org>
(defun riece-display-connect-signals ()
(riece-connect-signal
'channel-list-changed
- (lambda (signal handback)
- (save-excursion
- (set-buffer riece-channel-list-buffer)
+ (lambda (_signal _handback)
+ (with-current-buffer riece-channel-list-buffer
(run-hooks 'riece-update-buffer-functions))
(riece-update-channel-list-indicator)))
(riece-connect-signal
'user-list-changed
- (lambda (signal handback)
- (save-excursion
- (set-buffer riece-user-list-buffer)
+ (lambda (_signal _handback)
+ (with-current-buffer riece-user-list-buffer
(run-hooks 'riece-update-buffer-functions)))
(lambda (signal)
(and riece-current-channel
riece-current-channel))))
(riece-connect-signal
'channel-switched
- (lambda (signal handback)
+ (lambda (_signal _handback)
(riece-update-status-indicators)
(riece-update-channel-status-indicator)
(riece-update-channel-indicator)
(riece-redraw-layout))))
(riece-connect-signal
'user-joined-channel
- (lambda (signal handback)
+ (lambda (_signal _handback)
(riece-emit-signal 'user-list-changed riece-current-channel))
(lambda (signal)
(and riece-current-channel
(riece-current-nickname))))))
(riece-connect-signal
'user-joined-channel
- (lambda (signal handback)
+ (lambda (signal _handback)
(riece-join-channel (nth 1 (riece-signal-args signal)))
(riece-switch-to-channel (nth 1 (riece-signal-args signal)))
(setq riece-join-channel-candidate nil))
(riece-current-nickname))))
(riece-connect-signal
'user-left-channel
- (lambda (signal handback)
+ (lambda (_signal _handback)
(riece-emit-signal 'user-list-changed riece-current-channel))
(lambda (signal)
(and riece-current-channel
(riece-current-nickname))))))
(riece-connect-signal
'user-left-channel
- (lambda (signal handback)
+ (lambda (signal _handback)
(riece-part-channel (nth 1 (riece-signal-args signal))))
(lambda (signal)
(riece-identity-equal (car (riece-signal-args signal))
(riece-current-nickname))))
(riece-connect-signal
'user-renamed
- (lambda (signal handback)
+ (lambda (_signal _handback)
(riece-emit-signal 'user-list-changed riece-current-channel))
(lambda (signal)
(and riece-current-channel
t))))))
(riece-connect-signal
'user-renamed
- (lambda (signal handback)
+ (lambda (_signal _handback)
(riece-update-status-indicators)
(riece-update-channel-indicator)
(force-mode-line-update t))
(riece-current-nickname))))
(riece-connect-signal
'user-renamed
- (lambda (signal handback)
+ (lambda (signal _handback)
(riece-switch-to-channel (nth 1 (riece-signal-args signal))))
(lambda (signal)
(and riece-current-channel
riece-current-channel))))
(riece-connect-signal
'user-renamed
- (lambda (signal handback)
+ (lambda (signal _handback)
(let* ((old-identity (car (riece-signal-args signal)))
(new-identity (nth 1 (riece-signal-args signal)))
(pointer (riece-identity-member old-identity
riece-channel-buffer-alist))))))))
(riece-connect-signal
'user-away-changed
- (lambda (signal handback)
+ (lambda (_signal _handback)
(riece-update-status-indicators)
(force-mode-line-update t))
(lambda (signal)
(riece-current-nickname))))
(riece-connect-signal
'user-operator-changed
- (lambda (signal handback)
+ (lambda (_signal _handback)
(riece-update-status-indicators)
(force-mode-line-update t))
(lambda (signal)
(riece-current-nickname))))
(riece-connect-signal
'channel-topic-changed
- (lambda (signal handback)
+ (lambda (_signal _handback)
(riece-update-long-channel-indicator)
(force-mode-line-update t))
(lambda (signal)
riece-current-channel))))
(riece-connect-signal
'channel-modes-changed
- (lambda (signal handback)
+ (lambda (_signal _handback)
(riece-update-long-channel-indicator)
(force-mode-line-update t))
(lambda (signal)
riece-current-channel))))
(riece-connect-signal
'channel-operators-changed
- (lambda (signal handback)
+ (lambda (_signal _handback)
(riece-update-channel-status-indicator)
(riece-emit-signal 'user-list-changed riece-current-channel))
(lambda (signal)
riece-current-channel))))
(riece-connect-signal
'channel-speakers-changed
- (lambda (signal handback)
+ (lambda (_signal _handback)
(riece-update-channel-status-indicator)
(riece-emit-signal 'user-list-changed riece-current-channel))
(lambda (signal)
riece-current-channel))))
(riece-connect-signal
'buffer-freeze-changed
- (lambda (signal handback)
+ (lambda (_signal _handback)
(riece-update-status-indicators)
(force-mode-line-update t))))
(setq buffers riece-buffer-list))
(while buffers
(if (buffer-live-p (car buffers))
- (save-excursion
- (set-buffer (car buffers))
+ (with-current-buffer (car buffers)
(run-hooks 'riece-update-buffer-functions)))
(setq buffers (cdr buffers)))
(run-hooks 'riece-update-indicator-functions)