Relay-Version: version B 2.10 5/3/83; site utzoo.UUCP
Posting-Version: version B 2.10.1 6/24/83; site mit-eddie.UUCP
Path: utzoo!watmath!clyde!burl!ulysses!allegra!mit-eddie!rms@mit-prep
From: rms@mit-prep
Newsgroups: net.emacs
Subject: Bug fix in Emacs 16.60
Message-ID: <5450@mit-eddie.UUCP>
Date: Sat, 5-Oct-85 18:43:09 EDT
Article-I.D.: mit-eddi.5450
Posted: Sat Oct  5 18:43:09 1985
Date-Received: Mon, 7-Oct-85 02:48:29 EDT
Sender: daemon@mit-eddi.UUCP
Organization: MIT, Cambridge, MA
Lines: 51

From: Richard M. Stallman <rms@mit-prep>
*** bytecomp.el.~1~	Wed Oct  2 02:22:41 1985
--- bytecomp.el	Fri Oct  4 15:30:52 1985
***************
*** 821,830
        ;; Only one clause
        (let ((donetag (byte-compile-make-tag)))
  	(byte-compile-form (car (car clauses)))
! 	(byte-compile-goto 'byte-goto-if-nil-else-pop donetag)
! 	(setq byte-compile-depth (1- byte-compile-depth))
! 	(byte-compile-body (cdr (car clauses)))
! 	(byte-compile-out-tag donetag))
      (let ((donetag (byte-compile-make-tag))
  	  (elsetag (byte-compile-make-tag)))
        (byte-compile-form (car (car clauses)))

--- 821,831 -----
        ;; Only one clause
        (let ((donetag (byte-compile-make-tag)))
  	(byte-compile-form (car (car clauses)))
! 	(cond ((cdr (car clauses))
! 	       (byte-compile-goto 'byte-goto-if-nil-else-pop donetag)
! 	       (setq byte-compile-depth (1- byte-compile-depth))
! 	       (byte-compile-body (cdr (car clauses)))
! 	       (byte-compile-out-tag donetag))))
      (let ((donetag (byte-compile-make-tag))
  	  (elsetag (byte-compile-make-tag)))
        (byte-compile-form (car (car clauses)))

*** insdel.c.1~	Thu Sep 19 02:08:25 1985
--- insdel.c	Wed Oct  2 01:38:57 1985
***************
*** 267,272
    RecordDelete (from, numdel);
    bf_modified++;
  
    bf_gap += numdel;
    bf_p2 += numdel;
    bf_s2 -= to - 1 - bf_s1;

--- 267,276 -----
    RecordDelete (from, numdel);
    bf_modified++;
  
+   /* All markers pointing between from and to, inclusive,
+      should now point at from.  */
+   adjust_markers (to, to, -numdel);
+ 
    bf_gap += numdel;
    bf_p2 += numdel;
    bf_s2 -= to - 1 - bf_s1;