Mercurial > hg > xemacs-beta

comparison lisp/prim/simple.el @ 30:ec9a17fef872 r19-15b98

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r19-15b98
author cvs
date Mon, 13 Aug 2007 08:52:29 +0200
parents 1917ad0d78d7
children e04119814345
comparison
equal deleted inserted replaced
29:7976500f47f9 30:ec9a17fef872
478 (message "Region has %d lines, %d characters" 478 (message "Region has %d lines, %d characters"
479 (count-lines start end) (- end start))) 479 (count-lines start end) (- end start)))
480 480
481 ;; XEmacs 481 ;; XEmacs
482 (defun count-lines-buffer (b) 482 (defun count-lines-buffer (b)
483 "Print number of lines and charcters in the specified buffer." 483 "Print number of lines and characters in the specified buffer."
484 (interactive "_b") 484 (interactive "_b")
485 (save-excursion 485 (save-excursion
486 (let ((buf (or b (current-buffer))) 486 (let ((buf (or b (current-buffer)))
487 cnt) 487 cnt)
488 (set-buffer buf) 488 (set-buffer buf)
3057 ; (interactive) 3057 ; (interactive)
3058 ; (pop-to-buffer " *Message-Log*")) 3058 ; (pop-to-buffer " *Message-Log*"))
3059 3059
3060 (defvar log-message-filter-function 'log-message-filter 3060 (defvar log-message-filter-function 'log-message-filter
3061 "Value must be a function of two arguments: a symbol (label) and 3061 "Value must be a function of two arguments: a symbol (label) and
3062 a string (messsage). It should return non-nil to indicate a message 3062 a string (message). It should return non-nil to indicate a message
3063 should be logged. Possible values include 'log-message-filter and 3063 should be logged. Possible values include 'log-message-filter and
3064 'log-message-filter-errors-only.") 3064 'log-message-filter-errors-only.")
3065 3065
3066 (defun log-message-filter (label message) 3066 (defun log-message-filter (label message)
3067 "Default value of log-message-filter-function. 3067 "Default value of log-message-filter-function.