Function: customize-icon
customize-icon is an autoloaded, interactive and byte-compiled
function defined in cus-edit.el.gz.
Signature
(customize-icon ICON)
Documentation
Customize ICON.
Key Bindings
Source Code
;; Defined in /usr/src/emacs/lisp/cus-edit.el.gz
;;;###autoload
(defun customize-icon (icon)
"Customize ICON."
(interactive
(let* ((v (symbol-at-point))
(default (and (iconp v) (symbol-name v)))
val)
(setq val (completing-read (format-prompt "Customize icon" default)
obarray 'iconp t nil nil default))
(list (if (equal val "")
(if (symbolp v) v nil)
(intern val)))))
(unless icon
(error "No icon specified"))
(custom-buffer-create (list (list icon 'custom-icon))
(format "*Customize Icon: %s*"
(custom-unlispify-tag-name icon))))