From 90ddad804a34b70af7d849f1fdd1f069a3c30f54 Mon Sep 17 00:00:00 2001 From: =?utf8?q?Micha=C5=82=20Kondraciuk?= Date: Tue, 17 Sep 2019 01:13:08 +0200 Subject: [PATCH] Allow `M-u' to work when editing fields in Customize * lisp/cus-edit.el (custom-notify): Allow more editing commands to work in the Customize buffers (bug#31205). Copyright-paperwork-exempt: yes --- lisp/cus-edit.el | 7 ++++++- 1 file changed, 6 insertions(+), 1 deletion(-) diff --git a/lisp/cus-edit.el b/lisp/cus-edit.el index 8a8bad91137..24969633373 100644 --- a/lisp/cus-edit.el +++ b/lisp/cus-edit.el @@ -2212,7 +2212,12 @@ and `face'." (unless (eq state 'modified) (unless (memq state '(nil unknown hidden)) (widget-put widget :custom-state 'modified)) - (custom-magic-reset widget) + ;; Update the status text (usually from "STANDARD" to "EDITED + ;; bla bla" in the buffer after the command has run. Otherwise + ;; commands like `M-u' (that work on a region in the buffer) + ;; will upcase the wrong part of the buffer, since more text has + ;; been inserted before point. + (run-with-idle-timer 0.0 nil #'custom-magic-reset widget) (apply 'widget-default-notify widget args)))) (defun custom-redraw (widget) -- 2.39.5