[elpa] externals/ergoemacs-mode 8b3c3eee91 6/7: Don't use advice by default

[ELPA Syncer]

branch: externals/ergoemacs-mode
commit 8b3c3eee91d4a1ebe4e2795f5b0c0e13a67395a4
Author: Matthew Fidler <matthew.fidler@gmail.com>
Commit: Matthew Fidler <matthew.fidler@gmail.com>

    Don't use advice by default
---
 ergoemacs-mode.el | 13 +++++++++----
 1 file changed, 9 insertions(+), 4 deletions(-)

diff --git a/ergoemacs-mode.el b/ergoemacs-mode.el
index 24b0704979..3b8223f76a 100644
--- a/ergoemacs-mode.el
+++ b/ergoemacs-mode.el
@@ -459,6 +459,9 @@ after initializing ergoemacs-mode.
 
 (defvar ergoemacs-mode-term-raw-keymap (make-sparse-keymap)
   "This is the `ergoemacs-mode' terminal raw keymap.  Only Meta/alt keys are 
applied.")
+
+(defvar ergoemacs-use-advice nil
+  )
 (defun ergoemacs-setup-override-keymap ()
   "Setup `ergoemacs-mode' keymaps."
   (setq ergoemacs-override-alist
@@ -471,14 +474,16 @@ after initializing ergoemacs-mode.
           (ergoemacs-mode-regular . ,ergoemacs-keymap)
           (ergoemacs-mode-send-emacs-keys . ,ergoemacs--send-emacs-keys-map)))
   (add-hook 'emulation-mode-map-alists ergoemacs-override-alist)
-  (advice-add 'undefined :around #'ergoemacs-advice-undefined)
-  (advice-add 'read-key :around #'ergoemacs-read-key))
+  (when ergoemacs-use-advice
+    (advice-add 'undefined :around #'ergoemacs-advice-undefined)
+    (advice-add 'read-key :around #'ergoemacs-read-key)))
 
 (defun ergoemacs-remove-override-keymap ()
   "Remove `ergoemacs-mode' keymaps."
   (remove-hook 'emulation-mode-map-alists 'ergoemacs-override-alist)
-  (advice-remove 'undefined #'ergoemacs-advice-undefined)
-  (advice-remove 'read-key #'ergoemacs-read-key))
+  (when ergoemacs-use-advice
+    (advice-remove 'undefined #'ergoemacs-advice-undefined)
+    (advice-remove 'read-key #'ergoemacs-read-key)))
 
 
 ;;; Frequently used commands as aliases