bind my-prefix-map to C-xC-x, cleanse code

.emacs.el

@@ -9,16 +9,9 @@
 (unless (file-directory-p (expand-file-name "~/.emacs.d/lisp"))
   (make-directory (expand-file-name "~/.emacs.d/lisp")))
 (add-to-list 'load-path "~/.emacs.d/lisp")
-(add-to-list 'load-path "~/dbx/Public/myelisp")
 
 (require 'cl)
 
-(defvar my-prefix-map
-  (make-sparse-keymap))
-(global-set-key (kbd "C-z") my-prefix-map)
-(define-key my-prefix-map (kbd "C-q") 'quoted-insert)
-(define-key my-prefix-map (kbd "C-z") 'suspend-frame)
-
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;; start and quit
 
@@ -79,6 +72,13 @@
 (prefer-coding-system 'utf-8-unix)
 (setq system-time-locale "C")
 
+(defvar my-prefix-map
+  (make-sparse-keymap))
+(define-key ctl-x-map (kbd "C-x") my-prefix-map)
+(define-key my-prefix-map (kbd "C-q") 'quoted-insert)
+(define-key my-prefix-map (kbd "C-z") 'suspend-frame)
+
+
 ;; display
 (setq redisplay-dont-pause t)
 (setq visible-bell t)
@@ -170,9 +170,9 @@
 (global-set-key (kbd "C-<down>") (lambda () (interactive)(scroll-up 1)))
 (global-set-key (kbd "C-<left>") 'scroll-down)
 (global-set-key (kbd "C-<right>") 'scroll-up)
-(global-set-key (kbd "C-x M-x") 'execute-extended-command)
-(global-set-key (kbd "C-x M-:") 'eval-expression)
 (global-set-key (kbd "<select>") 'previous-line-mark)
+(define-key ctl-x-map (kbd "M-x") 'execute-extended-command)
+(define-key ctl-x-map (kbd "M-:") 'eval-expression)
 
 ;; C-h and DEL
 (global-set-key (kbd "C-h") (kbd "DEL"))
@@ -238,7 +238,14 @@
 (setq show-paren-style 'mixed)
 
 (transient-mark-mode 1)
+
 (global-font-lock-mode 1)
+(setq font-lock-global-modes
+      '(not
+        help-mode
+        eshell-mode
+        term-mode
+        Man-mode))
 
 (standard-display-ascii ?\n "$\n")
 (copy-face 'default 'my-eol-face)
@@ -290,13 +297,6 @@
       '(not
         term-mode))
 
-(setq font-lock-global-modes
-      '(not
-        help-mode
-        eshell-mode
-        term-mode
-        Man-mode))
-
 (add-hook 'font-lock-mode-hook
           (lambda ()
             ;; (font-lock-add-keywords nil my-eol-face)
@@ -410,6 +410,7 @@ emacs-major-version
 (setq auto-save-list-file-prefix (expand-file-name "~/.emacs.d/autosave/"))
 (setq delete-auto-save-files t)
 
+(add-to-list 'completion-ignored-extensions ".bak")
 ;; (setq delete-by-moving-to-trash t
 ;;       trash-directory "~/.emacs.d/trash")
 
@@ -487,8 +488,8 @@ if EXCLUDE-CURRENT-BUFFER-P is non-nil, never kill current buffer"
 
 ;; (define-key my-prefix-map (kbd "C-h") help-map)
 (global-set-key (kbd "C-\\") help-map)
-(global-set-key (kbd "C-x DEL") help-map)
-(global-set-key (kbd "C-x C-h") help-map)
+(define-key ctl-x-map (kbd "DEL") help-map)
+(define-key ctl-x-map (kbd "C-h") help-map)
 (define-key help-map "a" 'apropos)
 
 ;; compose window