[Emacs-diffs] trunk r113243: wid-edit.el (widget-default-get): Don't modify widget (Bug#14738)

[Katsumi Yamaoka]

------------------------------------------------------------
revno: 113243
revision-id: address@hidden
parent: address@hidden
committer: Katsumi Yamaoka <address@hidden>
branch nick: trunk
timestamp: Mon 2013-07-01 05:00:50 +0000
message:
  wid-edit.el (widget-default-get): Don't modify widget (Bug#14738)
modified:
  lisp/ChangeLog                 changelog-20091113204419-o5vbwnq5f7feedwu-1432
  lisp/wid-edit.el               widedit.el-20091113204419-o5vbwnq5f7feedwu-1095

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2013-07-01 03:29:46 +0000
+++ b/lisp/ChangeLog    2013-07-01 05:00:50 +0000
@@ -1,3 +1,7 @@
+2013-01-07  Katsumi Yamaoka  <address@hidden>
+
+       * wid-edit.el (widget-default-get): Don't modify widget (Bug#14738).
+
 2013-07-01  Juanma Barranquero  <address@hidden>
 
        * desktop.el (desktop-restore-frames): Rename from desktop-save-windows.

=== modified file 'lisp/wid-edit.el'
--- a/lisp/wid-edit.el  2013-01-07 11:24:35 +0000
+++ b/lisp/wid-edit.el  2013-07-01 05:00:50 +0000
@@ -528,6 +528,7 @@
                (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