mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-04-27 16:51:06 -07:00
Code Issues Projects Releases Wiki Activity

Fix display of custom menus after putative cosmetic change

Browse source 
* lisp/wid-edit.el (widget-setup): Restore version from before
the previous commit.
This commit is contained in:
Po Lu 2024-03-22 15:24:28 +08:00
parent 60c9702972
commit 0c321ddbd3
1 changed files with 11 additions and 8 deletions
Download patch file Download diff file Expand all files Collapse all files

19
lisp/wid-edit.el
View file

@ -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))