Fix byte-compile error

[riece] / lisp / riece-server.el

diff --git a/lisp/riece-server.el b/lisp/riece-server.el
index b68c5a0..c189ae4 100644 (file)
--- a/lisp/riece-server.el
+++ b/lisp/riece-server.el
@@ -1,4 +1,4 @@
-;;; riece-server.el --- functions to open and close servers
+;;; riece-server.el --- functions to open and close servers -*- lexical-binding: t -*-
 ;; Copyright (C) 1998-2003 Daiki Ueno
 
 ;; Author: Daiki Ueno <ueno@unixuser.org>
@@ -243,8 +243,7 @@ the `riece-server-keyword-map' variable."
        (funcall function process message))))
 
 (defun riece-reset-process-buffer (process)
-  (save-excursion
-    (set-buffer (process-buffer process))
+  (with-current-buffer (process-buffer process)
     (if (fboundp 'set-buffer-multibyte)
        (set-buffer-multibyte nil))
     (kill-all-local-variables)