projects
/
riece
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Fixed a typo.
[riece]
/
lisp
/
riece-xface.el
diff --git
a/lisp/riece-xface.el
b/lisp/riece-xface.el
index
b94b006
..
a4fd4ae
100644
(file)
--- a/
lisp/riece-xface.el
+++ b/
lisp/riece-xface.el
@@
-31,9
+31,7
@@
(require 'riece-identity)
(require 'riece-globals)
(require 'riece-display)
(require 'riece-identity)
(require 'riece-globals)
(require 'riece-display)
-(eval-when-compile (require 'riece-lsdb))
-
-(defvar riece-xface-enabled nil)
+(require 'riece-lsdb)
(defconst riece-xface-description
"Display X-Face in IRC buffers.")
(defconst riece-xface-description
"Display X-Face in IRC buffers.")
@@
-41,7
+39,7
@@
(defvar lsdb-insert-x-face-function)
(defun riece-xface-update-user-list-buffer ()
(defvar lsdb-insert-x-face-function)
(defun riece-xface-update-user-list-buffer ()
- (if
riece-xface-enabled
+ (if
(get 'riece-xface 'riece-addon-enabled)
(riece-scan-property-region
'riece-identity (point-min)(point-max)
(lambda (start end)
(riece-scan-property-region
'riece-identity (point-min)(point-max)
(lambda (start end)
@@
-68,23
+66,25
@@
'riece-xface-update-user-list-buffer t t))
(defun riece-xface-insinuate ()
'riece-xface-update-user-list-buffer t t))
(defun riece-xface-insinuate ()
+ (if riece-user-list-buffer
+ (with-current-buffer riece-user-list-buffer
+ (riece-xface-user-list-mode-hook)))
(add-hook 'riece-user-list-mode-hook
'riece-xface-user-list-mode-hook))
(defun riece-xface-uninstall ()
(add-hook 'riece-user-list-mode-hook
'riece-xface-user-list-mode-hook))
(defun riece-xface-uninstall ()
+ (if riece-user-list-buffer
+ (with-current-buffer riece-user-list-buffer
+ (remove-hook 'riece-update-buffer-functions
+ 'riece-xface-update-user-list-buffer t)))
(remove-hook 'riece-user-list-mode-hook
(remove-hook 'riece-user-list-mode-hook
- 'riece-xface-user-list-mode-hook)
- (with-current-buffer riece-user-list-buffer
- (remove-hook 'riece-update-buffer-functions
- 'riece-xface-update-user-list-buffer t)))
+ 'riece-xface-user-list-mode-hook))
(defun riece-xface-enable ()
(defun riece-xface-enable ()
- (setq riece-xface-enabled t)
(if riece-current-channel
(riece-emit-signal 'user-list-changed riece-current-channel)))
(defun riece-xface-disable ()
(if riece-current-channel
(riece-emit-signal 'user-list-changed riece-current-channel)))
(defun riece-xface-disable ()
- (setq riece-xface-enabled nil)
(if riece-current-channel
(riece-emit-signal 'user-list-changed riece-current-channel)))
(if riece-current-channel
(riece-emit-signal 'user-list-changed riece-current-channel)))