Mercurial > hg > xemacs-beta

comparison lisp/vm/vm-page.el @ 26:441bb1e64a06 r19-15b96

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r19-15b96
author cvs
date Mon, 13 Aug 2007 08:51:32 +0200
parents 4103f0995bd7
children ec9a17fef872
comparison
equal deleted inserted replaced
25:383a494979f8 26:441bb1e64a06
185 (= (vm-text-end-of (car vm-message-pointer)) (point-max)) 185 (= (vm-text-end-of (car vm-message-pointer)) (point-max))
186 (vm-emit-eom-blurb)))) 186 (vm-emit-eom-blurb))))
187 187
188 (defun vm-emit-eom-blurb () 188 (defun vm-emit-eom-blurb ()
189 (if (vm-full-name-of (car vm-message-pointer)) 189 (if (vm-full-name-of (car vm-message-pointer))
190 (vm-unsaved-message "End of message %s from %s" 190 (message "End of message %s from %s"
191 (vm-number-of (car vm-message-pointer)) 191 (vm-number-of (car vm-message-pointer))
192 (vm-full-name-of (car vm-message-pointer))) 192 (vm-full-name-of (car vm-message-pointer)))
193 (vm-unsaved-message "End of message %s" 193 (message "End of message %s"
194 (vm-number-of (car vm-message-pointer))))) 194 (vm-number-of (car vm-message-pointer)))))
195 195
196 (defun vm-scroll-backward (arg) 196 (defun vm-scroll-backward (arg)
197 "Scroll backward a screenful of text. 197 "Scroll backward a screenful of text.
198 Prefix N scrolls backward N lines." 198 Prefix N scrolls backward N lines."