branch: elpa/evil
commit 82e5becae21b7768ffbb4728bce83dab8751d610
Author: Johannes Neyer <29305982+johannesne...@users.noreply.github.com>
Commit: GitHub <nore...@github.com>
Add `evil-search-wrap-ring-bell` customization variable (#1509)
---
evil-search.el | 2 ++
evil-vars.el | 5 +++++
2 files changed, 7 insertions(+)
diff --git a/evil-search.el b/evil-search.el
index 1e9d972..efe7883 100644
--- a/evil-search.el
+++ b/evil-search.el
@@ -264,8 +264,10 @@ one more than the current position."
;; determine message for echo area
(cond
((and forward (< (point) start))
+ (when evil-search-wrap-ring-bell (ding))
(setq string "Search wrapped around BOTTOM of buffer"))
((and (not forward) (> (point) start))
+ (when evil-search-wrap-ring-bell (ding))
(setq string "Search wrapped around TOP of buffer"))
(t
(setq string (evil-search-message string forward))))
diff --git a/evil-vars.el b/evil-vars.el
index febeb63..c8add73 100644
--- a/evil-vars.el
+++ b/evil-vars.el
@@ -599,6 +599,11 @@ in insert state."
:type 'boolean
:group 'evil)
+(defcustom evil-search-wrap-ring-bell nil
+ "Whether to ring the bell when search wraps around the buffer."
+ :type 'boolean
+ :group 'evil)
+
(defvar dabbrev-search-these-buffers-only)
(defvar dabbrev-case-distinction)
(defcustom evil-complete-next-func
