Browse Source

Add some fix for MSYS2

pull/15/head
10sr 9 years ago
parent
commit
da67918391
1 changed files with 17 additions and 0 deletions
  1. +17
    -0
      emacs.el

+ 17
- 0
emacs.el View File

@@ -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




Loading…
Cancel
Save