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