   "Scroll behind N lines (1 by default)."
   (interactive "P")
   (scroll-behind (prefix-numeric-value n)))
+
+(global-set-key "\C-q" 'scroll-n-lines-behind)
+(global-set-key "\C-z" 'scroll-n-lines-ahead)
+
+(global-set-key "\C-x\C-q" 'quoted-insert)
 
 
 ;; Cursor motion

  (interactive)
  (move-to-window-line 0))


(defun move-cursor-to-bottom ()
  "Put cursor at beginning of last visible line of current window."
  (interactive)
  (move-to-window-line -1))


(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
