From c737dcb1dd77b9c7ff536f1fa586a2cd689a680f Mon Sep 17 00:00:00 2001 From: Katsumi Yamaoka Date: Mon, 1 Jul 2013 05:00:50 +0000 Subject: [PATCH] wid-edit.el (widget-default-get): Don't modify widget (Bug#14738) --- lisp/ChangeLog | 4 ++++ lisp/wid-edit.el | 1 + 2 files changed, 5 insertions(+) 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 + + * wid-edit.el (widget-default-get): Don't modify widget (Bug#14738). + 2013-07-01 Juanma Barranquero * 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 -- 2.39.2