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;