Mercurial > emacs
changeset 15605:8b2f2d10c40a
(newline): Don't do the optimization if the newline before point is
intangible or read-only or invisible.
| author | Miles Bader <miles@gnu.org> |
|---|---|
| date | Thu, 04 Jul 1996 18:55:49 +0000 |
| parents | c2eb0b07acba |
| children | 1891a5cddce6 |
| files | lisp/simple.el |
| diffstat | 1 files changed, 8 insertions(+), 0 deletions(-) [+] |
line wrap: on
line diff
--- 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)