diff options
| author | Katsumi Yamaoka | 2013-07-01 05:00:50 +0000 |
|---|---|---|
| committer | Katsumi Yamaoka | 2013-07-01 05:00:50 +0000 |
| commit | c737dcb1dd77b9c7ff536f1fa586a2cd689a680f (patch) | |
| tree | 900808a61f4b9520c19a01d755c3645daf27f8c8 /lisp/wid-edit.el | |
| parent | 2addf9226a04194010742975a2203e53aa8d7c79 (diff) | |
| download | emacs-c737dcb1dd77b9c7ff536f1fa586a2cd689a680f.tar.gz emacs-c737dcb1dd77b9c7ff536f1fa586a2cd689a680f.zip | |
wid-edit.el (widget-default-get): Don't modify widget (Bug#14738)
Diffstat (limited to 'lisp/wid-edit.el')
| -rw-r--r-- | lisp/wid-edit.el | 1 |
1 files changed, 1 insertions, 0 deletions
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." | |||
| 528 | (or (widget-get widget :value) | 528 | (or (widget-get widget :value) |
| 529 | (progn | 529 | (progn |
| 530 | (when (widget-get widget :args) | 530 | (when (widget-get widget :args) |
| 531 | (setq widget (widget-copy widget)) | ||
| 531 | (let (args) | 532 | (let (args) |
| 532 | (dolist (arg (widget-get widget :args)) | 533 | (dolist (arg (widget-get widget :args)) |
| 533 | (setq args (append args | 534 | (setq args (append args |