branch: externals/ergoemacs-mode
commit 57e8e17079bd5043951986bcf87673f16e002b79
Author: Matthew Fidler <514778+mattfid...@users.noreply.github.com>
Commit: Matthew Fidler <514778+mattfid...@users.noreply.github.com>
remove undo-tree and mark-active
---
ergoemacs-mode.el | 27 ++-------------------------
1 file changed, 2 insertions(+), 25 deletions(-)
diff --git a/ergoemacs-mode.el b/ergoemacs-mode.el
index fb85ce3..d61516d 100644
--- a/ergoemacs-mode.el
+++ b/ergoemacs-mode.el
@@ -9,7 +9,7 @@
;; Created: August 01 2007
;; Keywords: convenience
;; Version: 5.16.10.12
-;; Package-Requires: ((emacs "24.1") (undo-tree "0.6.5") (cl-lib "0.5"))
+;; Package-Requires: ((emacs "24.1") (cl-lib "0.5"))
;; URL: https://github.com/ergoemacs/ergoemacs-mode
;; ErgoEmacs is free software: you can redistribute it and/or modify
@@ -49,7 +49,6 @@
(eval-when-compile
(require 'ergoemacs-macros))
-(require 'undo-tree nil t)
(provide 'ergoemacs-mode)
(require 'kmacro)
@@ -717,23 +716,9 @@ after initializing ergoemacs-mode.
(defvar ergoemacs-override-alist nil
"ErgoEmacs override keymaps.")
-(defvar ergoemacs-mode-mark-active-keymap
- (let ((map (make-sparse-keymap)))
- (define-key map (kbd "TAB") 'indent-region))
- "ergoemacs mark active keymap.")
-
-(defvar ergoemacs-undo-tree-remap-keymap
- (let ((map (make-sparse-keymap)))
- (define-key map [remap ergoemacs-redo] 'undo-tree-redo)
- (define-key map [remap undo] 'undo-tree-undo))
- "ergoemacs undo-tree remap keymaps")
-
-
(defun ergoemacs-setup-override-keymap ()
"Setup `ergoemacs-mode' overriding keymap `ergoemacs-override-keymap'."
- (setq ergoemacs-override-alist `((mark-active .
,ergoemacs-mode-mark-active-keymap)
- (undo-tree-mode .
,ergoemacs-undo-tree-remap-keymap)
- (ergoemacs-mode . ,ergoemacs-user-keymap)
+ (setq ergoemacs-override-alist `((ergoemacs-mode . ,ergoemacs-user-keymap)
(ergoemacs-mode .
,ergoemacs-override-keymap)
(ergoemacs-mode . ,ergoemacs-keymap)))
(add-hook 'emulation-mode-map-alists ergoemacs-override-alist))
@@ -809,14 +794,6 @@ Valid values are:
:initialize #'custom-initialize-default
:group 'ergoemacs-mode)
-
-(defcustom ergoemacs-remap-ignore '(undo-tree-visualize)
- "Functions to ignore in `ergoemacs-mode' remaps."
- :type '(repeat (sexp :tag "Function"))
- :set #'ergoemacs-set-default
- :initialize #'custom-initialize-default
- :group 'ergoemacs-mode)
-
(defvar ergoemacs-map-properties--global-map-before-ergoemacs
(ergoemacs-map-keymap nil global-map)
"A single keymap for the keys before `ergoemacs-mode' loads.")
