[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] 01/01: Fix bug that caused undo-tree to hang when undoing in regi
[elpa] 01/01: Fix bug that caused undo-tree to hang when undoing in region (bug#16377).
Thu, 01 May 2014 20:43:08 +0000
epich pushed a commit to branch master
in repository elpa.
Author: Barry O'Reilly <address@hidden>
Date: Thu May 1 16:42:52 2014 -0400
Fix bug that caused undo-tree to hang when undoing in region (bug#16377).
packages/undo-tree/undo-tree.el | 4 ++--
1 files changed, 2 insertions(+), 2 deletions(-)
diff --git a/packages/undo-tree/undo-tree.el b/packages/undo-tree/undo-tree.el
index 166c079..cb8a230 100644
@@ -1690,13 +1690,13 @@ Comparison is done with `eq'."
(defun undo-tree-copy-list (undo-list)
;; Return a deep copy of first changeset in `undo-list'. Object id's are
;; replaced by corresponding objects from `buffer-undo-tree' object-pool.
- (when undo-list
(let (copy p)
;; if first element contains an object id, replace it with object from
;; pool, discarding element entirely if it's been GC'd
- (while (null copy)
+ (while (and undo-list (null copy))
(undo-tree-restore-GC-elts-from-pool (pop undo-list))))
+ (when copy
(setq copy (list copy)
;; copy remaining elements, replacing object id's with objects from