Emacs: emacsclient が動かない: ていへんかけるたかさわるに

Emacs: emacsclient が動かない


Waiting for Emacs...
*ERROR*: Wrong number of arguments: ((vterm--process eshell-preoutput-filter-functions t) (fn &optional next-buffer args) "Honor `with-editor-server-window-alist' (which see)." (let ((server-window (save-current-buffer (set-buffer (or next-buffer (current-buffer))) (if with-editor-mode (progn (setq with-editor-previous-winconf (current-window-configuration)))) (with-editor-server-window)))) (funcall fn next-buffer args))), 5

のようなエラーが出た.

調べたところ, このメッセージは emacsclient から出力されている.
magit-mode が git-commit 内で emacsclient を呼び出している箇所で Emacs30 の server.el の中で定義されている server-switch-buffer という関数が実行されている.
一方, ELPA からインストールした with-editor.el 内で定義されている server-switch-buffer--with-editor-server-window-alist 関数は本来 server-switch-buffer 関数と同じ引数を持つ必要があるのが, 一致していなかった.

Emacs30 の server.el 内の server-switch-buffer 関数は引数として


&optional next-buffer killed-one filepos this-frame-only

をとるが, with-editor.el 内で定義されている server-switch-buffer--with-editor-server-window-alist は引数


&optional next-buffer &rest args

によって呼び出されている.

これに基き, with-editor.el に次のパッチ:


--- with-editor.el.orig	Mon Dec  5 02:20:39 2022
+++ with-editor.el	Thu Jul 20 17:39:18 2023
@@ -532,7 +532,8 @@
server-window))

(defun server-switch-buffer--with-editor-server-window-alist
-    (fn &optional next-buffer &rest args)
+    (fn &optional next-buffer killed-one filepos this-frame-only)
"Honor `with-editor-server-window-alist' (which see)."
(let ((server-window (with-current-buffer
(or next-buffer (current-buffer))
@@ -540,7 +541,7 @@
(setq with-editor-previous-winconf
(current-window-configuration)))
(with-editor-server-window))))
-    (apply fn next-buffer args)))
+    (apply fn next-buffer killed-one filepos this-frame-only)))

(advice-add 'server-switch-buffer :around
#'server-switch-buffer--with-editor-server-window-alist)