Changeset 3892 for vendor/emacs-CVS_HEAD/lisp/cus-edit.el
- Timestamp:
- 2005年10月02日 07時23分38秒 (3 years ago)
- Files:
-
- vendor/emacs-CVS_HEAD/lisp/cus-edit.el (modified) (4 diffs)
Legend:
- Unmodified
- Added
- Removed
- Modified
- Copied
- Moved
vendor/emacs-CVS_HEAD/lisp/cus-edit.el
r3861 r3892 496 496 (setq val (completing-read 497 497 (if (and (symbolp v) (custom-variable-p v)) 498 (format "Customize option : (default %s)" v)498 (format "Customize option (default %s): " v) 499 499 "Customize option: ") 500 500 obarray 'custom-variable-p t)) … … 671 671 :group 'custom-browse) 672 672 673 (defcustom custom-buffer-sort-alphabetically t673 (defcustom custom-buffer-sort-alphabetically nil 674 674 "If non-nil, sort members of each customization group alphabetically." 675 675 :type 'boolean … … 968 968 "Customize GROUP, which must be a customization group." 969 969 (interactive (list (let ((completion-ignore-case t)) 970 (completing-read "Customize group : (default emacs)"970 (completing-read "Customize group (default emacs): " 971 971 obarray 972 972 (lambda (symbol) … … 991 991 "Customize GROUP, which must be a customization group." 992 992 (interactive (list (let ((completion-ignore-case t)) 993 (completing-read "Customize group : (default emacs)"993 (completing-read "Customize group (default emacs): " 994 994 obarray 995 995 (lambda (symbol)
