Commit 19cf057d authored by Ulrik Haugen's avatar Ulrik Haugen
Browse files

removed som useless code I just checked in...

parent 23010255
2000-08-31 Ulrik Haugen <qha@lysator.liu.se>
* lyskom-rest.el (lyskom-trim-buffer): saves point and mark and
* lyskom-rest.el (lyskom-trim-buffer): Saves point and mark and
resets point, mark and lyskom-last-viewed after taking into
consideration lyskom-trim-buffer-delete-to.
(lyskom-trim-buffer): Except point and mark doesn't need this
treatment.
Thu Aug 31 14:38:34 2000 David Byers <davby@sen2.ida.liu.se>
......
......@@ -781,8 +781,6 @@ returns t if it trimmed the buffer, nil otherwise."
(lyskom-save-excursion
(let ((lyskom-trim-buffer-delete-to (- (buffer-size)
kom-max-buffer-size))
(old-point (point))
(old-mark (mark))
(inhibit-read-only t))
(goto-char (point-min))
(while (< (point) lyskom-trim-buffer-delete-to)
......@@ -790,11 +788,8 @@ returns t if it trimmed the buffer, nil otherwise."
(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))
(set-mark (- (+ old-mark 1) lyskom-trim-buffer-delete-to))
(goto-char (- (+ old-point 1) lyskom-trim-buffer-delete-to))))
(- lyskom-last-viewed -1 lyskom-trim-buffer-delete-to))))
t))
(defun lyskom-garb-lyskom-buffer-to-file ()
......
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