   (interactive)
   (move-to-window-line 0))
 
+(global-set-key "\M-," 'move-cursor-to-top)
+(global-set-key "\C-x," 'tags-loop-continue)
+
 
 (defun move-cursor-to-bottom ()
   "Put cursor at beginning of last visible line of current window."
   (interactive)
   (move-to-window-line -1))
+
+(global-set-key "\M-." 'move-cursor-to-bottom)
 
 
 (defun move-cursor-to-window (&optional arg)

              (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

    (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
