larstvei/emacs
1
1
Fork 0
mirror of https://github.com/larstvei/dot-emacs.git synced 2024-11-26 07:28:31 +00:00
Code Issues Actions Packages Projects Releases Wiki Activity

Only add site-lisp directory if it exists.

Browse Source
This commit is contained in:
Lars Tveito 2014-01-02 15:32:16 +01:00
parent 5477b1f7bc
commit 98dbd3303a
2 changed files with 6 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
init.el
View File

@ -86,8 +86,9 @@ PACKAGE is installed and the current version is deleted."
)
(let ((default-directory (concat user-emacs-directory "site-lisp/")))
(normal-top-level-add-to-load-path '("."))
(normal-top-level-add-subdirs-to-load-path))
(when (file-exists-p default-directory)
(normal-top-level-add-to-load-path '("."))
(normal-top-level-add-subdirs-to-load-path)))
(fset 'yes-or-no-p 'y-or-n-p)

5
init.org
View File

@ -167,8 +167,9 @@
#+BEGIN_SRC emacs-lisp :tangle yes
(let ((default-directory (concat user-emacs-directory "site-lisp/")))
(normal-top-level-add-to-load-path '("."))
(normal-top-level-add-subdirs-to-load-path))
(when (file-exists-p default-directory)
(normal-top-level-add-to-load-path '("."))
(normal-top-level-add-subdirs-to-load-path)))
#+END_SRC
Answering /yes/ and /no/ to each question from Emacs can be tedious, a