Changeset 4098 for trunk/lisp/cus-edit.el
- Timestamp:
- 2006年07月01日 08時27分06秒 (2 years ago)
- Files:
-
- trunk/lisp/cus-edit.el (modified) (5 diffs)
Legend:
- Unmodified
- Added
- Removed
- Modified
- Copied
- Moved
trunk/lisp/cus-edit.el
r4073 r4098 588 588 (defcustom custom-guess-name-alist 589 589 '(("-p\\'" boolean) 590 ("-flag\\'" boolean) 590 591 ("-hook\\'" hook) 591 592 ("-face\\'" face) … … 1055 1056 "Customize SYMBOL, which must be a user option variable." 1056 1057 (interactive (custom-variable-prompt)) 1058 (unless symbol 1059 (error "No variable specified")) 1057 1060 (let ((basevar (indirect-variable symbol))) 1058 1061 (custom-buffer-create (list (list basevar 'custom-variable)) … … 1070 1073 Show the buffer in another window, but don't select it." 1071 1074 (interactive (custom-variable-prompt)) 1075 (unless symbol 1076 (error "No variable specified")) 1072 1077 (let ((basevar (indirect-variable symbol))) 1073 1078 (custom-buffer-create-other-window … … 1362 1367 (push (list symbol 'custom-variable) found))))) 1363 1368 (if (not found) 1364 (error "No matches")1365 (custom-buffer-create (custom-sort-items found t1366 custom-buffer-order-groups)1367 "*Customize Apropos*"))))1369 (error "No customizable items matching %s" regexp) 1370 (custom-buffer-create 1371 (custom-sort-items found t custom-buffer-order-groups) 1372 "*Customize Apropos*")))) 1368 1373 1369 1374 ;;;###autoload … … 4516 4521 (put 'custom-mode 'mode-class 'special) 4517 4522 4518 (add-to-list 4519 'debug-ignored-errors 4520 "^No user options have changed defaults in recent Emacs versions$") 4523 (dolist (regexp 4524 '("^No user option defaults have been changed since Emacs " 4525 "^Invalid face:? " 4526 "^No \\(?:customized\\|rogue\\|saved\\) user options" 4527 "^No customizable items matching " 4528 "^There are unset changes" 4529 "^Cannot set hidden variable" 4530 "^No \\(?:saved\\|backup\\) value for " 4531 "^No standard setting known for " 4532 "^No standard setting for this face" 4533 "^Saving settings from \"emacs -q\" would overwrite existing customizations")) 4534 (add-to-list 'debug-ignored-errors regexp)) 4521 4535 4522 4536 ;;; The End.
