aboutsummaryrefslogtreecommitdiffstats
path: root/admin
diff options
context:
space:
mode:
authorPo Lu2023-05-31 10:16:06 +0800
committerPo Lu2023-05-31 10:16:06 +0800
commit822463ea5adae0f17bde4246e320800ee02f592d (patch)
treed2b2c769a397edca17dd0beda9c8c6b22b85a642 /admin
parent57903519eb61632c4a85fbaf420109892955079a (diff)
parentecc1d990d9e9d006838ca514213ea5e46a459363 (diff)
downloademacs-822463ea5adae0f17bde4246e320800ee02f592d.tar.gz
emacs-822463ea5adae0f17bde4246e320800ee02f592d.zip
Merge remote-tracking branch 'origin/master' into feature/android
Diffstat (limited to 'admin')
-rw-r--r--admin/admin.el3
-rw-r--r--admin/cus-test.el2
2 files changed, 1 insertions, 4 deletions
diff --git a/admin/admin.el b/admin/admin.el
index 90f810b79c6..1f4c6986b0e 100644
--- a/admin/admin.el
+++ b/admin/admin.el
@@ -1038,8 +1038,7 @@ If optional argument OLD is non-nil, also scan for `defvar's."
1038 (and grp 1038 (and grp
1039 (setq grp (car (cdr-safe grp))) ; (quote foo) -> foo 1039 (setq grp (car (cdr-safe grp))) ; (quote foo) -> foo
1040 (setq ver (assq grp glist)))) 1040 (setq ver (assq grp glist))))
1041 (setq alist (cons (cons var ver) alist)))) 1041 (setq alist (cons (cons var ver) alist)))))))
1042 (if form (format-message "Malformed defcustom: `%s'" form)))))
1043 (message "%sdone" m) 1042 (message "%sdone" m)
1044 alist)) 1043 alist))
1045 1044
diff --git a/admin/cus-test.el b/admin/cus-test.el
index f07019bb52c..c833ddacd84 100644
--- a/admin/cus-test.el
+++ b/admin/cus-test.el
@@ -221,8 +221,6 @@ The detected problematic options are stored in `cus-test-errors'."
221 221
222 ;; Check the values 222 ;; Check the values
223 (mapc (lambda (value) 223 (mapc (lambda (value)
224 ;; TODO for booleans, check for values that can be
225 ;; evaluated and are not t or nil. Usually a bug.
226 (unless (widget-apply conv :match value) 224 (unless (widget-apply conv :match value)
227 (let ((err (list symbol :type-error value type))) 225 (let ((err (list symbol :type-error value type)))
228 (unless (member err cus-test-errors) 226 (unless (member err cus-test-errors)