emacs using 99 percent of winxp resources

[David R]

I am running gnu emacs 22.0.94.1 without gnuclientw and gnu emacs 
(patched) 22.0.99.1 through emacsclientw.exe on windows xp version 2002 
service pack 2

I love emacs but it is rendering my system inoperable.  I have no 
knowledge of lisp.

Could somebody please help me.....

my .emacs follows

(require 'msb)
(msb-mode 0)
(require 'desktop)
(desktop-load-default)
(desktop-read)
(setq load-path (cons "~/.emacs.d" load-path))
(add-to-list 'load-path "~/.emacs.d/emacs-rails")

(require 'jka-compr)
(require 'template)

(setq template-home-directory "/")
(template-initialize)


(require 'backup-dir)
(setq bkup-directory-info '((t "~/Emacs/emacsbackups" ok-create full-path)))


(require 'redo)

(require 'sams-lib)
(load-file "~/.emacs.d/refcard.el")




(transient-mark-mode)



(global-set-key [(meta left)] 'backward-sexp)
(global-set-key [(meta right)] 'forward-sexp)
(global-set-key [(meta g)] 'goto-line)

;;; the igrep package
(autoload (function igrep) "igrep"
"*Run `grep` PROGRAM to match EXPRESSION in FILES..." t)
(autoload (function igrep-find) "igrep"
"*Run `grep` via `FIND`..." t)
(autoload (function dired-do-igrep) "igrep"
"*Run `grep` on the marked (or next prefix ARG) files." t)
(autoload (function dired-do-igrep) "igrep"
"*Run `grep` via \find\ on the marked (or next prefix ARG) directories." t)
(autoload (function grep) "igrep"
"*Run `grep` PROGRAM to match EXPRESSSION in FILES..." t)
(autoload (function egrep) "igrep" "*Run `egrep`..." t)
(autoload (function fgrep) "igrep" "*Run `fgrep`..." t)
(autoload (function agrep) "igrep" "*Run `fgrep`..." t)
(autoload (function grep-find) "igrep" "*Run `grep` via `find`..." t)
(autoload (function egrep-find) "igrep" "*Run `egrep` via `find`..." t)
(autoload (function fgrep-find) "igrep" "*Run `fgrep` via `find`..." t)
(autoload (function dired-do-grep) "igrep" "*Run `grep` on the marked 
(or next prefix ARG) files." t)
(autoload (function function dired-do-grep-find) "igrep" "*Run `grep` 
via find on the marked (or next prefix ARG) directories." t)

(add-to-list 'load-path "~/.site-lisp/RubyRailsEmacs/el")
(require 'pabbrev)



;; Ruby Mode
(add-to-list 'load-path "~/.site-lisp/RubyRailsEmacs/ruby-mode")
(add-to-list 'load-path "~/.emacs.d")
(add-to-list 'load-path "~/.emacs.d/RubyRailsEmacs/el")
(require 'ruby-mode)
(require 'ruby-electric)
(require 'pabbrev)



;; Rinari Mode (Rails)
(add-to-list 'load-path "~/.site-lisp/RubyRailsEmacs/rinari")
(add-to-list 'load-path "~/.site-lisp/RubyRailsEmacs/rinari/rhtml")
(require 'rinari)
(setq auto-mode-alist (cons '("\\.rhtml\\'" . rhtml-mode) auto-mode-alist))

(add-to-list 'load-path "~/.emacs.d/cedet-1.0pre3")
(add-to-list 'load-path "~/.emacs.d/cedet-1.0pre3/common")
(require 'cedet)

(require 'ecb-autoloads)

(autoload 'ruby-mode "ruby-mode" "Ruby editing mode." t)
(setq auto-mode-alist  (cons '("\\.rb$" . ruby-mode) auto-mode-alist))
(setq auto-mode-alist  (cons '("\\.rhtml$" . html-mode) auto-mode-alist))

(modify-coding-system-alist 'file "\\.rb$" 'utf-8)
(modify-coding-system-alist 'file "\\.rhtml$" 'utf-8)

(require 'snippet)
(setq load-path (cons "~/.emacs.d/emacs-rails" load-path))
(require 'rails)


many thanks
David R