[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/undo-tree cbe0c708d8 4/9: Fix potential insidious list
From: |
Stefan Monnier |
Subject: |
[elpa] externals/undo-tree cbe0c708d8 4/9: Fix potential insidious list creation bugs. |
Date: |
Sat, 12 Mar 2022 18:02:56 -0500 (EST) |
branch: externals/undo-tree
commit cbe0c708d8a71a521199bd8e3e605c760ecdb021
Author: Toby S. Cubitt <toby-undo-tree@dr-qubit.org>
Commit: Toby S. Cubitt <toby-undo-tree@dr-qubit.org>
Fix potential insidious list creation bugs.
---
undo-tree.el | 15 +++++++--------
1 file changed, 7 insertions(+), 8 deletions(-)
diff --git a/undo-tree.el b/undo-tree.el
index f4ee23f455..49a151589a 100644
--- a/undo-tree.el
+++ b/undo-tree.el
@@ -4,7 +4,7 @@
;; Author: Toby Cubitt <toby-undo-tree@dr-qubit.org>
;; Maintainer: Toby Cubitt <toby-undo-tree@dr-qubit.org>
-;; Version: 0.8
+;; Version: 0.8.1
;; Keywords: convenience, files, undo, redo, history, tree
;; Package-Requires: ((queue "0.2"))
;; URL: http://www.dr-qubit.org/emacs.php
@@ -1847,7 +1847,7 @@ Comparison is done with `eq'."
(while undo-tree-gc-flag
(setq undo-tree-gc-flag nil
undo-list (copy-tree buffer-undo-list)))
- (setq buffer-undo-list '(nil undo-tree-canary))
+ (setq buffer-undo-list (list nil 'undo-tree-canary))
;; create new node from first changeset in `undo-list', save old
;; `buffer-undo-tree' current node, and make new node the current node
@@ -1881,8 +1881,7 @@ Comparison is done with `eq'."
(setq node (undo-tree-grow-backwards node nil))
(setf (undo-tree-root buffer-undo-tree) node)
(setf (undo-tree-size buffer-undo-tree) size)
- (setf (undo-tree-count buffer-undo-tree) count)
- (setq undo-list '(nil undo-tree-canary))))))
+ (setf (undo-tree-count buffer-undo-tree) count)))))
;; discard undo history if necessary
(undo-tree-discard-history))
@@ -3496,7 +3495,7 @@ Note this will overwrite any existing undo history."
(kill-buffer nil))
(setq buffer-undo-tree tree
- buffer-undo-list '(nil undo-tree-canary)))))
+ buffer-undo-list (list nil 'undo-tree-canary)))))
@@ -3849,9 +3848,9 @@ Note this will overwrite any existing undo history."
undo-tree-insert-face
(nconc
(cond
- (current '(undo-tree-visualizer-current-face))
- (unmodified '(undo-tree-visualizer-unmodified-face))
- (register '(undo-tree-visualizer-register-face)))
+ (current (list 'undo-tree-visualizer-current-face))
+ (unmodified (list 'undo-tree-visualizer-unmodified-face))
+ (register (list 'undo-tree-visualizer-register-face)))
undo-tree-insert-face))
;; draw node and link it to its representation in visualizer
(undo-tree-insert node-string)
- [elpa] externals/undo-tree updated (bf2e9ba0c9 -> 1f8d005409), Stefan Monnier, 2022/03/12
- [elpa] externals/undo-tree 5da2a7aee9 1/9: Implement new undo-tree save format., Stefan Monnier, 2022/03/12
- [elpa] externals/undo-tree 35a438bee8 3/9: Fix how undo-tree-viualizer-timestamps|diff are set buffer-local., Stefan Monnier, 2022/03/12
- [elpa] externals/undo-tree 594ed6a788 5/9: Fix URLs in package headers., Stefan Monnier, 2022/03/12
- [elpa] externals/undo-tree 2bf5e230f1 7/9: Update contact email address in package headers., Stefan Monnier, 2022/03/12
- [elpa] externals/undo-tree cbe0c708d8 4/9: Fix potential insidious list creation bugs.,
Stefan Monnier <=
- [elpa] externals/undo-tree 1f8d005409 9/9: * undo-tree.el: Various cosmetic changes, Stefan Monnier, 2022/03/12
- [elpa] externals/undo-tree 25709c426d 2/9: Add missing Package-Requires header for queue dependency., Stefan Monnier, 2022/03/12
- [elpa] externals/undo-tree 42aab056e3 6/9: Fix bug in detection of nodes corresponding to unmodified buffers., Stefan Monnier, 2022/03/12
- [elpa] externals/undo-tree 7171865096 8/9: Merge remote-tracking branch 'upstream/undo-tree/main' into externals/undo-tree, Stefan Monnier, 2022/03/12