Emacs Part 51 - 暇つぶし2ch

Emacs Part 51 ..

38:名無しさん＠お腹いっぱい。
18/02/15 01:34:43.44 .net
>>36
ありがとうございます。元の内容を再表示すればいいんですね。
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))

次ページ

続きを表示

1を表示