[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[nongnu] elpa/evil 82e5bec: Add `evil-search-wrap-ring-bell` customizati
From: |
ELPA Syncer |
Subject: |
[nongnu] elpa/evil 82e5bec: Add `evil-search-wrap-ring-bell` customization variable (#1509) |
Date: |
Thu, 2 Sep 2021 16:57:22 -0400 (EDT) |
branch: elpa/evil
commit 82e5becae21b7768ffbb4728bce83dab8751d610
Author: Johannes Neyer <29305982+johannesneyer@users.noreply.github.com>
Commit: GitHub <noreply@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
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [nongnu] elpa/evil 82e5bec: Add `evil-search-wrap-ring-bell` customization variable (#1509),
ELPA Syncer <=