diff options
| author | Glenn Morris | 2007-08-03 03:21:49 +0000 |
|---|---|---|
| committer | Glenn Morris | 2007-08-03 03:21:49 +0000 |
| commit | da435d1cf2b1a368bdd266eecbb8c632f656d614 (patch) | |
| tree | 28aeadaff8432be96dadeb64a150046017a698ac | |
| parent | 3b7a686f5450b7ebda37082050064fb8c5726ec0 (diff) | |
| download | emacs-da435d1cf2b1a368bdd266eecbb8c632f656d614.tar.gz emacs-da435d1cf2b1a368bdd266eecbb8c632f656d614.zip | |
(customize-apropos): Make the error message indicate what kind of
thing the user was trying to customize.
| -rw-r--r-- | lisp/cus-edit.el | 9 |
1 files changed, 8 insertions, 1 deletions
diff --git a/lisp/cus-edit.el b/lisp/cus-edit.el index 78b402c9c0a..2cfd247a645 100644 --- a/lisp/cus-edit.el +++ b/lisp/cus-edit.el | |||
| @@ -1376,7 +1376,14 @@ that are not customizable options, as well as faces and groups | |||
| 1376 | (get symbol 'variable-documentation)))) | 1376 | (get symbol 'variable-documentation)))) |
| 1377 | (push (list symbol 'custom-variable) found))))) | 1377 | (push (list symbol 'custom-variable) found))))) |
| 1378 | (if (not found) | 1378 | (if (not found) |
| 1379 | (error "No customizable items matching %s" regexp) | 1379 | (error "No %s matching %s" |
| 1380 | (if (eq all t) | ||
| 1381 | "items" | ||
| 1382 | (format "customizable %s" | ||
| 1383 | (if (memq all '(options faces groups)) | ||
| 1384 | (symbol-name all) | ||
| 1385 | "items"))) | ||
| 1386 | regexp) | ||
| 1380 | (custom-buffer-create | 1387 | (custom-buffer-create |
| 1381 | (custom-sort-items found t custom-buffer-order-groups) | 1388 | (custom-sort-items found t custom-buffer-order-groups) |
| 1382 | "*Customize Apropos*")))) | 1389 | "*Customize Apropos*")))) |