[elpa] externals/auto-overlays 9894591 63/93: Remove undo marker entry hacks, in the hope that things work correctly now!

[Stefan Monnier]

branch: externals/auto-overlays
commit 98945913854c26a1937be5eb629178f7fd4a8031
Author: Toby S. Cubitt <toby-predictive@dr-qubit.org>
Commit: Toby S. Cubitt <toby-predictive@dr-qubit.org>

    Remove undo marker entry hacks, in the hope that things work correctly now!
---
 auto-overlays.el | 26 +++++++++++++-------------
 1 file changed, 13 insertions(+), 13 deletions(-)

diff --git a/auto-overlays.el b/auto-overlays.el
index 1156430..005fde9 100644
--- a/auto-overlays.el
+++ b/auto-overlays.el
@@ -973,9 +973,9 @@ overlays were saved."
   ;; order.
 
   ;; ignore changes that aren't either insertions or deletions
-  (when ;(and (not undo-in-progress)
+  (when (and (not undo-in-progress)
             (or (and (/= beg end) (=  len 0))    ; insertion
-                (and (=  beg end) (/= len 0)));)  ; deletion
+                (and (=  beg end) (/= len 0))))  ; deletion
     ;; repeat until all the pending functions have been cleared (it may be
     ;; necessary to run multiple times since the pending functions may
     ;; themselves cause more functions to be added to the pending lists)
@@ -1008,17 +1008,17 @@ overlays were saved."
        (setq auto-o-pending-post-update nil))
       ))
 
-  ;; FIXME: horrible hack to delete all marker update entries in latest
-  ;;        `buffer-undo-list' change group, since undoing these can badly
-  ;;        mess up the overlays
-  (while (and (consp (car buffer-undo-list))
-             (markerp (caar buffer-undo-list)))
-    (setq buffer-undo-list (cdr buffer-undo-list)))
-  (let ((p buffer-undo-list))
-    (while (cadr p)
-      (if (and (consp (cadr p)) (markerp (car (cadr p))))
-         (setcdr p (cddr p))
-       (setq p (cdr p)))))
+  ;; ;; FIXME: horrible hack to delete all marker update entries in latest
+  ;; ;;        `buffer-undo-list' change group, since undoing these can badly
+  ;; ;;        mess up the overlays
+  ;; (while (and (consp (car buffer-undo-list))
+  ;;         (markerp (caar buffer-undo-list)))
+  ;;   (setq buffer-undo-list (cdr buffer-undo-list)))
+  ;; (let ((p buffer-undo-list))
+  ;;   (while (cadr p)
+  ;;     (if (and (consp (cadr p)) (markerp (car (cadr p))))
+  ;;     (setcdr p (cddr p))
+  ;;   (setq p (cdr p)))))
   )