diff options
| author | Miles Bader | 1996-07-04 18:55:49 +0000 |
|---|---|---|
| committer | Miles Bader | 1996-07-04 18:55:49 +0000 |
| commit | 31a5333fd0752a2fc9453e8f703db7f8ae7e017a (patch) | |
| tree | 064f271aaea4e64a07ae1fd40ff18841c6c36dd6 | |
| parent | f5bdf293d7bff80d933c7ed9f3d7b2c013113913 (diff) | |
| download | emacs-31a5333fd0752a2fc9453e8f703db7f8ae7e017a.tar.gz emacs-31a5333fd0752a2fc9453e8f703db7f8ae7e017a.zip | |
(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." | |||
| 39 | ;; the end of the previous line. | 39 | ;; the end of the previous line. |
| 40 | (let ((flag (and (not (bobp)) | 40 | (let ((flag (and (not (bobp)) |
| 41 | (bolp) | 41 | (bolp) |
| 42 | ;; Make sure the newline before point isn't intangible. | ||
| 43 | (not (get-char-property (1- (point)) 'intangible)) | ||
| 44 | ;; Make sure the newline before point isn't read-only. | ||
| 45 | (not (get-char-property (1- (point)) 'read-only)) | ||
| 46 | ;; Make sure the newline before point isn't invisible. | ||
| 47 | (not (get-char-property (1- (point)) 'invisible)) | ||
| 48 | ;; Make sure the newline before point has the same | ||
| 49 | ;; properties as the char before it (if any). | ||
| 42 | (< (or (previous-property-change (point)) -2) | 50 | (< (or (previous-property-change (point)) -2) |
| 43 | (- (point) 2)))) | 51 | (- (point) 2)))) |
| 44 | (was-page-start (and (bolp) | 52 | (was-page-start (and (bolp) |