Mercurial > hg > xemacs-beta

comparison lisp/prim/simple.el @ 189:489f57a838ef r20-3b21

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-3b21
author cvs
date Mon, 13 Aug 2007 09:57:07 +0200
parents e121b013d1f0
children f53b5ca2e663
comparison
equal deleted inserted replaced
188:e29a8e7498d9 189:489f57a838ef
3467 * prompt prompt-like messages like \"I-search: foo\" 3467 * prompt prompt-like messages like \"I-search: foo\"
3468 * no-log messages that should never be logged" 3468 * no-log messages that should never be logged"
3469 (clear-message label frame stdout-p t) 3469 (clear-message label frame stdout-p t)
3470 (append-message label message frame stdout-p)) 3470 (append-message label message frame stdout-p))
3471 3471
3472 (defun current-message (&optional frame)
3473 "Returns the current message in the echo area, or nil.
3474 The FRAME argument is currently unused."
3475 (cdr (car message-stack)))
3476
3472 ;;; may eventually be frame-dependent 3477 ;;; may eventually be frame-dependent
3473 (defun current-message-label (frame) 3478 (defun current-message-label (&optional frame)
3474 (if message-stack 3479 (if message-stack
3475 (car (car message-stack)) 3480 (car (car message-stack))
3476 nil)) 3481 nil))
3477 3482
3478 (defun message (fmt &rest args) 3483 (defun message (fmt &rest args)