| @@ -8,6 +8,8 @@ | |||||
| ;; SETUP_LOAD: (and (file-readable-p file) | ;; SETUP_LOAD: (and (file-readable-p file) | ||||
| ;; SETUP_LOAD: (load-file file))) | ;; SETUP_LOAD: (load-file file))) | ||||
| (setq debug-on-error t) | |||||
| ;; make directories | ;; make directories | ||||
| (unless (file-directory-p (expand-file-name user-emacs-directory)) | (unless (file-directory-p (expand-file-name user-emacs-directory)) | ||||
| (make-directory (expand-file-name user-emacs-directory))) | (make-directory (expand-file-name user-emacs-directory))) | ||||
| @@ -362,6 +364,21 @@ IF OK-IF-ALREADY-EXISTS is true force download." | |||||
| (setq server-use-tcp t)) | (setq server-use-tcp t)) | ||||
| (server-start)) | (server-start)) | ||||
| ;; MSYS2 fix | |||||
| (when (eq system-type | |||||
| 'windows-nt) | |||||
| (setq shell-file-name | |||||
| (executable-find "bash")) | |||||
| '(setq function-key-map | |||||
| `(,@function-key-map ([pause] . [?\C-c]) | |||||
| )) | |||||
| (define-key key-translation-map | |||||
| (kbd "<pause>") | |||||
| (kbd "C-c")) | |||||
| '(keyboard-translate [pause] | |||||
| (kbd "C-c")p)) | |||||
| ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; | ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; | ||||
| ;; global keys | ;; global keys | ||||