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> 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 resets point, mark and lyskom-last-viewed after taking into
consideration lyskom-trim-buffer-delete-to. 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> 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." ...@@ -781,8 +781,6 @@ returns t if it trimmed the buffer, nil otherwise."
(lyskom-save-excursion (lyskom-save-excursion
(let ((lyskom-trim-buffer-delete-to (- (buffer-size) (let ((lyskom-trim-buffer-delete-to (- (buffer-size)
kom-max-buffer-size)) kom-max-buffer-size))
(old-point (point))
(old-mark (mark))
(inhibit-read-only t)) (inhibit-read-only t))
(goto-char (point-min)) (goto-char (point-min))
(while (< (point) lyskom-trim-buffer-delete-to) (while (< (point) lyskom-trim-buffer-delete-to)
...@@ -790,11 +788,8 @@ returns t if it trimmed the buffer, nil otherwise." ...@@ -790,11 +788,8 @@ returns t if it trimmed the buffer, nil otherwise."
(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 (setq lyskom-last-viewed
(- (+ lyskom-last-viewed 1) lyskom-trim-buffer-delete-to)) (- 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))))
t)) t))
(defun lyskom-garb-lyskom-buffer-to-file () (defun lyskom-garb-lyskom-buffer-to-file ()
......
Supports Markdown
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