Path: utzoo!utgpu!water!watmath!clyde!att!osu-cis!tut.cis.ohio-state.edu!bloom-beacon!husc6!cs.utexas.edu!milano!titan!janssen
From: janssen@titan.SW.MCC.COM (Bill Janssen)
Newsgroups: comp.emacs
Subject: Re: Playing with the minibuffer
Summary: rewriting "message"
Message-ID: <801@titan.SW.MCC.COM>
Date: 21 Jun 88 21:10:52 GMT
References: <8806201232.AA03336@marvin.cme.nbs.gov> <367.582840018@pebbles>
Organization: MCC Software Technology
Lines: 19

In article <367.582840018@pebbles>, jr@PEBBLES.BBN.COM (John Robinson) writes:
> Stephe Leake  had a good idea:
> > stuff it in $MESSAGE? Perhaps we could just rewrite (message), or
> > something. 

Seems like this should do it:

	(setq old-message-function (symbol-function 'message))

	(defvar *message-list* nil)

	(defun message (string)
	  (setq *message-list* (cons string *message-list*))
	  (funcall old-message-function string))

The problem is that any built-in functions that call message will still
get the old definition.  Shouldn't be hard to do in the C, though.

Bill