Mercurial > hg > xemacs-beta
comparison lisp/simple.el @ 235:85a06df23a9a r20-5b16
Import from CVS: tag r20-5b16
| author | cvs |
|---|---|
| date | Mon, 13 Aug 2007 10:14:40 +0200 |
| parents | 2c611d1463a6 |
| children | 41f2f0e326e9 |
comparison
equal
deleted
inserted
replaced
| 234:946e7f6ce379 | 235:85a06df23a9a |
|---|---|
| 3481 a string (message). It should return non-nil to indicate a message | 3481 a string (message). It should return non-nil to indicate a message |
| 3482 should be logged. Possible values include 'log-message-filter and | 3482 should be logged. Possible values include 'log-message-filter and |
| 3483 'log-message-filter-errors-only.") | 3483 'log-message-filter-errors-only.") |
| 3484 | 3484 |
| 3485 (defun log-message-filter (label message) | 3485 (defun log-message-filter (label message) |
| 3486 "Default value of log-message-filter-function. | 3486 "Default value of `log-message-filter-function'. |
| 3487 Mesages whose text matches one of the log-message-ignore-regexps | 3487 Messages whose text matches one of the `log-message-ignore-regexps' |
| 3488 or whose label appears in log-message-ignore-labels are not saved." | 3488 or whose label appears in `log-message-ignore-labels' are not saved." |
| 3489 (let ((r log-message-ignore-regexps) | 3489 (let ((r log-message-ignore-regexps) |
| 3490 (ok (not (memq label log-message-ignore-labels)))) | 3490 (ok (not (memq label log-message-ignore-labels)))) |
| 3491 (save-match-data | 3491 (save-match-data |
| 3492 (while (and r ok) | 3492 (while (and r ok) |
| 3493 (when (string-match (car r) message) | 3493 (when (string-match (car r) message) |
| 3494 (setq ok nil)) | 3494 (setq ok nil)) |
| 3495 (setq r (cdr r)))) | 3495 (setq r (cdr r)))) |
| 3496 ok)) | 3496 ok)) |
| 3497 | 3497 |
| 3498 (defun log-message-filter-errors-only (label message) | 3498 (defun log-message-filter-errors-only (label message) |
| 3499 "For use as the log-message-filter-function. Only logs error messages." | 3499 "For use as the `log-message-filter-function'. Only logs error messages." |
| 3500 (eq label 'error)) | 3500 (eq label 'error)) |
| 3501 | 3501 |
| 3502 (defun log-message (label message) | 3502 (defun log-message (label message) |
| 3503 "Stuff a copy of the message into the \" *Message-Log*\" buffer, | 3503 "Stuff a copy of the message into the \" *Message-Log*\" buffer, |
| 3504 if it satisfies the log-message-filter-function. | 3504 if it satisfies the `log-message-filter-function'. |
| 3505 | 3505 |
| 3506 For use on remove-message-hook." | 3506 For use on `remove-message-hook'." |
| 3507 (when (and (not noninteractive) | 3507 (when (and (not noninteractive) |
| 3508 (funcall log-message-filter-function label message)) | 3508 (funcall log-message-filter-function label message)) |
| 3509 (with-current-buffer (get-buffer-create " *Message-Log*") | 3509 (with-current-buffer (get-buffer-create " *Message-Log*") |
| 3510 (goto-char (point-max)) | 3510 (goto-char (point-max)) |
| 3511 ;; (insert (concat (upcase (symbol-name label)) ": " message "\n")) | 3511 ;; (insert (concat (upcase (symbol-name label)) ": " message "\n")) |