Skip to content
GitLab
Projects
Groups
Snippets
/
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Menu
Open sidebar
Peter Liljenberg
lyskom-elisp-client
Commits
0aabb82c
Commit
0aabb82c
authored
Oct 27, 2004
by
Pontus Freyhult
Browse files
Point old markers to nowhere before forgetting them.
parent
ef58fad4
Changes
2
Hide whitespace changes
Inline
Side-by-side
src/ChangeLog
View file @
0aabb82c
2004-10-27 Pontus Freyhult <pont@soua.net>
* mship-edit.el (lp--erase-entry): Point old markers to nil before
forgetting them.
(lp--print-entry): Dito.
2004-10-26 Pontus Freyhult <pont@soua.net>
* mship-edit.el (lp--redraw-entry-mark): Use lyskom-face-background,
...
...
src/mship-edit.el
View file @
0aabb82c
...
...
@@ -405,8 +405,12 @@ The start and end markers of the entry are adjusted"
(
let
((
buffer-read-only
nil
))
(
insert-before-markers
"\n"
)
(
forward-char
-1
)
(
if
(
lp--entry->start-marker
entry
)
(
set-marker
(
lp--entry->start-marker
entry
)
nil
))
(
set-lp--entry->start-marker
entry
(
point-marker
))
(
lp--format-insert-entry
entry
)
(
if
(
lp--entry->end-marker
entry
)
(
set-marker
(
lp--entry->end-marker
entry
)
nil
))
(
set-lp--entry->end-marker
entry
(
point-marker
))
(
lp--entry-update-extents
entry
)
(
forward-char
1
))
...
...
@@ -419,7 +423,11 @@ The start and end markers of the entry are adjusted"
(
lp--entry->end-marker
entry
))
(
delete-region
(
lp--entry->start-marker
entry
)
(
1+
(
lp--entry->end-marker
entry
))))
(
if
(
lp--entry->start-marker
entry
)
(
set-marker
(
lp--entry->start-marker
entry
)
nil
))
(
set-lp--entry->start-marker
entry
nil
)
(
if
(
lp--entry->end-marker
entry
)
(
set-marker
(
lp--entry->end-marker
entry
)
nil
))
(
set-lp--entry->end-marker
entry
nil
)
(
lp--entry-update-extents
entry
)))
...
...
Write
Preview
Supports
Markdown
0%
Try again
or
attach a new 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