lyskom-last-viewed is now a marker.

src/ChangeLog

+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

@@ -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

@@ -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))