X-Git-Url: https://git.distorted.org.uk/~mdw/profile/blobdiff_plain/004beb573d8f7434fa42f3eafdf2fd1af0bbcfd7..eac7b6224fc7804fcdd2409c6f8e0159e3379a03:/dot-emacs.el?ds=sidebyside

diff --git a/dot-emacs.el b/dot-emacs.el
index d94f962..f338fc3 100644
--- a/dot-emacs.el
+++ b/dot-emacs.el
@@ -85,6 +85,17 @@ This may be at the expense of cool features.")
 		    (concat "(" (buffer-string) ")")))))))
   (cdr (assq sym mdw-config)))
 
+;; --- Set up the load path convincingly ---
+
+(dolist (dir (append (and (boundp 'debian-emacs-flavor)
+			  (list (concat "/usr/share/"
+					(symbol-name debian-emacs-flavor)
+					"/site-lisp")))))
+  (dolist (sub (directory-files dir t))
+    (when (and (file-accessible-directory-p sub)
+	       (not (member sub load-path)))
+      (setq load-path (nconc load-path (list sub))))))
+
 ;; --- Is an Emacs library available? ---
 
 (defun library-exists-p (name)