emacs-elpa-diffs
[Top][All Lists]
Advanced

[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



reply via email to

[Prev in Thread] Current Thread [Next in Thread]