setup/system-cores.el

   1 (let ((dir (concat (file-name-directory
   2                     (directory-file-name
   3                      (file-name-directory (or load-file-name
   4                                          (when (boundp 'bytecomp-filename) bytecomp-filename)
   5                                          buffer-file-name))))
   6                    (file-name-as-directory "system-cores.el"))))
   7   (add-to-list 'load-path dir))