rms@mit-prep (10/06/85)
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;