From d04a3bbd78f80299d31a67795a78ed45e6de33b5 Mon Sep 17 00:00:00 2001 From: Case Duckworth Date: Thu, 1 Apr 2021 17:55:18 -0500 Subject: Move MS Windows settings above Etc settings and add some Most are from https://depp.brause.cc/dotemacs/. --- init.el | 29 +++++++++++++++++++---------- 1 file changed, 19 insertions(+), 10 deletions(-) diff --git a/init.el b/init.el index e385e4a..3ae414c 100644 --- a/init.el +++ b/init.el @@ -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) -- cgit 1.4.1-21-gabe81