[Top][All Lists]

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[elpa] master 4b7b075 093/184: ivy-test.el (ivy-test-inhibit-message): A

From: Oleh Krehel
Subject: [elpa] master 4b7b075 093/184: ivy-test.el (ivy-test-inhibit-message): Add
Date: Wed, 16 Oct 2019 13:14:58 -0400 (EDT)

branch: master
commit 4b7b075ecfe351bee1aeffe941159023aa0ba02c
Author: Oleh Krehel <address@hidden>
Commit: Oleh Krehel <address@hidden>

    ivy-test.el (ivy-test-inhibit-message): Add
 ivy-test.el | 8 +++++---
 1 file changed, 5 insertions(+), 3 deletions(-)

diff --git a/ivy-test.el b/ivy-test.el
index e72c2c8..3faa04e 100644
--- a/ivy-test.el
+++ b/ivy-test.el
@@ -69,10 +69,12 @@ Since `execute-kbd-macro' doesn't pick up a let-bound 
 (global-set-key (kbd "C-c e") 'ivy-eval)
+(defvar ivy-test-inhibit-message t)
 (cl-defun ivy-with (expr keys &key dir)
   "Evaluate EXPR followed by KEYS."
   (let ((ivy-expr expr)
-        (inhibit-message t)
+        (inhibit-message ivy-test-inhibit-message)
         (buf (current-buffer)))
@@ -752,7 +754,7 @@ will bring the behavior in line with the newer Emacsen."
        (switch-to-buffer standard-output t)
-       (let ((inhibit-message t))
+       (let ((inhibit-message ivy-test-inhibit-message))
           ,(apply #'vconcat (mapcar #'kbd keys)))))))
@@ -1116,7 +1118,7 @@ a buffer visiting a file."
                 (search-backward "|")
                 (delete-char 1)
                 (setq current-prefix-arg nil)
-                (let ((inhibit-message t))
+                (let ((inhibit-message ivy-test-inhibit-message))
                   ,@(mapcar (lambda (x)
                               (if (and (listp x)
                                        (stringp (car x)))

reply via email to

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