diff options
author | Tino Calancha <tino.calancha@gmail.com> | 2018-06-17 18:28:34 +0900 |
---|---|---|
committer | Tino Calancha <tino.calancha@gmail.com> | 2018-06-17 18:28:34 +0900 |
commit | edb1f85a27817a3fac38bb85752671414819203b (patch) | |
tree | 8da1b7145ad7959199b2150c9337cd2f308bbb8c /lisp/cus-edit.el | |
parent | 5099b3abb2b623ce949b8efc37bee8c41d5ad754 (diff) | |
download | emacs-edb1f85a27817a3fac38bb85752671414819203b.tar.gz |
Add new macro dolist-with-progress-reporter
* lisp/subr.el (dolist-with-progress-reporter): New macro (Bug#31697).
* lisp/cus-edit.el (custom-group-value-create): Use it.
* lisp/dabbrev.el (dabbrev--progress-reporter): Delete variable.
(dabbrev--find-expansion): Use dotimes-with-progress-reporter.
* doc/lispref/display.texi: Document the macro.
; * etc/NEWS: Announce it.
Diffstat (limited to 'lisp/cus-edit.el')
-rw-r--r-- | lisp/cus-edit.el | 10 |
1 files changed, 2 insertions, 8 deletions
diff --git a/lisp/cus-edit.el b/lisp/cus-edit.el index ff6a4f6d33c..723cd5010df 100644 --- a/lisp/cus-edit.el +++ b/lisp/cus-edit.el @@ -4221,19 +4221,14 @@ If GROUPS-ONLY is non-nil, return only those members that are groups." custom-buffer-order-groups)) (prefixes (widget-get widget :custom-prefixes)) (custom-prefix-list (custom-prefix-add symbol prefixes)) - (len (length members)) - (count 0) - (reporter (make-progress-reporter - "Creating group entries..." 0 len)) (have-subtitle (and (not (eq symbol 'emacs)) (eq custom-buffer-order-groups 'last))) prev-type children) - (dolist (entry members) + (dolist-with-progress-reporter (entry members) "Creating group entries..." (unless (eq prev-type 'custom-group) (widget-insert "\n")) - (progress-reporter-update reporter (setq count (1+ count))) (let ((sym (nth 0 entry)) (type (nth 1 entry))) (when (and have-subtitle (eq type 'custom-group)) @@ -4255,8 +4250,7 @@ If GROUPS-ONLY is non-nil, return only those members that are groups." (setq children (nreverse children)) (mapc 'custom-magic-reset children) (widget-put widget :children children) - (custom-group-state-update widget) - (progress-reporter-done reporter)) + (custom-group-state-update widget)) ;; End line (let ((p (1+ (point)))) (insert "\n\n") |