diff options
Diffstat (limited to 'admin/cus-test.el')
-rw-r--r-- | admin/cus-test.el | 11 |
1 files changed, 7 insertions, 4 deletions
diff --git a/admin/cus-test.el b/admin/cus-test.el index 64c742ea855..10d6e34358d 100644 --- a/admin/cus-test.el +++ b/admin/cus-test.el @@ -146,7 +146,7 @@ Names should be as they appear in loaddefs.el.") (defvar cus-test-errors nil "List of problematic variables found by `cus-test-apropos'. -Each element is (VARIABLE . PROBLEM); see `cus-test--format-errors'.") +Each element is (VARIABLE . PROBLEM); see `cus-test--format-error'.") (defvar cus-test-tested-variables nil "List of options tested by last call of `cus-test-apropos'.") @@ -221,8 +221,6 @@ The detected problematic options are stored in `cus-test-errors'." ;; Check the values (mapc (lambda (value) - ;; TODO for booleans, check for values that can be - ;; evaluated and are not t or nil. Usually a bug. (unless (widget-apply conv :match value) (let ((err (list symbol :type-error value type))) (unless (member err cus-test-errors) @@ -426,7 +424,12 @@ in the Emacs source directory." (mapatoms ;; This code is mainly from `custom-load-symbol'. (lambda (symbol) - (let ((custom-load-recursion t)) + (let ((custom-load-recursion t) + (load-path + (cons + (expand-file-name + "quail" (file-name-directory (locate-library leim-list-file-name))) + load-path))) (dolist (load (get symbol 'custom-loads)) (cond ((symbolp load) |