瀏覽代碼

Add some fix for MSYS2

pull/15/head
10sr 9 年之前
父節點
當前提交
da67918391
共有 1 個文件被更改,包括 17 次插入0 次删除
  1. +17
    -0
      emacs.el

+ 17
- 0
emacs.el 查看文件

@@ -8,6 +8,8 @@
;; SETUP_LOAD: (and (file-readable-p file)
;; SETUP_LOAD: (load-file file)))

(setq debug-on-error t)

;; make directories
(unless (file-directory-p (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))
(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



Loading…
取消
儲存