Skip to content

Instantly share code, notes, and snippets.

@jorgenschaefer

jorgenschaefer/*scratch*.el

Created December 9, 2012 00:48
Show Gist options

  • Select an option

    Learn more about clone URLs
  • Save jorgenschaefer/4242790 to your computer and use it in GitHub Desktop.

Select an option

Learn more about clone URLs
Save jorgenschaefer/4242790 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
*scratch*.el
(defun plist-merge (a b)
(let ((result a))
(while b
(let ((k (car b))
(v (cadr b))
(rest (cddr b)))
(when (not (plist-get result k))
(setq result (append (list k v)
result)))
(setq b rest)))
result))
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment