Fix pasting issue
This commit is contained in:
parent
232efa1668
commit
a13b1371f0
1 changed files with 19 additions and 16 deletions
35
init.el
35
init.el
|
@ -6,12 +6,30 @@
|
||||||
(setq calendar-longitude -5.83)
|
(setq calendar-longitude -5.83)
|
||||||
(setq calendar-location-name "Belfast")
|
(setq calendar-location-name "Belfast")
|
||||||
|
|
||||||
|
;; do this now
|
||||||
|
|
||||||
|
(defun islin ()
|
||||||
|
"Return true if on linux"
|
||||||
|
(string-equal system-type "gnu/linux")
|
||||||
|
)
|
||||||
|
|
||||||
|
(defun iswin ()
|
||||||
|
"Return true if on windows"
|
||||||
|
(string-equal system-type "windows-nt")
|
||||||
|
)
|
||||||
|
|
||||||
|
(defun ismac ()
|
||||||
|
"Return true if on macos"
|
||||||
|
(string-equal system-type "darwin")
|
||||||
|
)
|
||||||
|
|
||||||
;; it's not 1986
|
;; it's not 1986
|
||||||
|
|
||||||
(prefer-coding-system 'utf-8)
|
(prefer-coding-system 'utf-8)
|
||||||
(set-default-coding-systems 'utf-8)
|
(set-default-coding-systems 'utf-8)
|
||||||
(set-language-environment 'utf-8)
|
(set-language-environment 'utf-8)
|
||||||
(set-selection-coding-system 'utf-8)
|
(unless (iswin) (set-selection-coding-system 'utf-8))
|
||||||
|
(when (iswin) (set-selection-coding-system 'utf-16-le))
|
||||||
|
|
||||||
;; sonic arts
|
;; sonic arts
|
||||||
|
|
||||||
|
@ -38,21 +56,6 @@
|
||||||
|
|
||||||
;; Misc
|
;; Misc
|
||||||
|
|
||||||
(defun islin ()
|
|
||||||
"Return true if on linux"
|
|
||||||
(string-equal system-type "gnu/linux")
|
|
||||||
)
|
|
||||||
|
|
||||||
(defun iswin ()
|
|
||||||
"Return true if on windows"
|
|
||||||
(string-equal system-type "windows-nt")
|
|
||||||
)
|
|
||||||
|
|
||||||
(defun ismac ()
|
|
||||||
"Return true if on macos"
|
|
||||||
(string-equal system-type "darwin")
|
|
||||||
)
|
|
||||||
|
|
||||||
(setq completion-ignore-case t)
|
(setq completion-ignore-case t)
|
||||||
(setq read-file-name-completion-ignore-case t)
|
(setq read-file-name-completion-ignore-case t)
|
||||||
(setq read-buffer-completion-ignore-case t)
|
(setq read-buffer-completion-ignore-case t)
|
||||||
|
|
Loading…
Add table
Add a link
Reference in a new issue