Mercurial > hg > xemacs-beta

comparison lisp/vm/vm-page.el @ 102:a145efe76779 r20-1b3

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-1b3
author cvs
date Mon, 13 Aug 2007 09:15:49 +0200
parents 4be1180a9e89
children 360340f9fd5f
comparison
equal deleted inserted replaced
101:a0ec055d74dd 102:a145efe76779
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."