 (setq-default my-global-map-mode 1)
 
 (let ((map my-global-map))
+  (define-key map (kbd "C-?") 'help-command)
   (define-key map (kbd "C-x C-h") 'help-command)
 
   (define-key map (kbd "C-w") 'kill-region-or-backward-word)

  (define-key map (kbd "C-c C-k") 'kill-this-buffer-and-delete-file)
  (define-key map (kbd "C-%") 'query-replace)

  (define-key map (kbd "C-h") 'backward-delete-char-untabify)
  (define-key map (kbd "C-S-h") 'backward-kill-word)
  (define-key map (kbd "C-S-d") 'kill-word)

  (define-key map (kbd "C-v") 'my-scroll-up)


  (define-key map (kbd "C-S-l") 'goto-line)

  (define-key map (kbd "C-;") 'execute-extended-command)
  (define-key map (kbd "C-#") 'comment-or-uncomment-line-or-region)

  (define-key map (kbd "C-/") 'undo)
  (define-key map (kbd "C-\\") 'redo)
