From 4c20a1d8e86c229db1b0a07bbbd231278328b3cd Mon Sep 17 00:00:00 2001
From: Case Duckworth
Date: Fri, 2 Apr 2021 12:56:52 -0500
Subject: Set `find-function-C-source-directory' everywhere

On Windows, `acdw.cmd' downloads the source in the right spot.  On Linux, I need
to make sure it's in the right spot myself.
---
 init.el | 15 +++++++++------
 1 file changed, 9 insertions(+), 6 deletions(-)

(limited to 'init.el')

diff --git a/init.el b/init.el
index 26dd784..80034af 100644
--- a/init.el
+++ b/init.el
@@ -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)
-- 
cgit 1.4.1-21-gabe81