0040名無しさん@お腹いっぱい。垢版
2018/02/15(木) 03:39:28.16argsをあれこれしなくても、単にmessageを直接applyして良いと思う
(defun my-no-echo-message (format-string &rest args)
(let* ((currmsg (current-message))
(result (apply #'message format-string args))
(message-log-max nil))
(message currmsg)
result))