Mercurial > hg > xemacs-beta

comparison lisp/prim/simple.el @ 167:85ec50267440 r20-3b10

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-3b10
author cvs
date Mon, 13 Aug 2007 09:45:46 +0200
parents 5a88923fcbfe
children 15872534500d
comparison
equal deleted inserted replaced
166:7a77eb660975 167:85ec50267440
3288 "Value must be a function of two arguments: a symbol (label) and 3288 "Value must be a function of two arguments: a symbol (label) and
3289 a string (message). It should return non-nil to indicate a message 3289 a string (message). It should return non-nil to indicate a message
3290 should be logged. Possible values include 'log-message-filter and 3290 should be logged. Possible values include 'log-message-filter and
3291 'log-message-filter-errors-only.") 3291 'log-message-filter-errors-only.")
3292 3292
3293 (defun show-message-log ()
3294 "Show the \" *Message-Log*\" buffer, which contains old messages and errors."
3295 (interactive)
3296 (pop-to-buffer " *Message-Log*"))
3297
3293 (defun log-message-filter (label message) 3298 (defun log-message-filter (label message)
3294 "Default value of log-message-filter-function. 3299 "Default value of log-message-filter-function.
3295 Mesages whose text matches one of the log-message-ignore-regexps 3300 Mesages whose text matches one of the log-message-ignore-regexps
3296 or whose label appears in log-message-ignore-labels are not saved." 3301 or whose label appears in log-message-ignore-labels are not saved."
3297 (let ((r log-message-ignore-regexps) 3302 (let ((r log-message-ignore-regexps)