nil
(setq start (point))
;; Move back over paragraph-separating lines.
- (forward-char -1) (beginning-of-line)
+ (backward-char 1) (beginning-of-line)
(while (and (not (bobp))
(progn (move-to-left-margin)
(looking-at paragraph-separate)))
(defun end-of-paragraph-text ()
(let ((opoint (point)))
(forward-paragraph 1)
- (if (eq (char-before (point)) ?\n) (forward-char -1))
+ (if (eq (char-before (point)) ?\n) (backward-char 1))
(if (<= (point) opoint)
(progn
(forward-char 1)