(riece-make-identity-button-map)))
(defun riece-button-insinuate ()
- (add-hook 'riece-channel-list-mode-hook
- 'riece-button-channel-list-mode-hook)
- (add-hook 'riece-user-list-mode-hook
- 'riece-button-user-list-mode-hook)
- (add-hook 'riece-dialogue-mode-hook
- 'riece-button-dialogue-mode-hook)
(save-excursion
(when riece-channel-list-buffer
(set-buffer riece-channel-list-buffer)
- (riece-button-channel-list-mode-hook))
+ (riece-channel-list-mode-hook))
(when riece-user-list-buffer
(set-buffer riece-user-list-buffer)
- (riece-button-user-list-mode-hook))
+ (riece-user-list-mode-hook))
(let ((buffers riece-buffer-list))
(while buffers
(set-buffer (car buffers))
(if (eq (derived-mode-class major-mode)
'riece-dialogue-mode)
- (riece-button-dialogue-mode-hook))
+ (riece-dialogue-mode-hook))
(setq buffers (cdr buffers)))))
+ (add-hook 'riece-channel-list-mode-hook
+ 'riece-button-channel-list-mode-hook)
+ (add-hook 'riece-user-list-mode-hook
+ 'riece-button-user-list-mode-hook)
+ (add-hook 'riece-dialogue-mode-hook
+ 'riece-button-dialogue-mode-hook)
(add-hook 'riece-after-insert-functions 'riece-button-add-identity-button))
(defun riece-button-uninstall ()