code.delx.au - dotemacs/blob - keys.el

   1 (global-set-key (kbd "<C-up>") 'windmove-up)
   2 (global-set-key (kbd "<C-down>") 'windmove-down)
   3 (global-set-key (kbd "<C-left>") 'windmove-left)
   4 (global-set-key (kbd "<C-right>") 'windmove-right)
   5
   6
   7 (global-set-key (kbd "M-;") 'toggle-comment-on-line)
   8 (defun toggle-comment-on-line ()
   9   (interactive)
  10   (if (and mark-active transient-mark-mode)
  11       (comment-or-uncomment-region (region-beginning) (region-end))
  12     (comment-or-uncomment-region (line-beginning-position) (line-end-position)))
  13   (next-line))
  14
  15
  16 (setq mouse-wheel-scroll-amount '(3))
  17 (setq mouse-wheel-progressive-speed nil)
  18
  19
  20 (setq read-file-name-completion-ignore-case t)
  21 (setq read-buffer-completion-ignore-case t)