From 31a5333fd0752a2fc9453e8f703db7f8ae7e017a Mon Sep 17 00:00:00 2001 From: Miles Bader Date: Thu, 4 Jul 1996 18:55:49 +0000 Subject: [PATCH] (newline): Don't do the optimization if the newline before point is intangible or read-only or invisible. --- lisp/simple.el | 8 ++++++++ 1 file changed, 8 insertions(+) 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) -- 2.39.2