Mercurial > hg > xemacs-beta

comparison lisp/page.el @ 446:1ccc32a20af4 r21-2-38

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-2-38
author cvs
date Mon, 13 Aug 2007 11:37:21 +0200
parents 41ff10fd062f
children 6f72d9a709c3
comparison
equal deleted inserted replaced
445:34f3776fcf0e 446:1ccc32a20af4
51 ;; In case the page-delimiter matches the null string, 51 ;; In case the page-delimiter matches the null string,
52 ;; don't find a match without moving. 52 ;; don't find a match without moving.
53 (and (save-excursion (re-search-backward page-delimiter nil t)) 53 (and (save-excursion (re-search-backward page-delimiter nil t))
54 (= (match-end 0) (point)) 54 (= (match-end 0) (point))
55 (goto-char (match-beginning 0))) 55 (goto-char (match-beginning 0)))
56 (forward-char -1) 56 (backward-char 1)
57 (if (re-search-backward page-delimiter nil t) 57 (if (re-search-backward page-delimiter nil t)
58 ;; We found one--move to the end of it. 58 ;; We found one--move to the end of it.
59 (goto-char (match-end 0)) 59 (goto-char (match-end 0))
60 ;; We found nothing--go to beg of buffer. 60 ;; We found nothing--go to beg of buffer.
61 (goto-char (point-min))) 61 (goto-char (point-min)))