Function: custom-handle-all-keywords

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

Signature

(custom-handle-all-keywords SYMBOL ARGS TYPE)

Documentation

For customization option SYMBOL, handle keyword arguments ARGS.

Third argument TYPE is the custom option type.

Source Code

;; Defined in /usr/src/emacs/lisp/custom.el.gz
;;; Properties.

(defun custom-handle-all-keywords (symbol args type)
  "For customization option SYMBOL, handle keyword arguments ARGS.
Third argument TYPE is the custom option type."
  (unless (memq :group args)
    (let ((cg (custom-current-group)))
      (when cg
        (custom-add-to-group cg symbol type))))
  (while args
    (let ((arg (car args)))
      (setq args (cdr args))
      (unless (symbolp arg)
	(error "Junk in args %S" args))
      (let ((keyword arg)
	    (value (car args)))
	(unless args
	  (error "Keyword %s is missing an argument" keyword))
	(setq args (cdr args))
	(custom-handle-keyword symbol keyword value type)))))