diff options
| author | Markus Rost | 2002-10-14 22:20:42 +0000 |
|---|---|---|
| committer | Markus Rost | 2002-10-14 22:20:42 +0000 |
| commit | 2a7e0e4148a18d535194bb9ed40bb895be2623ff (patch) | |
| tree | d03309c15502cbc5a202a173483767ccb9663344 /admin | |
| parent | bf7a63e1f915758b59052b0662828b62d1192361 (diff) | |
| download | emacs-2a7e0e4148a18d535194bb9ed40bb895be2623ff.tar.gz emacs-2a7e0e4148a18d535194bb9ed40bb895be2623ff.zip | |
Minor change.
Diffstat (limited to 'admin')
| -rw-r--r-- | admin/cus-test.el | 6 |
1 files changed, 2 insertions, 4 deletions
diff --git a/admin/cus-test.el b/admin/cus-test.el index bccdcca6c1f..f6062c9f7f0 100644 --- a/admin/cus-test.el +++ b/admin/cus-test.el | |||
| @@ -234,8 +234,7 @@ The detected problematic options are stored in `cus-test-errors'." | |||
| 234 | 234 | ||
| 235 | ;; Store symbols with a custom-get property. | 235 | ;; Store symbols with a custom-get property. |
| 236 | (when (get symbol 'custom-get) | 236 | (when (get symbol 'custom-get) |
| 237 | (add-to-list 'cus-test-vars-with-custom-get | 237 | (add-to-list 'cus-test-vars-with-custom-get symbol)) |
| 238 | symbol 'append)) | ||
| 239 | 238 | ||
| 240 | ;; Changed outside the customize buffer? | 239 | ;; Changed outside the customize buffer? |
| 241 | ;; This routine is not very much tested. | 240 | ;; This routine is not very much tested. |
| @@ -246,8 +245,7 @@ The detected problematic options are stored in `cus-test-errors'." | |||
| 246 | (and (consp c-value) | 245 | (and (consp c-value) |
| 247 | (boundp symbol) | 246 | (boundp symbol) |
| 248 | (not (equal (eval (car c-value)) (symbol-value symbol))) | 247 | (not (equal (eval (car c-value)) (symbol-value symbol))) |
| 249 | (add-to-list 'cus-test-vars-with-changed-state | 248 | (add-to-list 'cus-test-vars-with-changed-state symbol))) |
| 250 | symbol 'append))) | ||
| 251 | 249 | ||
| 252 | (if mismatch | 250 | (if mismatch |
| 253 | (push symbol cus-test-errors))) | 251 | (push symbol cus-test-errors))) |