branch: externals/ergoemacs-mode
commit ea5a7f5b2a9854e6a676ed2372abfcf185ce557a
Author: Matthew Fidler <514778+mattfid...@users.noreply.github.com>
Commit: Matthew Fidler <514778+mattfid...@users.noreply.github.com>
Remove compilation mode map (emulation overrides); Fix isearch M-O
---
ergoemacs-themes.el | 30 ++----------------------------
1 file changed, 2 insertions(+), 28 deletions(-)
diff --git a/ergoemacs-themes.el b/ergoemacs-themes.el
index baf95af..c567446 100644
--- a/ergoemacs-themes.el
+++ b/ergoemacs-themes.el
@@ -1268,15 +1268,13 @@ In a terminal, this can be either arrow keys (e.g.
meta+O A == <up>) or regular
(ergoemacs-define-key isearch-mode-map (kbd "C-e")
'isearch-repeat-forward)
(ergoemacs-define-key isearch-mode-map (kbd "C-M-d")
'isearch-repeat-forward)
(ergoemacs-define-key isearch-mode-map (kbd "C-M-s")
'isearch-repeat-backward)
- (ergoemacs-define-key isearch-mode-map (kbd "M-t") 'isearch-complete)))
+ (ergoemacs-define-key isearch-mode-map (kbd "M-t") 'isearch-complete))
+ (ergoemacs-fix-arrow-keys isearch-mode-map))
(ergoemacs-save-key-state
'minibuffer-local-isearch-map
(define-key minibuffer-local-isearch-map [remap isearch-forward]
'isearch-forward-exit-minibuffer)
(define-key minibuffer-local-isearch-map [remap isearch-backward]
'isearch-reverse-exit-minibuffer)))
-
-
-
(defun ergoemacs-install-reduction-theme ()
"Install reduction theme."
(ergoemacs-unset-keys ergoemacs-override-keymap)
@@ -1394,30 +1392,6 @@ In a terminal, this can be either arrow keys (e.g.
meta+O A == <up>) or regular
(add-hook 'org-load-hook #'ergoemacs-install-org-bindings)
-(defvar compilation-mode-map)
-(defun ergoemacs-install-compilation-minor-mode ()
- "Install `compilation-minor-mode' bindings.
-This affects modes like `grep-mode' since this is a parent keymap"
- (ergoemacs-save-key-state
- 'compilation-mode-map
- (if (string-equal ergoemacs-theme "reduction")
- (progn
- (ergoemacs-define-key compilation-mode-map (kbd "M-d")
'scroll-down-command)
- (ergoemacs-define-key compilation-mode-map (kbd "DEL")
'scroll-down-command)
- (ergoemacs-define-key compilation-mode-map (kbd "<C-up>")
'compilation-previous-file)
- (ergoemacs-define-key compilation-mode-map (kbd "<C-down>")
'compilation-next-file)
- (ergoemacs-define-key compilation-mode-map (kbd "<M-up>")
'compilation-previous-file)
- (ergoemacs-define-key compilation-mode-map (kbd "<M-down>")
'compilation-next-file))
- (ergoemacs-define-key compilation-mode-map (kbd "M-d")
'scroll-down-command)
- (ergoemacs-define-key compilation-mode-map (kbd "DEL")
'scroll-down-command)
- (ergoemacs-define-key compilation-mode-map (kbd "M-U")
'compilation-previous-file)
- (ergoemacs-define-key compilation-mode-map (kbd "<C-up>")
'compilation-previous-file)
- (ergoemacs-define-key compilation-mode-map (kbd "M-O")
'compilation-next-file)
- (ergoemacs-define-key compilation-mode-map (kbd "<C-down>")
'compilation-next-file)
- (ergoemacs-define-key compilation-mode-map (kbd "<M-up>")
'compilation-previous-file)
- (ergoemacs-define-key compilation-mode-map (kbd "<M-down>")
'compilation-next-file))))
-
-(with-eval-after-load 'compile (ergoemacs-install-compilation-minor-mode))
(defvar log-edit-mode-map)
(defun ergoemacs-install-log-edit-bindings ()
