mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-17 10:06:13 +00:00
Code Issues Releases Activity

(newline): Don't do the optimization if the newline before point is

Browse Source 
intangible or read-only or invisible.
This commit is contained in:
Miles Bader 1996-07-04 18:55:49 +00:00
parent f5bdf293d7
commit 31a5333fd0
1 changed files with 8 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
lisp/simple.el
View File

@ -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. ;; the end of the previous line.
(let ((flag (and (not (bobp)) (let ((flag (and (not (bobp))
(bolp) (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) (< (or (previous-property-change (point)) -2)
(- (point) 2)))) (- (point) 2))))
(was-page-start (and (bolp) (was-page-start (and (bolp)