Function: org-babel-scheme-capture-current-message

org-babel-scheme-capture-current-message is a macro defined in ob-scheme.el.gz.

Signature

(org-babel-scheme-capture-current-message &rest BODY)

Documentation

Capture current message in both interactive and noninteractive mode.

Source Code

;; Defined in /usr/src/emacs/lisp/org/ob-scheme.el.gz
(defmacro org-babel-scheme-capture-current-message (&rest body)
  "Capture current message in both interactive and noninteractive mode."
  `(if noninteractive
       (let ((original-message (symbol-function 'message))
             (current-message nil))
         (unwind-protect
             (progn
               (defun message (&rest args)
                 (setq current-message (apply original-message args)))
               ,@body
               current-message)
           (fset 'message original-message)))
     (progn
       ,@body
       (current-message))))