[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/undo-tree 0161041 194/195: Fix argument order in gv set
From: |
Stefan Monnier |
Subject: |
[elpa] externals/undo-tree 0161041 194/195: Fix argument order in gv setter definitions. |
Date: |
Sat, 28 Nov 2020 13:41:51 -0500 (EST) |
branch: externals/undo-tree
commit 0161041f9aa017c0089372f3aa74c70bc9e78efe
Author: Toby S. Cubitt <toby-undo-tree@dr-qubit.org>
Commit: Toby S. Cubitt <toby-undo-tree@dr-qubit.org>
Fix argument order in gv setter definitions.
---
undo-tree.el | 28 ++++++++++++++--------------
1 file changed, 14 insertions(+), 14 deletions(-)
diff --git a/undo-tree.el b/undo-tree.el
index 9e51b03..6cd72f4 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.7.3
+;; Version: 0.7.4
;; Keywords: convenience, files, undo, redo, history, tree
;; URL: http://www.dr-qubit.org/emacs.php
;; Repository: http://www.dr-qubit.org/git/undo-tree.git
@@ -1426,7 +1426,7 @@ in visualizer."
(undo-tree-region-data-redo-end r))))
-(gv-define-setter undo-tree-node-undo-beginning (node val)
+(gv-define-setter undo-tree-node-undo-beginning (val node)
`(let ((r (plist-get (undo-tree-node-meta-data ,node) :region)))
(unless (undo-tree-region-data-p r)
(setf (undo-tree-node-meta-data ,node)
@@ -1434,7 +1434,7 @@ in visualizer."
(setq r (undo-tree-make-region-data)))))
(setf (undo-tree-region-data-undo-beginning r) ,val)))
-(gv-define-setter undo-tree-node-undo-end (node val)
+(gv-define-setter undo-tree-node-undo-end (val node)
`(let ((r (plist-get (undo-tree-node-meta-data ,node) :region)))
(unless (undo-tree-region-data-p r)
(setf (undo-tree-node-meta-data ,node)
@@ -1442,7 +1442,7 @@ in visualizer."
(setq r (undo-tree-make-region-data)))))
(setf (undo-tree-region-data-undo-end r) ,val)))
-(gv-define-setter undo-tree-node-redo-beginning (node val)
+(gv-define-setter undo-tree-node-redo-beginning (val node)
`(let ((r (plist-get (undo-tree-node-meta-data ,node) :region)))
(unless (undo-tree-region-data-p r)
(setf (undo-tree-node-meta-data ,node)
@@ -1450,7 +1450,7 @@ in visualizer."
(setq r (undo-tree-make-region-data)))))
(setf (undo-tree-region-data-redo-beginning r) ,val)))
-(gv-define-setter undo-tree-node-redo-end (node val)
+(gv-define-setter undo-tree-node-redo-end (val node)
`(let ((r (plist-get (undo-tree-node-meta-data ,node) :region)))
(unless (undo-tree-region-data-p r)
(setf (undo-tree-node-meta-data ,node)
@@ -1503,7 +1503,7 @@ in visualizer."
(undo-tree-visualizer-data-marker v))))
-(gv-define-setter undo-tree-node-lwidth (node val)
+(gv-define-setter undo-tree-node-lwidth (val node)
`(let ((v (plist-get (undo-tree-node-meta-data ,node) :visualizer)))
(unless (undo-tree-visualizer-data-p v)
(setf (undo-tree-node-meta-data ,node)
@@ -1511,7 +1511,7 @@ in visualizer."
(setq v (undo-tree-make-visualizer-data)))))
(setf (undo-tree-visualizer-data-lwidth v) ,val)))
-(gv-define-setter undo-tree-node-cwidth (node val)
+(gv-define-setter undo-tree-node-cwidth (val node)
`(let ((v (plist-get (undo-tree-node-meta-data ,node) :visualizer)))
(unless (undo-tree-visualizer-data-p v)
(setf (undo-tree-node-meta-data ,node)
@@ -1519,7 +1519,7 @@ in visualizer."
(setq v (undo-tree-make-visualizer-data)))))
(setf (undo-tree-visualizer-data-cwidth v) ,val)))
-(gv-define-setter undo-tree-node-rwidth (node val)
+(gv-define-setter undo-tree-node-rwidth (val node)
`(let ((v (plist-get (undo-tree-node-meta-data ,node) :visualizer)))
(unless (undo-tree-visualizer-data-p v)
(setf (undo-tree-node-meta-data ,node)
@@ -1527,7 +1527,7 @@ in visualizer."
(setq v (undo-tree-make-visualizer-data)))))
(setf (undo-tree-visualizer-data-rwidth v) ,val)))
-(gv-define-setter undo-tree-node-marker (node val)
+(gv-define-setter undo-tree-node-marker (val node)
`(let ((v (plist-get (undo-tree-node-meta-data ,node) :visualizer)))
(unless (undo-tree-visualizer-data-p v)
(setf (undo-tree-node-meta-data ,node)
@@ -1556,7 +1556,7 @@ in visualizer."
(defmacro undo-tree-node-register (node)
`(plist-get (undo-tree-node-meta-data ,node) :register))
-(gv-define-setter undo-tree-node-register (node val)
+(gv-define-setter undo-tree-node-register (val node)
`(setf (undo-tree-node-meta-data ,node)
(plist-put (undo-tree-node-meta-data ,node) :register ,val)))
@@ -2252,9 +2252,9 @@ which is defined in the `warnings' library.\n")
;; leading nil to the lists, and have the pointers point to that
;; initially.
;; Note: using '(nil) instead of (list nil) in the `let*' results in
- ;; bizarre errors when the code is byte-compiled, where parts of the
- ;; lists appear to survive across different calls to this function.
- ;; An obscure byte-compiler bug, perhaps?
+ ;; errors when the code is byte-compiled, presumably because the
+ ;; Lisp reader generates a single cons, and that same cons gets used
+ ;; each call.
(let* ((region-changeset (list nil))
(r region-changeset)
(delta-list (list nil))
@@ -2269,7 +2269,7 @@ which is defined in the `warnings' library.\n")
;; --- initialisation ---
(cond
;; if this is a repeated undo in the same region, start pulling changes
- ;; from NODE at which undo-in-region branch iss attached, and detatch
+ ;; from NODE at which undo-in-region branch is attached, and detatch
;; the branch, using it as initial FRAGMENT of branch being constructed
(repeated-undo-in-region
(setq original-current node
- [elpa] externals/undo-tree bf3a146 167/195: Disable undo-in-region by default., (continued)
- [elpa] externals/undo-tree bf3a146 167/195: Disable undo-in-region by default., Stefan Monnier, 2020/11/28
- [elpa] externals/undo-tree eec9edd 168/195: Silence some unused variable compiler warnings., Stefan Monnier, 2020/11/28
- [elpa] externals/undo-tree 77c29a6 171/195: Factor out canary checking into undo-list-found-canary-p., Stefan Monnier, 2020/11/28
- [elpa] externals/undo-tree 4a72a1e 172/195: Change undo-list-pop-changeset to macro taking buffer-undo-list argument., Stefan Monnier, 2020/11/28
- [elpa] externals/undo-tree c39882f 177/195: Prevent misleading message about discarded undo history on first undo., Stefan Monnier, 2020/11/28
- [elpa] externals/undo-tree e6f31a0 179/195: Use custom undo-[strong-|outer]-limit values in undo-tree-mode., Stefan Monnier, 2020/11/28
- [elpa] externals/undo-tree 2ac4eac 181/195: Improve messages displayed to user when undo history is discarded., Stefan Monnier, 2020/11/28
- [elpa] externals/undo-tree 6a428ce 182/195: Bump copyright year in readiness for new release., Stefan Monnier, 2020/11/28
- [elpa] externals/undo-tree 7fb46cb 183/195: Fix copy-undo-tree by forcing vector rather than native defstruct., Stefan Monnier, 2020/11/28
- [elpa] externals/undo-tree 5011f91 186/195: Implement non-recursive undo-tree copier, to avoid hitting Elisp and c stack space limits., Stefan Monnier, 2020/11/28
- [elpa] externals/undo-tree 0161041 194/195: Fix argument order in gv setter definitions.,
Stefan Monnier <=
- [elpa] externals/undo-tree bf2e9ba 195/195: Print complete objects when saving undo-tree history, Stefan Monnier, 2020/11/28
- [elpa] externals/undo-tree 75b17c3 189/195: undo-outer-limit can also be null (no limit) in recent Emacsen., Stefan Monnier, 2020/11/28
- [elpa] externals/undo-tree 09641b2 188/195: Bump version number., Stefan Monnier, 2020/11/28
- [elpa] externals/undo-tree 1cc3a18 052/195: Minor documentation fix., Stefan Monnier, 2020/11/28
- [elpa] externals/undo-tree fbcb046 085/195: Implemented persistent storage of undo history., Stefan Monnier, 2020/11/28
- [elpa] externals/undo-tree 6824805 064/195: Merge branch 'undo-in-region', Stefan Monnier, 2020/11/28