diff options
| author | Tassilo Horn <tsdh@gnu.org> | 2019-09-22 11:02:39 +0200 |
|---|---|---|
| committer | Tassilo Horn <tsdh@gnu.org> | 2019-09-22 11:02:39 +0200 |
| commit | af0642a4cb220f33a43d1380be085bc0b7134bb8 (patch) | |
| tree | e3b1b57bc42e712c77bd55fc4fc722cf93fe6c66 /lisp/cus-edit.el | |
| parent | 8992bc7d1b7e7babbf2899b5c45e84b486f504e6 (diff) | |
| parent | 37a4233a366797360c2f4f475591a3406586bcfb (diff) | |
| download | emacs-scratch/tsdh-vc-list-files.tar.gz | |
Merge remote-tracking branch 'origin/master' into scratch/tsdh-vc-list-filesscratch/tsdh-vc-list-files
Diffstat (limited to 'lisp/cus-edit.el')
| -rw-r--r-- | lisp/cus-edit.el | 7 |
1 files changed, 6 insertions, 1 deletions
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) |