Mercurial > hg > xemacs-beta

diff lisp/prim/paragraphs.el @ 159:3bb7ccffb0c0 r20-3b6

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-3b6
author cvs
date Mon, 13 Aug 2007 09:41:43 +0200
parents 360340f9fd5f
children
line wrap: on
line diff
--- a/lisp/prim/paragraphs.el	Mon Aug 13 09:40:48 2007 +0200
+++ b/lisp/prim/paragraphs.el	Mon Aug 13 09:41:43 2007 +0200
@@ -1,6 +1,6 @@
 ;;; paragraphs.el --- paragraph and sentence parsing.
 
-;; Copyright (C) 1985, 86, 87, 91, 94, 95 Free Software Foundation, Inc.
+;; Copyright (C) 1985, 86, 87, 91, 94, 95, 97 Free Software Foundation, Inc.
 
 ;; Maintainer: FSF
 ;; Keywords: wp
@@ -29,6 +29,9 @@
 ;; This package provides the paragraph-oriented commands documented in the
 ;; XEmacs Reference Manual.
 
+;; 06/11/1997 - Use char-(after|before) instead of
+;;  (following|preceding)-char. -slb
+
 ;;; Code:
 
 (defvar use-hard-newlines nil
@@ -283,7 +286,7 @@
 (defun end-of-paragraph-text ()
   (let ((opoint (point)))
     (forward-paragraph 1)
-    (if (eq (preceding-char) ?\n) (forward-char -1))
+    (if (eq (char-before (point)) ?\n) (forward-char -1))
     (if (<= (point) opoint)
 	(progn
 	  (forward-char 1)