From 0f2a13a32ac63dce6506965d735ca8a36f477740 Mon Sep 17 00:00:00 2001 From: William Carroll Date: Mon, 7 Sep 2020 16:12:27 +0100 Subject: [PATCH] Vertically align search results conditionally Only when `window-system` is set. --- emacs/.emacs.d/wpc/keybindings.el | 23 +++++++++++++---------- 1 file changed, 13 insertions(+), 10 deletions(-) diff --git a/emacs/.emacs.d/wpc/keybindings.el b/emacs/.emacs.d/wpc/keybindings.el index 722042445..a9f902ab9 100644 --- a/emacs/.emacs.d/wpc/keybindings.el +++ b/emacs/.emacs.d/wpc/keybindings.el @@ -107,16 +107,19 @@ (global-evil-surround-mode 1) ;; Ensure the Evil search results get centered vertically. -(progn - (defadvice isearch-update - (before advice-for-isearch-update activate) - (evil-scroll-line-to-center (line-number-at-pos))) - (defadvice evil-search-next - (after advice-for-evil-search-next activate) - (evil-scroll-line-to-center (line-number-at-pos))) - (defadvice evil-search-previous - (after advice-for-evil-search-previous activate) - (evil-scroll-line-to-center (line-number-at-pos)))) +;; When Emacs is run from a terminal, this forces Emacs to redraw itself, which +;; is visually disruptive. +(when window-system + (progn + (defadvice isearch-update + (before advice-for-isearch-update activate) + (evil-scroll-line-to-center (line-number-at-pos))) + (defadvice evil-search-next + (after advice-for-evil-search-next activate) + (evil-scroll-line-to-center (line-number-at-pos))) + (defadvice evil-search-previous + (after advice-for-evil-search-previous activate) + (evil-scroll-line-to-center (line-number-at-pos))))) (key-chord-mode 1) (key-chord-define evil-insert-state-map "jk" 'evil-normal-state)