;;
(define-key global-map '[f5] 'goto-line)
(define-key global-map '[f12] 'bury-buffer)

;; Loadup font-lock and set some basic colors.
(require 'font-lock)
(setq font-lock-auto-fontify t)
(setq font-lock-maximum-decoration t)
(set-face-foreground font-lock-keyword-face "black")
(set-face-foreground font-lock-comment-face "blue")
(make-face-italic font-lock-comment-face)
(set-face-foreground 'italic "blue")
(set-face-foreground 'bold-italic "blue")

;;(setq next-buffer 0)
;;(defun switch-to-next-buffer() 
;;  (interactive)
;;  (switch-to-other-buffer next-buffer)
;;  (setq next-buffer (1+ next-buffer)))
;; (global-set-key '[f12] 'switch-to-next-buffer)
;;(global-set-key '[] 'newline-and-indent)

;;(require 'info)
;;(setq Info-dir-contents-directory (expand-file-name "~/info"))
;;(setq Info-directory-list (cons "/fs/contrib/src/egcs/egcs-1.1.1/solx86/info" Info-directory-list))

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; desktop-save -- save all loaded buffers
;; desktop-read -- reload buffers.
(load-library "desktop")

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; special marking
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
; customizations by Matz

(defun shift-mark (cmd)
  "Expands marked region to the point (position of cursor) after executing
command 'cmd'. If no region is marked, we mark one first."
  (interactive "_a")
  (if (not (region-active-p))
      (progn (set-mark-command nil)
             (command-execute cmd))
  (command-execute cmd)
))

(defun shift-mark-forward-char ()
  (interactive)
  (shift-mark 'forward-char)
)

(defun shift-mark-backward-char ()
  (interactive)
  (shift-mark 'backward-char)
)

(defun shift-mark-forward-word ()
  (interactive)
  (shift-mark 'forward-word)
)

(defun shift-mark-backward-word ()
  (interactive)
  (shift-mark 'backward-word)
)

(defun shift-mark-forward-paragraph ()
  (interactive)
  (shift-mark 'forward-paragraph)
)

(defun shift-mark-backward-paragraph ()
  (interactive)
  (shift-mark 'backward-paragraph)
)

(defun shift-mark-previous-line ()
  (interactive)
  (shift-mark 'previous-line)
)

(defun shift-mark-next-line ()
  (interactive)
  (shift-mark 'next-line)
)

(defun backspace-delete-marked-region ()
  (interactive)
                                        ;  (zmacs-region-stays t)
  (if (region-active-p)
      (kill-region (mark) (point))
    (delete-backward-char 1)
    )
)

(global-set-key '(shift right)      'shift-mark-forward-char)
(global-set-key '(shift left)    'shift-mark-backward-char)
(global-set-key '(shift up)    'shift-mark-previous-line)
(global-set-key '(shift down)    'shift-mark-next-line)
(global-set-key '(shift control right)    'shift-mark-forward-word)
(global-set-key '(shift control left)    'shift-mark-backward-word)
(global-set-key '(shift control up)    'shift-mark-backward-paragraph)
(global-set-key '(shift control down)    'shift-mark-forward-paragraph)
(global-set-key '(shift backspace)    'backspace-delete-marked-region)
(global-set-key '(control backspace)    'backspace-delete-marked-region)
(global-set-key '(shift control backspace)    'backspace-delete-marked-region)
(global-set-key '(del)    'backspace-delete-marked-region)

(global-set-key '(control left) 'backward-word)
(global-set-key '(control right) 'forward-word)
(global-set-key '(control up) 'backward-paragraph)
(global-set-key '(control down) 'forward-paragraph)
(global-set-key '(f27) 'beginning-of-line)  ;HOME
(global-set-key '(f33) 'end-of-line)        ;END



;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

;; Options Menu Settings
;; =====================
(cond
 ((and (string-match "XEmacs" emacs-version)
       (boundp 'emacs-major-version)
       (or (and
            (= emacs-major-version 19)
            (>= emacs-minor-version 14))
           (= emacs-major-version 20))
       (fboundp 'load-options-file))
  (load-options-file "/fs/amazon6/kris/.xemacs-options")))
;; ============================
;; End of Options Menu Settings



(custom-set-variables
 '(toolbar-news-reader (quote gnus))
 '(toolbar-mail-reader (quote vm))
 '(user-mail-address "kris@cs.ucsb.edu" t)
 '(query-user-mail-address nil))
(custom-set-faces
 '(font-lock-keyword-face ((t (:bold t))) t)
 '(dired-face-symlink ((((class color)) (:foreground "blue")) (t (:bold t)))))