जवाबों:
बाध्य message-log-maxकरने के लिए nil:
(defun foo ()
(interactive)
(let ((message-log-max nil))
(message "EEEEEEEEEEEEEEEEEE")))
M-x foo RET
[पुनश्च इस तरह की M-: (let ((message-log-max nil)) (message "EEEEEEEEEEEEEEEEEE"))सोच के रूप में चीजों का उपयोग कर परीक्षण द्वारा गुमराह नहीं किया जा सकता है कि सेक्सप का EEEEEEEEEEEEEEEEEE मूल्यांकन करने से वह संदेश है जो आउटपुट द्वारा किया गया था । इसके बजाय उस मूल्यांकन द्वारा लौटाया गया मान है। अगर है तो कुछ भी लॉग न करें ।]let messagemessage*Messages*message-log-maxnil
मैं इसे करने के लिए एक तरह से नहीं बना पाया, इसलिए मैंने इस अजीब समारोह को हैक कर लिया:
(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))))
के लिए प्रलेखन की जाँच करें message-log-max।