Function: PC-temp-minibuffer-message

PC-temp-minibuffer-message is a byte-compiled function defined in complete.el.gz.

Signature

(PC-temp-minibuffer-message MESSAGE)

Documentation

A Lisp version of temp_minibuffer_message from minibuf.c.

Source Code

;; Defined in /usr/src/emacs/lisp/obsolete/complete.el.gz
(defun PC-temp-minibuffer-message (message)
  "A Lisp version of `temp_minibuffer_message' from minibuf.c."
  (cond (PC-not-minibuffer
	 (message "%s" message)
	 (sit-for 2)
	 (message ""))
	((fboundp 'temp-minibuffer-message)
	 (temp-minibuffer-message message))
	(t
	 (let ((point-max (point-max)))
	   (save-excursion
	     (goto-char point-max)
	     (insert message))
	   (let ((inhibit-quit t))
	     (sit-for 2)
	     (delete-region point-max (point-max))
	     (when quit-flag
	       (setq quit-flag nil
		     unread-command-events '(7))))))))