projects
/
riece
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
* riece-log.el (riece-log-flashback): Fixed custom spec.
[riece]
/
lisp
/
riece-display.el
diff --git
a/lisp/riece-display.el
b/lisp/riece-display.el
index
f5f3f76
..
2129482
100644
(file)
--- a/
lisp/riece-display.el
+++ b/
lisp/riece-display.el
@@
-343,7
+343,10
@@
Local to the buffer in `riece-buffer-list'.")
(riece-user-get-operator riece-real-nickname))
"O"
"-")
(riece-user-get-operator riece-real-nickname))
"O"
"-")
- riece-user-indicator riece-real-nickname)))))
+ riece-user-indicator
+ (riece-format-identity
+ (riece-make-identity riece-real-nickname riece-server-name)
+ t))))))
(walk-windows
(lambda (window)
(with-current-buffer (window-buffer window)
(walk-windows
(lambda (window)
(with-current-buffer (window-buffer window)
@@
-375,8
+378,8
@@
Local to the buffer in `riece-buffer-list'.")
(if (memq ?o user)
"@"
(if (memq ?v user)
(if (memq ?o user)
"@"
(if (memq ?v user)
- "+"
)
-
"-"
))
+ "+"
+
"-")
))
"-"))))))
(defun riece-update-buffers (&optional buffers)
"-"))))))
(defun riece-update-buffers (&optional buffers)
@@
-471,7
+474,8
@@
Local to the buffer in `riece-buffer-list'.")
(if pointer
(setcar pointer nil))
(if (riece-identity-equal identity riece-current-channel)
(if pointer
(setcar pointer nil))
(if (riece-identity-equal identity riece-current-channel)
- (riece-switch-to-nearest-channel pointer))))
+ (riece-switch-to-nearest-channel pointer))
+ (funcall riece-buffer-dispose-function (riece-channel-buffer identity))))
(defun riece-redisplay-buffers (&optional force)
(riece-update-buffers)
(defun riece-redisplay-buffers (&optional force)
(riece-update-buffers)