From 8687e378e119a0fbcf1f653b36ffd52eddc30d1f Mon Sep 17 00:00:00 2001 From: Kjetil Orbekk Date: Sat, 13 Jan 2024 11:12:34 -0500 Subject: isearch settings --- emacs/.config/emacs-v2/lisp/kj-init.el | 13 +++++++++---- 1 file changed, 9 insertions(+), 4 deletions(-) diff --git a/emacs/.config/emacs-v2/lisp/kj-init.el b/emacs/.config/emacs-v2/lisp/kj-init.el index 6656977..32985dc 100644 --- a/emacs/.config/emacs-v2/lisp/kj-init.el +++ b/emacs/.config/emacs-v2/lisp/kj-init.el @@ -706,11 +706,13 @@ ;; (unbind-key "M-r" paredit-mode-map) ;; (unbind-key "M-s" paredit-mode-map)))) + (define-key isearch-mode-map (kbd "C-RET") #'isearch-exit-other-end) ;; Why does C-RET not always work? (define-key isearch-mode-map (kbd "C-") - #'isearch-exit-other-end) + #'isearch-exit-other-end) + (defun isearch-exit-other-end () "Exit isearch, at the opposite end of the string." (interactive) @@ -725,9 +727,12 @@ (goto-char isearch-other-end) (kill-region (region-beginning) (region-end))) -(setq case-fold-search t) -(setq case-replace t) - +(setq case-fold-search t + case-replace t + char-fold-symmetric t + isearch-lax-whitespace t + search-default-mode 'char-fold-to-regexp) +(add-to-list 'char-fold-include '(?- "_" "-")) (use-package expand-region :bind (("C-@" . #'er/expand-region))) -- cgit v1.2.3