Yanıtlar:
Bağlama message-log-max
için nil
:
(defun foo ()
(interactive)
(let ((message-log-max nil))
(message "EEEEEEEEEEEEEEEEEE")))
M-x foo RET
[PS , sexp'i değerlendirmenin çıktısı olan mesaj olduğunu M-: (let ((message-log-max nil)) (message "EEEEEEEEEEEEEEEEEE"))
düşünmek gibi şeyleri kullanarak yapılan testlerle yanıltılmayın . Bunun yerine bu değerlendirmenin getirdiği değerdir. bir şey kütüğe eğer olduğunu .]EEEEEEEEEEEEEEEEEE
let
message
message
*Messages*
message-log-max
nil
Bunu yapmak için bir yol bulamadım, bu yüzden bu garip işlevi hackledim:
(defun echo-and-ignore-message-buffer (message)
(let ((prev-msg-log-max message-log-max))
(unwind-protect
(progn (setq message-log-max nil)
(message message))
(setq message-log-max prev-msg-log-max))))
İçin belgelere bakın message-log-max
.