contrapunctus
/
dotemacs
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

More convenient German characters. 

Hadn't commited in a while, so this and the next 14 commits are in a
sort-of, as-far-as-I-can-remember-but-can-I-really /reverse/
chronological order (i.e. newest changes first).
This commit is contained in:
Kashish Sharma 2015-06-22 14:40:02 +05:30
parent 49f586b71b
commit 140fa52135
1 changed files with 27 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

27
init.el
View File

@ -165,6 +165,33 @@
(global-set-key (kbd "<f5>") 'eval-buffer)
(global-set-key (kbd "M-<f5>") 'ielm)
;;;; More convenient Unicode keys
;; make a macro, global-set-keys -
;; (global-set-keys (keybinding-pair1) (keybinding-pair2) ...)
;; =>
;; (global-set-key keybinding-pair1)
;; (global-set-key keybinding-pair2)
;; ...
;; where each (keybinding-pair) is
;; ((kbd ...) function)
(global-unset-key (kbd "M-,"))
(global-set-key (kbd "M-, a")
(lambda () (interactive) (insert "ä")))
(global-set-key (kbd "M-, A")
(lambda () (interactive) (insert "Ä")))
(global-set-key (kbd "M-, u")
(lambda () (interactive) (insert "ü")))
(global-set-key (kbd "M-, U")
(lambda () (interactive) (insert "Ü")))
(global-set-key (kbd "M-, o")
(lambda () (interactive) (insert "ö")))
(global-set-key (kbd "M-, O")
(lambda () (interactive) (insert "Ö")))
(global-set-key (kbd "M-, s")
(lambda () (interactive) (insert "ß")))
;;;; Just hit y or n to answer yes or no prompts! Shiny!
(defalias 'yes-or-no-p 'y-or-n-p)