           "%p"
           'local-map my-mode-line-buffer-percentage-mode-map
           'mouse-face 'mode-line-highlight
-          'help-echo "mouse-1: scroll up\nCtrl mouse-1: scroll down
-Shift mouse-1: toggle between Beginning & End of buffer"))
+          'help-echo "mouse-1: scroll up\nShift mouse-1: scroll down
+Ctrl mouse-1: toggle between Beginning & End of buffer"))
     (line-number-mode
      ((column-number-mode
        (10 ,(propertize

(global-set-key (kbd "C-n") 'execute-extended-command)
(global-set-key (kbd "C-p") 'shell)
;;(global-set-key (kbd "C-q") 'ido-switch-buffer)
(global-set-key (kbd "C-r") 'isearch-forward)
(global-set-key (kbd "C-s") 'save-buffer)
(global-set-key (kbd "C-t") 'ido-switch-buffer)
(global-set-key (kbd "C-v") 'clipboard-yank)
(global-set-key (kbd "C-w") 'my-kill-current-buffer)
(global-set-key (kbd "C-z") 'undo)

(global-set-key (kbd "C-x C-q") 'quoted-insert) ; was toggle-read-only



(make-variable-buffer-local 'mode-line-position)



(def-with-selected-window my-mode-line-window-split-right
  (split-window-right))

(def-with-selected-window my-mode-line-window-split-below
  (split-window-below))

(def-with-selected-window my-mode-line-window-delete
  (delete-window))

(def-with-selected-window my-mode-line-window-delete-other-windows
  (delete-other-windows))

(defun my-make-mode-line-mouse-map (&rest args)
  (let ((map (make-sparse-keymap)))
