Mercurial > hg > xemacs-beta

diff 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
line wrap: on
line diff
--- a/lisp/paragraphs.el	Mon Aug 13 11:36:20 2007 +0200
+++ b/lisp/paragraphs.el	Mon Aug 13 11:37:21 2007 +0200
@@ -188,7 +188,7 @@
 	  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 +335,7 @@
 (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)