Commit 90ddad80 authored by Michał Kondraciuk's avatar Michał Kondraciuk Committed by Lars Ingebrigtsen
Browse files

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
parent 603e7048
Pipeline #3167 passed with stage
in 73 minutes and 30 seconds
......@@ -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)
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment