1 files changed, 19 insertions, 10 deletions

@@ -261,15 +261,6 @@
                 (remove-function after-focus-change-function
                                  'hook--setup-fonts)))
 
-;;;; MS Windows
-(setc w32-allow-system-shell t
-      w32-pass-lwindow-to-system nil
-      w32-lwindow-modifier 'super
-      w32-pass-rwindow-to-system nil
-      w32-rwindow-modifier 'super
-      w32-pass-apps-to-system nil
-      w32-apps-modifier 'hyper)
-
 ;;;; Dired
 (setup dired
   (:setq-default dired-recursive-copies 'always
@@ -352,6 +343,20 @@
   (add-hook 'text-mode-hook #'flyspell-mode)
   (add-hook 'prog-mode-hook #'flyspell-prog-mode))
 
+;;;; MS Windows
+(when (eq acdw/system :work)
+  (setc w32-allow-system-shell t
+        w32-pass-lwindow-to-system nil
+        w32-lwindow-modifier 'super
+        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"))))
+
 ;;;; Etc. good defaults
 (setc custom-file (acdw/in-dir "custom.el")
       inhibit-startup-screen t
@@ -368,7 +373,11 @@
                                     " Client")))
       tab-bar-show 1
       use-dialog-box nil
-      use-file-dialog nil)
+      use-file-dialog nil
+      echo-keystrokes 0.25
+      recenter-positions '(top middle bottom)
+      attempt-stack-overflow-recovery nil
+      attempt-orderly-shutdown-on-fatal-signal nil)
 
 ;;;; Etc. bindings
 (global-set-key [remap just-one-space] #'cycle-spacing)