Mercurial > hg > xemacs-beta

comparison lisp/vm/vm-search19.el @ 70:131b0175ea99 r20-0b30

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-0b30
author cvs
date Mon, 13 Aug 2007 09:02:59 +0200
parents 05472e90ae02
children 2d532a89d707
comparison
equal deleted inserted replaced
69:804d1389bcd6 70:131b0175ea99
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))
83 (vm-display nil nil 82 (vm-display nil nil
84 '(vm-isearch-forward vm-isearch-backward) 83 '(vm-isearch-forward vm-isearch-backward)
85 '(reading-message)) 84 '(reading-message))
86 ;; turn the unwinds into a noop 85 ;; turn the unwinds into a noop
87 (setq old-vm-message-pointer vm-message-pointer) 86 (setq old-vm-message-pointer vm-message-pointer)