(global-set-key [(control x) (control c)]
(lambda () (interactive) (save-some-buffers) (kill-emacs)))
(global-set-key [(control z)] 'advertised-undo)
(global-set-key [(control meta z)] 'suspend-console)
(if (fboundp 'switch-to-other-buffer)
(global-set-key [f2] 'switch-to-other-buffer)
(global-set-key [f2] "\C-xb\C-m")
)
(global-set-key [f11] 'advertised-undo)
(global-set-key [(control f11)] 'indent-region)
(global-set-key [(meta f11)] "\C-u\C-x\C-i")
(global-set-key [(control meta f11)] "\C-U-4\C-x\C-i")
(global-set-key [f12] 'kill-current-buffer)
(global-set-key [(control f12)] 'kill-current-buffer-and-window)
(defun start-or-end-kbd-macro ()
"Start defining a keyboard macro, or stop if we're already defining."
(interactive)
(if defining-kbd-macro
(end-kbd-macro)
(start-kbd-macro nil)))
(global-set-key [(shift kp-multiply)] 'start-or-end-kbd-macro)
(global-set-key [kp-multiply] 'call-last-kbd-macro)
(define-key key-translation-map [(meta Odiaeresis)] "{")
(define-key key-translation-map [(meta Adiaeresis)] "}")
(define-key key-translation-map [(meta odiaeresis)] "[")
(define-key key-translation-map [(meta adiaeresis)] "]")
(define-key key-translation-map [(meta Ö)] "{")
(define-key key-translation-map [(meta Ä)] "}")
(define-key key-translation-map [(meta ö)] "[")
(define-key key-translation-map [(meta ä)] "]")
(global-set-key [(control *)] 'find-tag-at-point)
(global-set-key [kp-enter] (lambda () (interactive) (set-mark-command t)))
(global-set-key [(shift kp-enter)] 'repeat-complex-command)
(global-set-key [pause] 'repeat-complex-command) (global-set-key [(control kp-enter)] 'eval-expression)