Don't eval-when-compile dir consts

This commit is contained in:
Henrik Lissner 2015-07-25 13:50:44 +02:00
parent 83e7f3c8ae
commit e9388b54c2

View file

@ -3,15 +3,15 @@
(fset '! 'eval-when-compile) (fset '! 'eval-when-compile)
(defconst narf-emacs-dir user-emacs-directory) (defconst narf-emacs-dir user-emacs-directory)
(defconst narf-core-dir (! (concat narf-emacs-dir "core/"))) (defconst narf-core-dir (concat narf-emacs-dir "core/"))
(defconst narf-modules-dir (! (concat narf-emacs-dir "modules/"))) (defconst narf-modules-dir (concat narf-emacs-dir "modules/"))
(defconst narf-contrib-dir (! (concat narf-emacs-dir "contrib/"))) (defconst narf-contrib-dir (concat narf-emacs-dir "contrib/"))
(defconst narf-private-dir (! (concat narf-emacs-dir "private/"))) (defconst narf-private-dir (concat narf-emacs-dir "private/"))
(defconst narf-elpa-dir (! (concat narf-emacs-dir ".cask/" emacs-version "/elpa/"))) (defconst narf-elpa-dir (concat narf-emacs-dir ".cask/" emacs-version "/elpa/"))
(defconst narf-temp-dir (! (concat narf-private-dir "cache/" (system-name) "/"))) (defconst narf-temp-dir (concat narf-private-dir "cache/" (system-name) "/"))
(defconst narf-script-dir (! (concat narf-emacs-dir "scripts/"))) (defconst narf-script-dir (concat narf-emacs-dir "scripts/"))
(defconst narf-snippet-dirs (! (list (concat narf-private-dir "snippets/") (defconst narf-snippet-dirs (list (concat narf-private-dir "snippets/")
(concat narf-private-dir "templates/")))) (concat narf-private-dir "templates/")))
(! (defun --subdirs (path) (! (defun --subdirs (path)
(let ((result '()) (let ((result '())