228 ;;   (cond

   228 ;;   (cond

   229 ;;    ((listp yas/root-directory) (add-to-list 'yas/root-directory my-yas-root-directory))

   229 ;;    ((listp yas/root-directory) (add-to-list 'yas/root-directory my-yas-root-directory))

   230 ;;    ((stringp yas/root-directory) (setq yas/root-directory (list my-yas-root-directory yas/root-directory)))

   230 ;;    ((stringp yas/root-directory) (setq yas/root-directory (list my-yas-root-directory yas/root-directory)))

   231 ;;    (t (error "I expect that yas/root-directory is a list of string")) )

   231 ;;    (t (error "I expect that yas/root-directory is a list of string")) )

   232 ;;   (mapc 'yas/load-directory yas/root-directory))

   232 ;;   (mapc 'yas/load-directory yas/root-directory))