Mercurial > hg > xemacs-beta

comparison lisp/vm/vm-search19.el @ 54:05472e90ae02 r19-16-pre2

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r19-16-pre2
author cvs
date Mon, 13 Aug 2007 08:57:55 +0200
parents 376386a54a3c
children 131b0175ea99
comparison
equal deleted inserted replaced
53:875393c1a535 54:05472e90ae02
77 (narrow-to-region 77 (narrow-to-region
78 (if (< (point) (vm-vheaders-of (car vm-message-pointer))) 78 (if (< (point) (vm-vheaders-of (car vm-message-pointer)))
79 (vm-start-of (car vm-message-pointer)) 79 (vm-start-of (car vm-message-pointer))
80 (vm-vheaders-of (car vm-message-pointer))) 80 (vm-vheaders-of (car vm-message-pointer)))
81 (vm-text-end-of (car vm-message-pointer))) 81 (vm-text-end-of (car vm-message-pointer)))
82 (save-excursion (vm-energize-urls))
82 (vm-display nil nil 83 (vm-display nil nil
83 '(vm-isearch-forward vm-isearch-backward) 84 '(vm-isearch-forward vm-isearch-backward)
84 '(reading-message)) 85 '(reading-message))
85 ;; turn the unwinds into a noop 86 ;; turn the unwinds into a noop
86 (setq old-vm-message-pointer vm-message-pointer) 87 (setq old-vm-message-pointer vm-message-pointer)