 
 (setq font-lock-maximum-decoration 3
       ;;font-lock-background-mode 'light
-)
-
-(load-hacks "ss-key")
-
-;;;
-;;; Special handling for terminals with stupid problems
-;;;
-
-(defun swap-ctl-h-and-del ()
-  "Swap the C-h and C-? keys."
-  (interactive)
-  ;; Mark D. Baushke
-  ;; UUCP:		{3comvax,auspex,sun}!bridge2!mdb
-  ;; Internet:   	mdb@bridge2.ESD.3Com.COM
-
-  ;; First make a translate table that does the identity translation.
-  (setq keyboard-translate-table (make-string 128 0))
-  (let ((i 0))
-    (while (< i 128)
-      (aset keyboard-translate-table i i)
-      (setq i (1+ i))))
-
-  ;; Now alter translations of some characters.
-  (aset keyboard-translate-table ?\C-? ?\C-h)
-  (aset keyboard-translate-table ?\C-h ?\C-?)
-)
+      )
 
 (setq terminal-uses-flow-control-chars 
    '("vt100" "vt320" "vt52" "vt101" "vt131"))
-
-;;; (load "flow-ctrl" t)
-
-
 
 ;;;
 ;;; Key Bindings

;;; Gnu Emacs Initialization File -- Steve Savitzky

;;; Which version?
;;;	It's time to give up on this stuff
(defconst emacs18 (string-match "^18\\." emacs-version)
  "non-nil iff Emacs 18, nil otherwise")

;;; Version-dependent filenames for my local hacks.
(defun hack-file (name)
  "Generate an appropriate filename, either NAME-hacks or NAME-19"
  (concat name (if emacs18 "-hacks" "-19")))

(defun load-hacks (name)
  "Load file NAME-hacks or NAME-19 depending on emacs version"
  (load (hack-file name) t))

(setq my-home-emacs-dir (concat (getenv "HOME") "/emacs"))
(if (file-exists-p my-home-emacs-dir)
    (setq load-path (cons my-home-emacs-dir load-path))
  (setq my-home-emacs-dir nil))


;;; Set up load paths.
(if nil (progn
(if (file-exists-p "/usr/local/starport/site-lisp")
    (progn (setq load-path (cons "/usr/local/starport/site-lisp" load-path))
	   (load "/usr/local/starport/site-lisp/default.el" t)
	   )
)

;;; put our old site-lisp at the end.  elib/cookie.el is used by pcl-cvs
(if (file-exists-p "/local/share/emacs/site-lisp")
    (progn (setq load-path 
		 (append  load-path 
			  (list "/local/share/emacs/site-lisp"
				;"/usr/local/share/emacs/site-lisp/elib"
				)))
	   (load "/local/share/emacs/site-lisp/default.el" t)
	   )
)))

;;; Load the things we always need.  
;;;	Use load rather than require to prevent errors if files don't exist.

;;; lj-compose to compose; ^C-s to post


(or (fboundp 'gin-mode-on) (defun gin-mode-on () "no gin-mode: fake it"))

(if (fboundp 'global-font-lock-mode) (global-font-lock-mode t))
(add-hook 'c-mode-hook 'turn-on-font-lock)
