mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-29 07:58:28 +00:00
Code Issues Releases Activity

Merge from origin/emacs-27

Browse Source 
4db3235fd8 Run custom-magic-reset in the customize buffer
3c9c3f04de ; spelling fix
This commit is contained in:
Glenn Morris 2020-07-22 07:50:47 -07:00
commit 496ee0911a
2 changed files with 5 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
CONTRIBUTE
View File

@ -63,7 +63,7 @@ also possible to use a command like
However, we prefer the 'git format-patch' method with attachment, as
doing so delivers patches in the correct and easily-recognizable format
more reliably, and makes the job of applying the patches easier and less
error-prone. It also allows to send patches whose author is someone
error-prone. It also allows sending patches whose author is someone
other than the email sender.
Once the cumulative amount of your submissions exceeds about 15 lines

7
lisp/cus-edit.el
View File

@ -2102,11 +2102,12 @@ and `face'."
(insert " "))
(widget-put widget :children children))))
(defun custom-magic-reset (widget)
(defun custom-magic-reset (widget &optional buffer)
"Redraw the :custom-magic property of WIDGET."
(let ((magic (widget-get widget :custom-magic)))
(when magic
(widget-value-set magic (widget-value magic)))))
(with-current-buffer (or buffer (current-buffer))
(widget-value-set magic (widget-value magic))))))
;;; The `custom' Widget.
@ -2217,7 +2218,7 @@ and `face'."
;; 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)
(run-with-idle-timer 0.0 nil #'custom-magic-reset widget (current-buffer))
(apply 'widget-default-notify widget args))))
(defun custom-redraw (widget)