493 |
(let ((v (variable-at-point)) |
(let ((v (variable-at-point)) |
494 |
(enable-recursive-minibuffers t) |
(enable-recursive-minibuffers t) |
495 |
val) |
val) |
496 |
(setq val (completing-read |
(setq val (if (and (symbolp v) (custom-variable-p v)) |
497 |
(if (and (symbolp v) (custom-variable-p v)) |
(completing-read |
498 |
(format "Customize option (default %s): " v) |
(format "Customize option (default %s): " v) obarray |
499 |
"Customize option: ") |
'custom-variable-p t nil nil (symbol-name v)) |
500 |
obarray 'custom-variable-p t)) |
(completing-read "Customize option: " obarray |
501 |
|
'custom-variable-p t))) |
502 |
(list (if (equal val "") |
(list (if (equal val "") |
503 |
(if (symbolp v) v nil) |
(if (symbolp v) v nil) |
504 |
(intern val))))) |
(intern val))))) |