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> 2001-08-21 Ulrik Haugen <qha@lysator.liu.se>
* vars.el.in (lyskom-text-buttons): understands links broken * vars.el.in (lyskom-text-buttons): understands links broken
......
...@@ -798,9 +798,7 @@ returns t if it trimmed the buffer, nil otherwise." ...@@ -798,9 +798,7 @@ returns t if it trimmed the buffer, nil otherwise."
(forward-line 1)) (forward-line 1))
(setq lyskom-trim-buffer-delete-to (point)) (setq lyskom-trim-buffer-delete-to (point))
(run-hooks 'lyskom-trim-buffer-hook) (run-hooks 'lyskom-trim-buffer-hook)
(delete-region (point-min) lyskom-trim-buffer-delete-to) (delete-region (point-min) lyskom-trim-buffer-delete-to)))
(setq lyskom-last-viewed
(- lyskom-last-viewed -1 lyskom-trim-buffer-delete-to))))
t)) t))
(defun lyskom-garb-lyskom-buffer-to-file () (defun lyskom-garb-lyskom-buffer-to-file ()
...@@ -963,7 +961,7 @@ Args: FORMAT-STRING &rest ARGS" ...@@ -963,7 +961,7 @@ Args: FORMAT-STRING &rest ARGS"
(defun lyskom-set-last-viewed () (defun lyskom-set-last-viewed ()
(save-excursion (save-excursion
(vertical-motion 0) (vertical-motion 0)
(setq lyskom-last-viewed (point)))) (setq lyskom-last-viewed (point-marker))))
;;; ================================================================ ;;; ================================================================
......
...@@ -61,7 +61,7 @@ ...@@ -61,7 +61,7 @@
(goto-char (point-max)) (goto-char (point-max))
(save-restriction (save-restriction
(when (> lyskom-last-viewed (point-max)) (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)) (narrow-to-region lyskom-last-viewed (point-max))
(if (search-backward lyskom-current-prompt-text nil t) (if (search-backward lyskom-current-prompt-text nil t)
(forward-char (length lyskom-current-prompt-text)) (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