Merge pull request #1118 from lem-project/fix-vi-mode-noh-error

fix :noh behavior
lem-project · Sep 30, 2023 · 00b3945 · 00b3945
2 parents c737240 + a4c6070
commit 00b3945
Showing 1 changed file with 8 additions and 7 deletions.
diff --git a/src/ext/isearch.lisp b/src/ext/isearch.lisp
@@ -312,13 +312,14 @@
     (isearch-add-char char)))
 
 (defun isearch-end ()
-  (isearch-reset-overlays (current-buffer))
-  (change-previous-string *isearch-string*)
-  (buffer-unbound (current-buffer) 'isearch-redisplay-string)
-  (remove-hook (variable-value 'after-change-functions :buffer)
-               'isearch-change-buffer-hook)
-  (isearch-mode nil)
-  t)
+  (when (boundp '*isearch-string)
+    (isearch-reset-overlays (current-buffer))
+    (change-previous-string *isearch-string*)
+    (buffer-unbound (current-buffer) 'isearch-redisplay-string)
+    (remove-hook (variable-value 'after-change-functions :buffer)
+                 'isearch-change-buffer-hook)
+    (isearch-mode nil)
+    t))
 
 (defun isearch-redisplay-inactive (buffer)
   (alexandria:when-let ((string (buffer-value buffer 'isearch-redisplay-string)))