Emacs Part 51

[40 名無しさん＠お腹いっぱい。 2018/02/15(木) 03:39:28.16]

>>38
argsをあれこれしなくても、単に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))