[elpa] externals/ivy-hydra e7cc776 174/395: swiper.el (swiper-verbose): New defcustom

[Basil L. Contovounesios]

branch: externals/ivy-hydra
commit e7cc7769575cbc9ac6518f052ecd1489ee4a1832
Author: Oleh Krehel <ohwoeowho@gmail.com>
Commit: Oleh Krehel <ohwoeowho@gmail.com>

    swiper.el (swiper-verbose): New defcustom
    
    Re #2341
---
 swiper.el | 7 ++++++-
 1 file changed, 6 insertions(+), 1 deletion(-)

diff --git a/swiper.el b/swiper.el
index c3ca8f8..96d960f 100644
--- a/swiper.el
+++ b/swiper.el
@@ -1098,12 +1098,17 @@ WND, when specified is the window."
   (or (get-text-property 0 'swiper-line-number x)
       (get-text-property 1 'swiper-line-number x)))
 
+(defcustom swiper-verbose t
+  "When non-nil, print more informational messages."
+  :type 'boolean)
+
 (defun swiper--push-mark ()
   (when (/= (point) swiper--opoint)
     (unless (and transient-mark-mode mark-active)
       (when (eq ivy-exit 'done)
         (push-mark swiper--opoint t)
-        (message "Mark saved where search started")))))
+        (when swiper-verbose
+          (message "Mark saved where search started"))))))
 
 (defun swiper--action (x)
   "Goto line X."