Fix display of custom menus after putative cosmetic change

* lisp/wid-edit.el (widget-setup): Restore version from before
the previous commit.

(cherry picked from commit 0c321ddbd3afcc821567fcb584e18e9f0dd49790)

diff --git a/lisp/wid-edit.el b/lisp/wid-edit.el
index f69a3d3b05fe7336340170bb234b02880453547b..172da3db1e0a8b270aa5321afc47814a82ff58c4 100644 (file)
--- a/lisp/wid-edit.el
+++ b/lisp/wid-edit.el
@@ -1377,14 +1377,17 @@ When not inside a field, signal an error."
 (defun widget-setup ()
   "Setup current buffer so editing string widgets works."
   (widget--allow-insertion
-   (dolist (field widget-field-new)
-     (push field widget-field-list)
-     (let ((from (car (widget-get field :field-overlay)))
-          (to (cdr (widget-get field :field-overlay))))
-       (widget-specify-field field
-                            (marker-position from) (marker-position to))
-       (set-marker from nil)
-       (set-marker to nil))))
+   (let (field)
+     (while widget-field-new
+       (setq field (car widget-field-new)
+            widget-field-new (cdr widget-field-new)
+            widget-field-list (cons field widget-field-list))
+       (let ((from (car (widget-get field :field-overlay)))
+            (to (cdr (widget-get field :field-overlay))))
+        (widget-specify-field field
+                              (marker-position from) (marker-position to))
+        (set-marker from nil)
+        (set-marker to nil)))))
   (widget-clear-undo)
   (widget-add-change))