(custom-set-variables
  ;; custom-set-variables was added by Custom -- don't edit or cut/paste it!
  ;; Your init file should contain only one such instance.
 '(archive-tmpdir "c:/tmp/archive.tmp-92171XgK")
 '(archive-zip-use-pkzip nil)
 '(c-default-style "stroustrup")
 '(c-hanging-comment-ender-p nil)
 '(column-number-mode t)
 '(fill-column 75)
 '(global-font-lock-mode t nil (font-lock))
 '(indent-tabs-mode nil)
 '(java-font-lock-extra-types nil)
 '(next-line-add-newlines nil)
 '(scroll-step 1)
 '(tab-width 4)
 '(column-number-mode t))
(global-set-key "\C-cg" 'goto-line)
(global-set-key [home] 'beginning-of-line)
(global-set-key [end] 'end-of-line)
(global-set-key [f1] 'man)
(global-set-key [f4] 'other-window)
(global-set-key [f5] 'compare-windows)
(global-set-key [f7] 'compile)

(autoload 'sgml-mode "psgml" "Major mode to edit SGML files." t )

;; My stuff

;; Change scroll down (page up) so that point goes to top if we can't
;; scroll further

(defun scroll-to-top (&optional n)
   "Scroll one screen toward beginning of file"
   (interactive "P")
   ;; function body
   (if (= (window-start) (point-min))
      (if (= (point-min) (point))
         (error "Top")
         (goto-char (point-min))
      )
      (scroll-down n)
   )
)
(global-set-key [prior] 'scroll-to-top)
(global-set-key "\M-v" 'scroll-to-top)

;; Change scroll up (page down) so that point goes to bottom if we can't
;; scroll further

(defun scroll-to-bottom (&optional n)
   "Scroll one screen toward end of file"
   (interactive "P")
   ;; function body
   (if (= (window-end nil t) (point-max))
      (if (= (point-max) (point))
         (error "Bottom")
         (goto-char (point-max))
      )
      (scroll-up n)
   )
)
(global-set-key [next] 'scroll-to-bottom)
(global-set-key "\C-v" 'scroll-to-bottom)

(put 'upcase-region 'disabled nil)