projects
/
riece
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
* riece-server.el (riece-close-server-process): Switch to process
[riece]
/
lisp
/
riece-server.el
diff --git
a/lisp/riece-server.el
b/lisp/riece-server.el
index
34c6e3d
..
39c1610
100644
(file)
--- a/
lisp/riece-server.el
+++ b/
lisp/riece-server.el
@@
-266,7
+266,8
@@
the `riece-server-keyword-map' variable."
(erase-buffer)))
(defun riece-close-server-process (process)
(erase-buffer)))
(defun riece-close-server-process (process)
- (run-hooks 'riece-after-close-hook)
+ (with-current-buffer (process-buffer process)
+ (run-hooks 'riece-after-close-hook))
(kill-buffer (process-buffer process))
(setq riece-server-process-alist
(delq (rassq process riece-server-process-alist)
(kill-buffer (process-buffer process))
(setq riece-server-process-alist
(delq (rassq process riece-server-process-alist)