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
lyskom-elisp-client
lyskom-elisp-client
Commits
4139d773
Commit
4139d773
authored
Aug 22, 2001
by
Ulrik Haugen
Browse files
lyskom-last-viewed is now a marker.
parent
eb6cdafb
Changes
3
Hide whitespace changes
Inline
Side-by-side
src/ChangeLog
View file @
4139d773
2001-08-22 Ulrik Haugen <qha@lysator.liu.se>
* lyskom-rest.el (lyskom-set-last-viewed): set lyskom-last-viewed
to a marker in stead of an integer.
(lyskom-trim-buffer): don't update
lyskom-last-viewed since it's a marker now.
* slow.el (lyskom-slow-start-of-line): see above.
2001-08-21 Ulrik Haugen <qha@lysator.liu.se>
* vars.el.in (lyskom-text-buttons): understands links broken
...
...
src/lyskom-rest.el
View file @
4139d773
...
...
@@ -798,9 +798,7 @@ returns t if it trimmed the buffer, nil otherwise."
(
forward-line
1
))
(
setq
lyskom-trim-buffer-delete-to
(
point
))
(
run-hooks
'lyskom-trim-buffer-hook
)
(
delete-region
(
point-min
)
lyskom-trim-buffer-delete-to
)
(
setq
lyskom-last-viewed
(
-
lyskom-last-viewed
-1
lyskom-trim-buffer-delete-to
))))
(
delete-region
(
point-min
)
lyskom-trim-buffer-delete-to
)))
t
))
(
defun
lyskom-garb-lyskom-buffer-to-file
()
...
...
@@ -963,7 +961,7 @@ Args: FORMAT-STRING &rest ARGS"
(
defun
lyskom-set-last-viewed
()
(
save-excursion
(
vertical-motion
0
)
(
setq
lyskom-last-viewed
(
point
))))
(
setq
lyskom-last-viewed
(
point
-marker
))))
;;; ================================================================
...
...
src/slow.el
View file @
4139d773
...
...
@@ -61,7 +61,7 @@
(
goto-char
(
point-max
))
(
save-restriction
(
when
(
>
lyskom-last-viewed
(
point-max
))
(
setq
lyskom-last-viewed
(
point-max
)))
(
setq
lyskom-last-viewed
(
point-max
-marker
)))
(
narrow-to-region
lyskom-last-viewed
(
point-max
))
(
if
(
search-backward
lyskom-current-prompt-text
nil
t
)
(
forward-char
(
length
lyskom-current-prompt-text
))
...
...
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