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
52325bee
Commit
52325bee
authored
Jul 10, 2005
by
Richard M. Stallman
Browse files
(longlines-show-region, longlines-unshow-hard-newlines):
Recognize hard newlines by non-nil hard property, instead of t.
parent
8ea74b0e
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
4 additions
and
4 deletions
+4
-4
lisp/longlines.el
lisp/longlines.el
+4
-4
No files found.
lisp/longlines.el
View file @
52325bee
...
...
@@ -170,20 +170,20 @@ With optional argument ARG, make the hard newlines invisible again."
"Make hard newlines between BEG and END visible."
(
let*
((
pmin
(
min
beg
end
))
(
pmax
(
max
beg
end
))
(
pos
(
text-property-
any
pmin
pmax
'hard
t
)))
(
pos
(
text-property-
not-all
pmin
pmax
'hard
nil
)))
(
while
pos
(
put-text-property
pos
(
1+
pos
)
'display
(
copy-sequence
longlines-show-effect
))
(
setq
pos
(
text-property-
any
(
1+
pos
)
pmax
'hard
t
)))))
(
setq
pos
(
text-property-
not-all
(
1+
pos
)
pmax
'hard
nil
)))))
(
defun
longlines-unshow-hard-newlines
()
"Make hard newlines invisible again."
(
interactive
)
(
setq
longlines-showing
nil
)
(
let
((
pos
(
text-property-
any
(
point-min
)
(
point-max
)
'hard
t
)))
(
let
((
pos
(
text-property-
not-all
(
point-min
)
(
point-max
)
'hard
nil
)))
(
while
pos
(
remove-text-properties
pos
(
1+
pos
)
'
(
display
))
(
setq
pos
(
text-property-
any
(
1+
pos
)
(
point-max
)
'hard
t
)))))
(
setq
pos
(
text-property-
not-all
(
1+
pos
)
(
point-max
)
'hard
nil
)))))
;; Wrapping the paragraphs.
...
...
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