(global-set-key (kbd "<C-up>") 'windmove-up)
(global-set-key (kbd "<C-down>") 'windmove-down)
(global-set-key (kbd "<C-left>") 'windmove-left)
(global-set-key (kbd "<C-right>") 'windmove-right)


(global-set-key (kbd "M-;") 'toggle-comment-on-line)
(defun toggle-comment-on-line ()
  (interactive)
  (if (and mark-active transient-mark-mode)
      (comment-or-uncomment-region (region-beginning) (region-end))
    (comment-or-uncomment-region (line-beginning-position) (line-end-position)))
  (next-line))


(setq mouse-wheel-scroll-amount '(3))
(setq mouse-wheel-progressive-speed nil)


(setq read-file-name-completion-ignore-case t)
(setq read-buffer-completion-ignore-case t)