Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Open sidebar
emacs
emacs
Commits
31a5333f
Commit
31a5333f
authored
Jul 04, 1996
by
Miles Bader
Browse files
(newline): Don't do the optimization if the newline before point is
intangible or read-only or invisible.
parent
f5bdf293
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
8 additions
and
0 deletions
+8
-0
lisp/simple.el
lisp/simple.el
+8
-0
No files found.
lisp/simple.el
View file @
31a5333f
...
...
@@ -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
)
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment