Function: calc-temp-minibuffer-message

calc-temp-minibuffer-message is an autoloaded and byte-compiled function defined in calc-misc.el.gz.

Signature

(calc-temp-minibuffer-message M)

Source Code

;; Defined in /usr/src/emacs/lisp/calc/calc-misc.el.gz
;; A Lisp version of temp_minibuffer_message from minibuf.c.
;;;###autoload
(defun calc-temp-minibuffer-message (m)
  (let ((savemax (point-max)))
    (save-excursion
      (goto-char (point-max))
      (insert m))
    (let ((okay nil))
      (unwind-protect
	  (progn
	    (sit-for 2)
	    (identity 1)   ; This forces a call to maybe_quit in bytecode.c.
	    (setq okay t))
	(progn
	  (delete-region savemax (point-max))
	  (or okay (abort-recursive-edit)))))))