update.

[chise/xemacs-chise.git.1] / lisp / paragraphs.el

diff --git a/lisp/paragraphs.el b/lisp/paragraphs.el
index 0d209a9..68b7a55 100644 (file)
--- a/lisp/paragraphs.el
+++ b/lisp/paragraphs.el
@@ -124,7 +124,9 @@ hard newline are considered to match.")
 
 (defconst paragraph-separate "[ \t\f]*$" "\
 *Regexp for beginning of a line that separates paragraphs.
-If you change this, you may have to change paragraph-start also.
+If you change this, you may have to change `paragraph-start' also.
+
+A line matching this is not part of any paragraph.
 
 This is matched against the text at the left margin, which is not necessarily
 the beginning of the line, so it should not use \"^\" as an anchor.  This
@@ -188,7 +190,7 @@ to which the end of the previous line belongs, or the end of the buffer."
          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)))
@@ -335,7 +337,7 @@ negative arg -N means kill forward to Nth end of paragraph."
 (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)
@@ -347,7 +349,7 @@ negative arg -N means kill forward to Nth end of paragraph."
 With negative argument, move backward repeatedly to `sentence-beginning'.
 
 The variable `sentence-end' is a regular expression that matches ends of
-sentences.  Also, every paragraph boundary terminates sentences as well."
+sentences.  A paragraph boundary also terminates a sentence."
   (interactive "_p") ; XEmacs
   (or arg (setq arg 1))
   (while (< arg 0)