(global-set-key "\M-g" 'goto-line)
(defun reformat-buffer nil
       (interactive)
       "Reformat whole buffer"
       (end-of-buffer)
       (setq eof (point-marker))
       (indent-region 0 eof nil)
       )
(global-set-key [?\C-c ?\t] 'reformat-buffer)
(set-background-color "black")
(set-face-background 'default "black")
(set-face-foreground 'default "green")
(set-face-background 'modeline "Blue")
(set-face-foreground 'modeline "LightBlue1")
(set-face-background 'highlight "DarkSlateGray4")
(set-face-foreground 'highlight "LightBlue1")
(set-face-background 'region "DarkSlateGray4")
(set-face-foreground 'region "white")
(set-face-background 'secondary-selection "DarkSlateGray4")
(set-face-foreground 'secondary-selection "yellow")
(set-face-foreground 'bold "LightCyan1")
(set-face-foreground 'italic "yellow")
(set-face-foreground 'bold-italic "white")
(set-face-foreground 'underline "LightBlue1")
(set-face-underline-p 'underline nil)
(set-background-color "black")

 (autoload 'hilit19-mode "hilit19" "Enter Hilit mode." t)





(defvar running-xemacs (string-match "XEmacs\\|Lucid" emacs-version))

(defun my-c-mode-hook ()
 (setq c-basic-offset 1)
 (setq c-comment-only-line-offset '(1 . 0))
 (setq fill-column 78)
 (setq c-file-offsets '((knr-argdecl-intro . 0)))
)



(cond (running-xemacs
       ;; Code f      ;; Here's a way to add scrollbar-like buttons to the menubar
       (add-menu-item nil "Top" 'beginning-of-buffer t)
       (add-menu-item nil "<<<" 'scroll-down t)
       (add-menu-item nil " . " 'recenter t)
       (add-menu-item nil ">>>" 'scroll-up t)
       (add-menu-item nil "Bot" 'end-of-buffer t)

       (setq c-mode-hook 'my-c-mode-hook)
       (require 'tex-site)      ;; auc tex
;       (setq latex-mode-hook 'my-latex-mode-hook)
;       (add-hook 'LaTeX-mode-hook 'auto-fill-mode)

       (require 'font-latex)
       (setq LaTeX-mode-hook 'my-latex-mode-hook)
       (setq-default TeX-master nil) ; Query for master file.

       ;;(require 'bibtex)
       (require 'bib-mode)
       (setq bibtex-mode-hook 'my-bibtex-hook)
       (require 'bib-cite)      ;; jump to a reference in LaTex mode

       (require 'postscript)
       (require 'matlab)   ;; matlab
       (setq matlab-mode-hook 'my-matlab-mode-hook)

       (require 'func-menu)     ;; list of functions in the buffer
       (add-hook 'find-file-hooks 'fume-add-menubar-entry)
       (define-key global-map "\C-cl" 'fume-list-functions)
       (define-key global-map "\C-cg" 'fume-prompt-function-goto)
       (define-key global-map '(shift button3) 'mouse-function-menu)
       (define-key global-map '(meta  button1) 'fume-mouse-function-goto)

       (require 'fancy-menu)    ;; Lucien's stuff
       (require 'cstruct) ;; C program structuring

;       (require 'document)     ;; my comments
;       (setq doc-char-comment "-");; this is for my comments
;       (setq doc-company-name "GRASP Lab, U of Penn")
;       (setq doc-licence-file "licence.grasp")

       (define-key global-map '(shift tab) 'self-insert-command);; insert tabs in c/c++

       (setq options-save-faces 't) ;; toggle option saving
       (setq auto-mode-alist;; This adds additional extensions
             (append '(("\\.C$"  . c++-mode)
                       ("\\.cc$" . c++-mode)
                       ("\\.hh$" . c++-mode)
                       ("\\.c$"  . c-mode)
                       ("\\.gwm$"  . lisp-mode)
                       ("\\.profile$"  . ksh-mode)
                       ("\\.m$"  . matlab-mode)
                       ("\\.h$"  . c-mode)
                       ("\\.?ps$" . postscript-mode))
                     auto-mode-alist))

       (define-key global-map "\C-cc" 'compile);; for the compile command
       (setq auto-save-directory (expand-file-name "~/autosave/")
             auto-save-directory-fallback auto-save-directory
             auto-save-hash-p nil
             ange-ftp-auto-save t
             ange-ftp-auto-save-remotely nil
             auto-save-interval 2000;; for better interactive response.
             )
       (require 'auto-save)

       (cond ((or (not (fboundp 'device-type))
                  (equal (device-type) 'x))
              ;;
              ;; Code which applies only when running emacs under X goes here.

              ;; I like hyperbole, but it is no use for emacs beginners.
              ;; (require 'hyperbole)

              ;; remap popup-buffer-menu
              ;(define-key global-map '(shift button2)  'popup-buffer-menu)
              (define-key global-map '(control button3)  'popup:kill-buffer)

              ;; cut-buffer search: in ~/xemacs
              (require 'cutbuffer-search)

              ;; start the emacs server
               ;(gnuserv-start ())

              ))
       ))
;; 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 "/home/jpb/.xemacs-options")))
;; ============================
;; End of Options Menu Settings

;; Miscellaneous settings

(set-variable 'lpr-switches '("-PM70"))
(line-number-mode t)
;(column-number-mode t)

(defun insert-page-break ()
  (interactive "*")
  (insert "\n\C-L\n")
)

(global-set-key "\M-p" 'insert-page-break)