diff options
| author | Po Lu | 2023-05-31 10:16:06 +0800 |
|---|---|---|
| committer | Po Lu | 2023-05-31 10:16:06 +0800 |
| commit | 822463ea5adae0f17bde4246e320800ee02f592d (patch) | |
| tree | d2b2c769a397edca17dd0beda9c8c6b22b85a642 /admin | |
| parent | 57903519eb61632c4a85fbaf420109892955079a (diff) | |
| parent | ecc1d990d9e9d006838ca514213ea5e46a459363 (diff) | |
| download | emacs-822463ea5adae0f17bde4246e320800ee02f592d.tar.gz emacs-822463ea5adae0f17bde4246e320800ee02f592d.zip | |
Merge remote-tracking branch 'origin/master' into feature/android
Diffstat (limited to 'admin')
| -rw-r--r-- | admin/admin.el | 3 | ||||
| -rw-r--r-- | admin/cus-test.el | 2 |
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) |