projects
/
elisp
/
riece.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
* riece-server.el (riece-open-server): Record errors for debug.
[elisp/riece.git]
/
lisp
/
riece-server.el
diff --git
a/lisp/riece-server.el
b/lisp/riece-server.el
index
8f3872a
..
b68c5a0
100644
(file)
--- a/
lisp/riece-server.el
+++ b/
lisp/riece-server.el
@@
-30,6
+30,7
@@
(require 'riece-identity)
(require 'riece-compat)
(require 'riece-cache)
(require 'riece-identity)
(require 'riece-compat)
(require 'riece-cache)
+(require 'riece-debug)
(eval-and-compile
(defvar riece-server-keyword-map
(eval-and-compile
(defvar riece-server-keyword-map
@@
-222,9
+223,8
@@
the `riece-server-keyword-map' variable."
"-open-server")))
(unless function
(error "\"%S\" is not supported" protocol))
"-open-server")))
(unless function
(error "\"%S\" is not supported" protocol))
- (condition-case nil
- (setq process (funcall function server server-name))
- (error))
+ (setq process (riece-funcall-ignore-errors (symbol-name function)
+ function server server-name))
(when process
(with-current-buffer (process-buffer process)
(make-local-variable 'riece-protocol)
(when process
(with-current-buffer (process-buffer process)
(make-local-variable 'riece-protocol)
@@
-261,6
+261,7
@@
the `riece-server-keyword-map' variable."
(make-local-variable 'riece-server-name)
(make-local-variable 'riece-read-point)
(setq riece-read-point (point-min))
(make-local-variable 'riece-server-name)
(make-local-variable 'riece-read-point)
(setq riece-read-point (point-min))
+ (make-local-variable 'riece-filter-running)
(make-local-variable 'riece-send-queue)
(setq riece-send-queue (riece-make-queue))
(make-local-variable 'riece-send-size)
(make-local-variable 'riece-send-queue)
(setq riece-send-queue (riece-make-queue))
(make-local-variable 'riece-send-size)