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

c737dcb1 · Katsumi Yamaoka · 2addf922 · c737dcb1 · c737dcb1
Commit c737dcb1 authored Jul 01, 2013 by Katsumi Yamaoka
Hide whitespace changes
Inline Side-by-side

Showing with 5 additions and 0 deletions

lisp/ChangeLog lisp/ChangeLog +4 -0

lisp/wid-edit.el lisp/wid-edit.el +1 -0

No files found.
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
+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.

--- 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