* riece-server.el: Move autoload setting for 'riece-exit before

[riece] / lisp / riece-server.el

diff --git a/lisp/riece-server.el b/lisp/riece-server.el
index d49e4d4..442f23a 100644 (file)
--- a/lisp/riece-server.el
+++ b/lisp/riece-server.el
@@ -127,6 +127,8 @@ the `riece-server-keyword-map' variable."
                   "Type \\[riece-command-open-server] to open server.")))
     (riece-process-send-string process string)))
 
+(eval-when-compile
+  (autoload 'riece-exit "riece"))
 (defun riece-open-server (server server-name)
   (riece-server-keyword-bind server
     (let (selective-display
@@ -238,8 +240,6 @@ the `riece-server-keyword-map' variable."
              (throw 'found t))
          (setq alist (cdr alist)))))))
 
-(eval-when-compile
-  (autoload 'riece-exit "riece"))
 (defun riece-quit-server-process (process &optional message)
   (if riece-quit-timeout
       (riece-run-at-time riece-quit-timeout nil