add-to-listを複数指定するマクロ

gistfile1.el

(defmacro append-to-list (mode-list &rest body)
  (let ((lst (gensym)))
    `(dolist (,lst ',body)
       (add-to-list ,mode-list ,lst))))

; Unit Test

(dont-compile
  (require 'ert)
  (require 'cl)
  (message "Running tests on Emacs %s" emacs-version)

  (ert-deftest append-to-list-test ()
    "第2引数以降に受け取ったものをリストに追加する"
    "append-to-list is "
    (let ((lst nil))
      (append-to-list 'lst
        'h
        (f . g)
        (d e)
        c
        "b"
        a
        )
      (should (equal lst '(a "b" c (d e) (f . g) 'h)))))
  )