Function: custom-handle-keyword

custom-handle-keyword is a byte-compiled function defined in custom.el.gz.

Signature

(custom-handle-keyword SYMBOL KEYWORD VALUE TYPE)

Documentation

For customization option SYMBOL, handle KEYWORD with VALUE.

Fourth argument TYPE is the custom option type.

Source Code

;; Defined in /usr/src/emacs/lisp/custom.el.gz
(defun custom-handle-keyword (symbol keyword value type)
  "For customization option SYMBOL, handle KEYWORD with VALUE.
Fourth argument TYPE is the custom option type."
  (if purify-flag
      (setq value (purecopy value)))
  (cond ((eq keyword :group)
	 (custom-add-to-group value symbol type))
	((eq keyword :version)
	 (custom-add-version symbol value))
	((eq keyword :package-version)
	 (custom-add-package-version symbol value))
	((eq keyword :link)
	 (custom-add-link symbol value))
	((eq keyword :load)
	 (custom-add-load symbol value))
	((eq keyword :tag)
	 (put symbol 'custom-tag value))
	((eq keyword :set-after)
	 (custom-add-dependencies symbol value))
	(t
	 (error "Unknown keyword %s" keyword))))