Mercurial > hg > xemacs-beta

comparison lisp/paragraphs.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 576fb035e263
children 98528da0b7fc
comparison
equal deleted inserted replaced
445:34f3776fcf0e 446:1ccc32a20af4
186 (re-search-backward "^\n" (max (1- (point)) (point-min)) t) 186 (re-search-backward "^\n" (max (1- (point)) (point-min)) t)
187 (looking-at paragraph-separate)) 187 (looking-at paragraph-separate))
188 nil 188 nil
189 (setq start (point)) 189 (setq start (point))
190 ;; Move back over paragraph-separating lines. 190 ;; Move back over paragraph-separating lines.
191 (forward-char -1) (beginning-of-line) 191 (backward-char 1) (beginning-of-line)
192 (while (and (not (bobp)) 192 (while (and (not (bobp))
193 (progn (move-to-left-margin) 193 (progn (move-to-left-margin)
194 (looking-at paragraph-separate))) 194 (looking-at paragraph-separate)))
195 (forward-line -1)) 195 (forward-line -1))
196 (if (bobp) 196 (if (bobp)
333 (start-of-paragraph-text)))))) 333 (start-of-paragraph-text))))))
334 334
335 (defun end-of-paragraph-text () 335 (defun end-of-paragraph-text ()
336 (let ((opoint (point))) 336 (let ((opoint (point)))
337 (forward-paragraph 1) 337 (forward-paragraph 1)
338 (if (eq (char-before (point)) ?\n) (forward-char -1)) 338 (if (eq (char-before (point)) ?\n) (backward-char 1))
339 (if (<= (point) opoint) 339 (if (<= (point) opoint)
340 (progn 340 (progn
341 (forward-char 1) 341 (forward-char 1)
342 (if (< (point) (point-max)) 342 (if (< (point) (point-max))
343 (end-of-paragraph-text)))))) 343 (end-of-paragraph-text))))))