495 |
val) |
val) |
496 |
(setq val (completing-read |
(setq val (completing-read |
497 |
(if (and (symbolp v) (custom-variable-p v)) |
(if (and (symbolp v) (custom-variable-p v)) |
498 |
(format "Customize option: (default %s) " v) |
(format "Customize option (default %s): " v) |
499 |
"Customize option: ") |
"Customize option: ") |
500 |
obarray 'custom-variable-p t)) |
obarray 'custom-variable-p t)) |
501 |
(list (if (equal val "") |
(list (if (equal val "") |
967 |
(defun customize-group (group) |
(defun customize-group (group) |
968 |
"Customize GROUP, which must be a customization group." |
"Customize GROUP, which must be a customization group." |
969 |
(interactive (list (let ((completion-ignore-case t)) |
(interactive (list (let ((completion-ignore-case t)) |
970 |
(completing-read "Customize group: (default emacs) " |
(completing-read "Customize group (default emacs): " |
971 |
obarray |
obarray |
972 |
(lambda (symbol) |
(lambda (symbol) |
973 |
(or (get symbol 'custom-loads) |
(or (get symbol 'custom-loads) |
990 |
(defun customize-group-other-window (group) |
(defun customize-group-other-window (group) |
991 |
"Customize GROUP, which must be a customization group." |
"Customize GROUP, which must be a customization group." |
992 |
(interactive (list (let ((completion-ignore-case t)) |
(interactive (list (let ((completion-ignore-case t)) |
993 |
(completing-read "Customize group: (default emacs) " |
(completing-read "Customize group (default emacs): " |
994 |
obarray |
obarray |
995 |
(lambda (symbol) |
(lambda (symbol) |
996 |
(or (get symbol 'custom-loads) |
(or (get symbol 'custom-loads) |