# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 763861292 0
# Node ID 1eabdff45c61d1e308945b4a9aaeddc52722f2d6
# Parent  e81e7c424e8acb6ad149f8b06dc8d1383ee79051
(undo): Don't let the undo entries for the undo
contain a specific buffer position.  Delete it if there is one.

diff -r e81e7c424e8a -r 1eabdff45c61 lisp/simple.el
--- a/lisp/simple.el	Wed Mar 16 23:21:02 1994 +0000
+++ b/lisp/simple.el	Wed Mar 16 23:41:32 1994 +0000
@@ -615,6 +615,16 @@
 	(progn (undo-start)
 	       (undo-more 1)))
     (undo-more (or arg 1))
+    ;; Don't specify a position in the undo record for the undo command.
+    ;; Instead, undoing this should move point to where the change is.
+    (let ((tail buffer-undo-list)
+	  done)
+      (while (and tail (not done) (not (null (car tail))))
+	(if (integerp (car tail))
+	    (progn
+	      (setq done t)
+	      (setq buffer-undo-list (delq (car tail) buffer-undo-list))))
+	(setq tail (cdr tail))))
     (and modified (not (buffer-modified-p))
 	 (delete-auto-save-file-if-necessary recent-save)))
   ;; If we do get all the way thru, make this-command indicate that.