eschulte pushed a commit to branch go
in repository elpa.
commit 67657a99ffe520cb8b9526af19f85edad1e4135c
Author: Eric Schulte <[email protected]>
Date: Mon May 20 18:45:15 2013 -0600
don't mutate hidden state
---
go-board-faces.el | 2 +-
1 files changed, 1 insertions(+), 1 deletions(-)
diff --git a/go-board-faces.el b/go-board-faces.el
index ff0bf06..4a0542d 100644
--- a/go-board-faces.el
+++ b/go-board-faces.el
@@ -106,7 +106,7 @@
(defun go-board-mark (overlay mark)
"Write MARK over top of the SVG image in OVERLAY."
- (let* ((disp (cdr (overlay-get overlay 'display)))
+ (let* ((disp (cdr (copy-tree (overlay-get overlay 'display))))
(data (plist-get disp :data)))
(when (and data (string-match (regexp-quote "</svg>") data))
(plist-put disp :data (concat (substring data 0 (match-beginning 0))
