From: Miles Bader <miles@gnu.org>
Date: Thu, 4 Jul 1996 18:55:49 +0000 (+0000)
Subject: (newline): Don't do the optimization if the newline before point is
X-Git-Tag: emacs-19.34~257
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=31a5333fd0752a2fc9453e8f703db7f8ae7e017a;p=emacs.git

(newline): Don't do the optimization if the newline before point is
	intangible or read-only or invisible.
---

diff --git a/lisp/simple.el b/lisp/simple.el
index aba6583b34f..5af4bf33379 100644
--- a/lisp/simple.el
+++ b/lisp/simple.el
@@ -39,6 +39,14 @@ In Auto Fill mode, if no numeric arg, break the preceding line if it's long."
   ;; the end of the previous line.
   (let ((flag (and (not (bobp)) 
 		   (bolp)
+		   ;; Make sure the newline before point isn't intangible.
+		   (not (get-char-property (1- (point)) 'intangible))
+		   ;; Make sure the newline before point isn't read-only.
+		   (not (get-char-property (1- (point)) 'read-only))
+		   ;; Make sure the newline before point isn't invisible.
+		   (not (get-char-property (1- (point)) 'invisible))
+		   ;; Make sure the newline before point has the same
+		   ;; properties as the char before it (if any).
 		   (< (or (previous-property-change (point)) -2) 
 		      (- (point) 2))))
 	(was-page-start (and (bolp)