Commit 4139d773 authored by Ulrik Haugen's avatar Ulrik Haugen
Browse files

lyskom-last-viewed is now a marker.

parent eb6cdafb
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
......
......@@ -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))))
;;; ================================================================
......
......@@ -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))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment