branch: elpa/meow
commit 090f7a4ad3e8085785b991d9e2e135399906911d
Author: BunnyAnon <[email protected]>
Commit: GitHub <[email protected]>
meow-command: fix meow-visit bug on empty input (#602)
* fixed meow-visit bug
* new empty failed message
* fixed spacing
* fixed spacing
* replaced tabs by spaces
* removed extra lines
---------
meow-visit hangs when minibuffer input is empty. Adds a check for empty
input in meow-visit and modifies the result message to indicate it was an empty
search.
Co-authored-by: bunnyanon <[email protected]>
---
meow-command.el | 4 ++--
1 file changed, 2 insertions(+), 2 deletions(-)
diff --git a/meow-command.el b/meow-command.el
index ec56b8283c..ed389cc8e4 100644
--- a/meow-command.el
+++ b/meow-command.el
@@ -1395,7 +1395,7 @@ To search backward, use \\[negative-argument]."
(text (meow--prompt-symbol-and-words
(if arg "Visit backward: " "Visit: ")
(point-min) (point-max)))
- (visit-point (meow--visit-point text reverse)))
+ (visit-point (if (string-empty-p text) nil (meow--visit-point text
reverse))))
(if visit-point
(let* ((m (match-data))
(marker-beg (car m))
@@ -1409,7 +1409,7 @@ To search backward, use \\[negative-argument]."
(meow--ensure-visible)
(meow--highlight-regexp-in-buffer text)
(setq meow--dont-remove-overlay t))
- (message "Visit: %s failed" text))))
+ (message "Visit: %s failed" (if (string-empty-p text) "<empty>" text)))))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;; THING
