X-Git-Url: https://code.delx.au/gnu-emacs/blobdiff_plain/9418ab39bf970dd82b5d6f2e7b40a5d8cd134a43..d590048bed8466e84c66d60f35df236d0ff8e81b:/lisp/abbrev.el

diff --git a/lisp/abbrev.el b/lisp/abbrev.el
index 7814ea24b4..163dc8e572 100644
--- a/lisp/abbrev.el
+++ b/lisp/abbrev.el
@@ -848,7 +848,7 @@ if expansion occurred, else nil.)"
   "Default function to use for `abbrev-expand-function'.
 This respects the wrapper hook `abbrev-expand-functions'.
 Calls `abbrev-insert' to insert any expansion, and returns what it does."
-  (with-wrapper-hook abbrev-expand-functions ()
+  (subr--with-wrapper-hook-no-warnings abbrev-expand-functions ()
     (pcase-let ((`(,sym ,name ,wordstart ,wordend) (abbrev--before-point)))
       (when sym
         (let ((startpos (copy-marker (point) t))