Function: icons--merge-spec

icons--merge-spec is a byte-compiled function defined in icons.el.gz.

Signature

(icons--merge-spec MERGED PARENT-SPEC)

Source Code

;; Defined in /usr/src/emacs/lisp/emacs-lisp/icons.el.gz
(defun icons--merge-spec (merged parent-spec)
  (dolist (elem parent-spec)
    (let ((current (assq (car elem) merged)))
      (if (not current)
          ;; Just add the entry.
          (push elem merged)
        ;; See if there are any keywords to inherit.
        (let ((parent-keywords (icon-spec-keywords elem))
              (current-keywords (icon-spec-keywords current)))
          (while parent-keywords
            (unless (plist-get current-keywords (car parent-keywords))
              (nconc current (take 2 parent-keywords)))
            (setq parent-keywords (cddr parent-keywords)))))))
  merged)