From 45c114e5b1f921ec561416226a86922f750a784b Mon Sep 17 00:00:00 2001 From: Chris Hanson Date: Wed, 21 Nov 1990 23:18:24 +0000 Subject: [PATCH] Fix bug in code that initialize the TUTORIAL file. --- v7/src/edwin/hlpcom.scm | 9 ++++----- 1 file changed, 4 insertions(+), 5 deletions(-) diff --git a/v7/src/edwin/hlpcom.scm b/v7/src/edwin/hlpcom.scm index 8cedd5d46..01e4b1e64 100644 --- a/v7/src/edwin/hlpcom.scm +++ b/v7/src/edwin/hlpcom.scm @@ -1,6 +1,6 @@ ;;; -*-Scheme-*- ;;; -;;; $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/edwin/hlpcom.scm,v 1.93 1990/11/02 03:24:19 cph Exp $ +;;; $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/edwin/hlpcom.scm,v 1.94 1990/11/21 23:18:24 cph Rel $ ;;; ;;; Copyright (c) 1986, 1989, 1990 Massachusetts Institute of Technology ;;; @@ -280,10 +280,9 @@ If you want VALUE to be a string, you must surround it with doublequotes." (set-current-major-mode! (ref-mode-object fundamental)) (disable-buffer-auto-save! buffer) (let ((mark - (mark1+ - (line-end (search-forward "\n<<" (buffer-start buffer)) - 0)))) - (delete-string mark (line-end mark 0)) + (line-start (search-forward "\n<<" (buffer-start buffer)) + 0))) + (delete-string (line-end mark -1) (line-end mark 0)) (insert-newlines (- (window-y-size (current-window)) (+ 4 (region-count-lines (make-region (buffer-start buffer) -- 2.25.1