diff options
| author | Miles Bader <[email protected]> | 1996-07-04 18:55:49 +0000 |
|---|---|---|
| committer | Miles Bader <[email protected]> | 1996-07-04 18:55:49 +0000 |
| commit | 31a5333fd0752a2fc9453e8f703db7f8ae7e017a (patch) | |
| tree | 064f271aaea4e64a07ae1fd40ff18841c6c36dd6 /lisp/simple.el | |
| parent | f5bdf293d7bff80d933c7ed9f3d7b2c013113913 (diff) | |
(newline): Don't do the optimization if the newline before point is
intangible or read-only or invisible.
Diffstat (limited to 'lisp/simple.el')
| -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 aba6583b34..5af4bf3337 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) |