From 33c7ddb09e0eae0796686c64ffa022a181145cc1 Mon Sep 17 00:00:00 2001 From: Case Duckworth Date: Wed, 4 Jan 2023 23:21:15 -0600 Subject: Restart ... again ... again --- lisp/+isearch.el | 24 ------------------------ 1 file changed, 24 deletions(-) delete mode 100644 lisp/+isearch.el (limited to 'lisp/+isearch.el') diff --git a/lisp/+isearch.el b/lisp/+isearch.el deleted file mode 100644 index 3516ec4..0000000 --- a/lisp/+isearch.el +++ /dev/null @@ -1,24 +0,0 @@ -;;; +isearch.el --- iseach (and query-replace) extensions -*- lexical-binding: t; -*- - -;;; From https://github.com/astoff/isearch-mb/wiki - -(defun +isearch-cancel@add-search-to-history () - "Add search string to history also when canceling. -This should be used as `:before' advice on `isearch-cancel'." - (unless (string-equal "" isearch-string) - (isearch-update-ring isearch-string isearch-regexp))) - -(defun +perform-replace-dont-exit-on-anykey (orig &rest args) - "Don't exit replace for anykey that's not in `query-replace-map'. -This should be used as `:around' advice for `perform-replace'." - (save-window-excursion - (cl-letf* ((lookup-key-orig - (symbol-function 'lookup-key)) - ((symbol-function 'lookup-key) - (lambda (map key &optional accept-default) - (or (apply lookup-key-orig map key accept-default) - (when (eq map query-replace-map) 'help))))) - (apply orig args)))) - -(provide '+isearch) -;;; +isearch.el ends here -- cgit 1.4.1-21-gabe81