;;; -*- Mode: Emacs-Lisp -*-

;;; .emacs  ---  Emacs Initialization file

;; Maintainer: --Your Name Here---

;;
;; The following is file does a few initializations by default
;; and many more if you uncomment some of the lines.
;; Assumes that your are running an version of emacs > 19.00
;; ( including Xemacs, formerly know as lemacs  )
;;

;;;; Key Bindings

;; Move help to ESCAPE-? and make C-h delete
; (global-set-key "\b" 'delete-backward-char) ; make backspace key work
; (global-set-key "\e?" 'help-command)	      ; change help to ESCAPE-?


;(global-set-key "\er" 'query-replace)	    ; set ESCAPE-r to replace string
;(global-set-key "\M- " 'set-mark-command)   ; use ESCAPE-SPACE to set mark
					    ; for terminals that cannot send
					    ; null by hitting CONTROL-SPACE

;; You can set goto-line to either M-g  or C-x C-j respectively
;(global-set-key "\eg" 'goto-line)
;(global-set-key "\C-x\C-j" 'goto-line)



;;;; Mode Line "Add-ons"

;; turn on line-number-mode    -- display the line number on the mode line.
;(line-number-mode t )

; Display the time and mail status 
;(display-time)


;;;; Auto Saving and Backups

;; Increase the time interval between auto-saves
;;  This interval is measured in characters
(setq auto-save-interval 900  )

;; You can also increase the default idle time until a auto-save.
;; the current default is 30 secs. ( although larger for big files ).
;(setq 'auto-save-timeout 60 )

;; Turn off auto-saving 
;(setq 'auto-save-default nil)



;; Turn on numbered backups ( for those who miss the LISPM, TOPS-20, or
;;                               VMS environments ).
;;   These settings keep the last 3 backups.
;(setq version-control t 
;      kept-old-versions 0 
;      kept-new-versions 3 )


;; Keep *NO* backup files.
;(setq version-control 'never )


;;;; Lisp Mode and Related Stuff

;;; The following are useful for getting inferior-lisp mode working
;;;   correctly.

;; On College of Computing Machines uncomment this line.
;(setq inferior-lisp-program "/usr/local/bin/cl" )

;; If running under X Windows turn on auto-hilite of "partner" paren.
;; If not then do nothing.
; (if (eq window-system 'x) (load-library "paren" ))


;;;; Misc.

;; Do not add a newline if scroll past end of file.
(setq next-line-add-newlines nil )

;;;EOF
;;;;;;