X-Git-Url: https://code.delx.au/gnu-emacs/blobdiff_plain/8c4e041bdbc07a159305b41e1bcb64f1d301b99f..c430f7e23fc2c22f251ace4254e37dea1452dfc3:/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))