[elpa] externals/cape 3beed4f37c 047/146: Use cape--silent

[ELPA Syncer]

branch: externals/cape
commit 3beed4f37ca4e50ca97f7f49e2cc5faf35f07a59
Author: Daniel Mendler <mail@daniel-mendler.de>
Commit: Daniel Mendler <mail@daniel-mendler.de>

    Use cape--silent
    x
---
 cape.el | 27 +++++++++++++--------------
 1 file changed, 13 insertions(+), 14 deletions(-)

diff --git a/cape.el b/cape.el
index 8a8298f12e..3b78239faf 100644
--- a/cape.el
+++ b/cape.el
@@ -301,6 +301,13 @@
   "Alist of major modes and keywords."
   :type 'alist)
 
+(defmacro cape--silent (&rest body)
+  "Silence BODY."
+  `(cl-letf ((inhibit-message t)
+             (message-log-max nil)
+             ((symbol-function #'minibuffer-message) #'ignore))
+     (ignore-errors ,@body)))
+
 (defun cape--complete-in-region (thing table extra)
   "Complete THING at point given completion TABLE and EXTRA properties."
   (let ((bounds (or (bounds-of-thing-at-point thing) (cons (point) (point))))
@@ -401,11 +408,11 @@ METADATA is optional completion metadata."
 (defun cape--dabbrev-expansions (word)
   "Find all dabbrev expansions for WORD."
   (cape--dabbrev-reset)
-  (let* ((inhibit-message t)
-         (message-log-max nil)
-         (min-len (+ cape-dabbrev-min-length (length word)))
-         (words (dabbrev--find-all-expansions word (dabbrev--ignore-case-p 
word))))
-    (cl-loop for w in words if (>= (length w) min-len) collect w)))
+  (cape--silent
+   (cl-loop
+    with min-len = (+ cape-dabbrev-min-length (length word))
+    for w in (dabbrev--find-all-expansions word (dabbrev--ignore-case-p word))
+    if (>= (length w) min-len) collect w)))
 
 (defvar cape--ispell-properties
   (list :annotation-function (lambda (_) " Ispell")
@@ -417,9 +424,7 @@ METADATA is optional completion metadata."
   "Return all words from Ispell matching STR."
   (with-demoted-errors "Ispell Error: %S"
     (require 'ispell)
-    (let ((message-log-max nil)
-          (inhibit-message t))
-      (ispell-lookup-words (format "*%s*" str)))))
+    (cape--silent (ispell-lookup-words (format "*%s*" str)))))
 
 (defun cape--ispell-table (bounds)
   "Return completion table for Ispell completion between BOUNDS."
@@ -678,12 +683,6 @@ and the various :company-* extensions."
       (`(,beg ,end ,table . ,plist)
        `(,beg ,end ,table ,@properties ,@plist)))))
 
-(defmacro cape--silent (&rest body)
-  "Silence BODY."
-  `(cl-letf ((inhibit-message t)
-             ((symbol-function #'minibuffer-message) #'ignore))
-     (ignore-errors ,@body)))
-
 (defun cape-silent-capf (capf)
   "Return a new CAPF which is silent (no messages, no errors)."
   (lambda ()