Mercurial > emacs
changeset 22953:fbeacfb09096
(forward-paragraph): Fix the logic for handling beginning of buffer
in the "no fill-prefix" case.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Sat, 08 Aug 1998 21:31:12 +0000 |
| parents | cd40154f3c7a |
| children | 928b337d953b |
| files | lisp/textmodes/paragraphs.el |
| diffstat | 1 files changed, 10 insertions(+), 7 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/textmodes/paragraphs.el Sat Aug 08 21:28:09 1998 +0000 +++ b/lisp/textmodes/paragraphs.el Sat Aug 08 21:31:12 1998 +0000 @@ -184,7 +184,7 @@ paragraph-separate)) ;; This is used for searching. (sp-paragraph-start (concat "^[ \t]*\\(" paragraph-start "\\)")) - start) + start found-start) (while (and (< arg 0) (not (bobp))) (if (and (not (looking-at paragraph-separate)) (re-search-backward "^\n" (max (1- (point)) (point-min)) t) @@ -223,18 +223,21 @@ ;;; (forward-line 1)) (not (bobp))) (while (and (re-search-backward sp-paragraph-start nil 1) + (setq found-start t) ;; Found a candidate, but need to check if it is a ;; REAL paragraph-start. - (not (bobp)) (progn (setq start (point)) (move-to-left-margin) (not (looking-at paragraph-separate))) - (or (not (looking-at paragraph-start)) - (and use-hard-newlines - (not (get-text-property (1- start) - 'hard))))) + (not (and (looking-at paragraph-start) + (not + (and use-hard-newlines + (not (bobp)) + (not (get-text-property (1- start) + 'hard))))))) + (setq found-start nil) (goto-char start)) - (> (point) (point-min))) + found-start) ;; Found one. (progn ;; Move forward over paragraph separators.