Mercurial > emacs
comparison lisp/cus-edit.el @ 82244:9928f84fd32b
(customize-apropos): Make the error message indicate what kind of
thing the user was trying to customize.
author | Glenn Morris <rgm@gnu.org> |
---|---|
date | Fri, 03 Aug 2007 03:21:49 +0000 |
parents | cdb30692dab7 |
children | b8c796068320 35e3789db058 |
comparison
equal
deleted
inserted
replaced
82243:54e0d414b1de | 82244:9928f84fd32b |
---|---|
1374 (custom-variable-p symbol) | 1374 (custom-variable-p symbol) |
1375 (and (not (memq all '(nil options))) | 1375 (and (not (memq all '(nil options))) |
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*")))) |
1383 | 1390 |
1384 ;;;###autoload | 1391 ;;;###autoload |