1 files changed, 9 insertions, 6 deletions

@@ -369,11 +369,7 @@
         w32-pass-rwindow-to-system nil
         w32-rwindow-modifier 'super
         w32-pass-apps-to-system nil
-        w32-apps-modifier 'hyper
-        find-function-C-source-directory (expand-file-name
-                                          (concat "~/src/emacs-"
-                                                  emacs-version
-                                                  "/src"))))
+        w32-apps-modifier 'hyper))
 
 ;;;; Etc. good defaults
 (setc custom-file (acdw/in-dir "custom.el")
@@ -395,7 +391,14 @@
       echo-keystrokes 0.25
       recenter-positions '(top middle bottom)
       attempt-stack-overflow-recovery nil
-      attempt-orderly-shutdown-on-fatal-signal nil)
+      attempt-orderly-shutdown-on-fatal-signal nil
+      find-function-C-source-directory
+      (pcase acdw/system
+        (:work (expand-file-name (concat "~/src/emacs-"
+                                         emacs-version
+                                         "/src")))
+        (:home (expand-file-name "~/src/pkg/emacs/src/emacs-git/src"))
+        (:other nil)))
 
 ;;;; Etc. bindings
 (global-set-key [remap just-one-space] #'cycle-spacing)