     (move-cursor-to-top))
    ((eq move-cursor-to-window-last-op 'bottom)
     (move-cursor-to-bottom))))
+
+;; It is somewhat tricky using the key ; in key combination.
+(global-set-key (kbd "C-;") 'move-cursor-to-window)
+;; The statement above also works as
+;;(global-set-key [(control \;)] 'move-cursor-to-window)
 
 
 (defcustom move-line-to-window-margin 4

  "Scroll behind N lines (1 by default)."
  (interactive "P")
  (scroll-behind (prefix-numeric-value n)))


;; Cursor motion

              (find-alternate-file target)
              (message "visit file [%s] instead of symlink [%s]"
                       target symlink-maybe))
          (error "Not visiting a symlink")))
    (error "Not visiting a file")))

;; visit the target file instead of symbolic link
(add-hook 'find-file-hooks
