plist-to-alist fix the bug of the color-theme for emacs 24

init.el

(defun plist-to-alist (the-plist)
  (defsubst get-tuple-from-plist (the-plist)
    (when the-plist
      (cons (car the-plist) (cadr the-plist))))
  
  (let ((alist '()))
    (while the-plist
      (add-to-list 'alist (get-tuple-from-plist the-plist))
      (setq the-plist (cddr the-plist)))
    alist))

(plist-to-alist '(1 2 1 3))