diff options
author | Miles Bader <miles@gnu.org> | 1996-07-04 18:55:49 +0000 |
---|---|---|
committer | Miles Bader <miles@gnu.org> | 1996-07-04 18:55:49 +0000 |
commit | 9cd93d1a1364030a4b3d6f34f3f9934185ce54e3 (patch) | |
tree | 731ae20c5538b0ae70af261d1db7b64b04570a7a | |
parent | 327129b568e59b581555313012fd581fef5379cc (diff) | |
download | emacs-9cd93d1a1364030a4b3d6f34f3f9934185ce54e3.tar.gz |
(newline): Don't do the optimization if the newline before point is
intangible or read-only or invisible.
-rw-r--r-- | lisp/simple.el | 8 |
1 files changed, 8 insertions, 0 deletions
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) |