From: Katsumi Yamaoka <yamaoka@jpl.org>
Date: Mon, 1 Jul 2013 05:00:50 +0000 (+0000)
Subject: wid-edit.el (widget-default-get): Don't modify widget (Bug#14738)
X-Git-Tag: emacs-24.3.90~173^2^2~42^2~45^2~387^2~1968
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=c737dcb1dd77b9c7ff536f1fa586a2cd689a680f;p=emacs.git

wid-edit.el (widget-default-get): Don't modify widget (Bug#14738)
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index b27eb32246f..e04821626f0 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2013-01-07  Katsumi Yamaoka  <yamaoka@jpl.org>
+
+	* wid-edit.el (widget-default-get): Don't modify widget (Bug#14738).
+
 2013-07-01  Juanma Barranquero  <lekktu@gmail.com>
 
 	* desktop.el (desktop-restore-frames): Rename from desktop-save-windows.
diff --git a/lisp/wid-edit.el b/lisp/wid-edit.el
index fb62b039d79..2dc1e502171 100644
--- a/lisp/wid-edit.el
+++ b/lisp/wid-edit.el
@@ -528,6 +528,7 @@ Otherwise, just return the value."
 		(or (widget-get widget :value)
 		    (progn
 		      (when (widget-get widget :args)
+			(setq widget (widget-copy widget))
 			(let (args)
 			  (dolist (arg (widget-get widget :args))
 			    (setq args (append args