# HG changeset patch
# User Miles Bader <miles@gnu.org>
# Date 836506549 0
# Node ID 8b2f2d10c40ad1624fe5340548184ff72a0432f4
# Parent  c2eb0b07acba7d796a7df6dc0523cdad22094d1c
(newline): Don't do the optimization if the newline before point is
	intangible or read-only or invisible.

diff -r c2eb0b07acba -r 8b2f2d10c40a lisp/simple.el
--- a/lisp/simple.el	Thu Jul 04 05:59:23 1996 +0000
+++ b/lisp/simple.el	Thu Jul 04 18:55:49 1996 +0000
@@ -39,6 +39,14 @@
   ;; 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)