diff options
| author | Katsumi Yamaoka <yamaoka@jpl.org> | 2013-07-01 05:00:50 +0000 |
|---|---|---|
| committer | Katsumi Yamaoka <yamaoka@jpl.org> | 2013-07-01 05:00:50 +0000 |
| commit | c737dcb1dd77b9c7ff536f1fa586a2cd689a680f (patch) | |
| tree | 900808a61f4b9520c19a01d755c3645daf27f8c8 | |
| parent | 2addf9226a04194010742975a2203e53aa8d7c79 (diff) | |
| download | emacs-c737dcb1dd77b9c7ff536f1fa586a2cd689a680f.tar.gz | |
wid-edit.el (widget-default-get): Don't modify widget (Bug#14738)
| -rw-r--r-- | lisp/ChangeLog | 4 | ||||
| -rw-r--r-- | lisp/wid-edit.el | 1 |
2 files changed, 5 insertions, 0 deletions
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 |