0038名無しさん@お腹いっぱい。
2018/02/15(木) 01:34:43.44ありがとうございます。元の内容を再表示すればいいんですね。
message と同じように使える関数にしてみました。
(defun my-no-echo-message (format-string &rest args)
(let ((currmsg (current-message))
(result (message (if args
(apply 'format format-string args)
format-string))))
(let ((message-log-max nil))
(message (replace-regexp-in-string "%" "%%" (or currmsg ""))))
result))