[elpa] externals/ergoemacs-mode c09952e 125/325: Remove all C-h help bindings except ergoemacs-describe-current-theme

[Stefan Monnier]

branch: externals/ergoemacs-mode
commit c09952e345ff9058eb570d7aee7cdb85ea5eb9c1
Author: Walter Landry <wlandry@caltech.edu>
Commit: Walter Landry <wlandry@caltech.edu>

    Remove all C-h help bindings except ergoemacs-describe-current-theme
---
 ergoemacs-themes.el | 19 +++----------------
 1 file changed, 3 insertions(+), 16 deletions(-)

diff --git a/ergoemacs-themes.el b/ergoemacs-themes.el
index 7f5c45d..dae65be 100644
--- a/ergoemacs-themes.el
+++ b/ergoemacs-themes.el
@@ -323,22 +323,9 @@
   "Backspace deletes last key entered in command sequence"
   (define-key ergoemacs-translate--parent-map (kbd "DEL") 
'ergoemacs-command-loop--force-undo-last))
 
-(ergoemacs-component help ()
+(defun ergoemacs-set-help ()
   "Help changes for ergoemacs-mode"
-  (global-set-key (kbd "C-h '") 'ergoemacs-describe-current-theme)
-  (global-set-key (kbd "C-h 1") 'describe-function)
-  (global-set-key (kbd "C-h 2") 'describe-variable)
-  (global-set-key (kbd "C-h 3") 'describe-key)
-  (global-set-key (kbd "C-h 4") 'describe-char)
-  (global-set-key (kbd "C-h 5") 'man)
-  (global-set-key (kbd "C-h 7") 'ergoemacs-lookup-google)
-  (global-set-key (kbd "C-h 8") 'ergoemacs-lookup-wikipedia)
-  (global-set-key (kbd "C-h 9") 'ergoemacs-lookup-word-definition)
-  (global-set-key (kbd "C-h `") 'elisp-index-search)
-  (global-set-key (kbd "C-h o") 'ergoemacs-where-is-old-binding)
-  (global-set-key (kbd "C-h z") 'ergoemacs-clean)
-  (global-set-key (kbd "C-h C-z") 'ergoemacs-clean-library))
-
+  (global-set-key (kbd "C-h '") 'ergoemacs-describe-current-theme))
 
 ;;; Variable Components
 (ergoemacs-component move-char ()
@@ -1225,7 +1212,6 @@
                 dired-tab
                 dired-to-wdired
                 execute
-                help
                 kill-line
                 misc
                 move-bracket
@@ -1264,6 +1250,7 @@
 (defun ergoemacs-install-standard-theme ()
   (ergoemacs-set-standard-vars)
   (ergoemacs-set-standard-fixed)
+  (ergoemacs-set-help)
   )
 
 (add-hook 'ergoemacs-mode-startup-hook #'ergoemacs-install-standard-theme)