From: Lars Ingebrigtsen <larsi@gnus.org>
Date: Fri, 2 Sep 2022 12:58:30 +0000 (+0200)
Subject: Fix define-minor-mode :keymap obsoletion warning
X-Git-Tag: emacs-29.0.90~1856^2~790
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=965ebf3484bf8ec39d0ee34f4040071fe3e5e04a;p=emacs.git

Fix define-minor-mode :keymap obsoletion warning

* lisp/emacs-lisp/easy-mmode.el (define-minor-mode): Fix some
warning.
---

diff --git a/lisp/emacs-lisp/easy-mmode.el b/lisp/emacs-lisp/easy-mmode.el
index a1398bd12e7..7d54a84687b 100644
--- a/lisp/emacs-lisp/easy-mmode.el
+++ b/lisp/emacs-lisp/easy-mmode.el
@@ -419,7 +419,10 @@ No problems result if this variable is not bound.
 	       (cond ((keymapp m) m)
                      ;; FIXME: `easy-mmode-define-keymap' is obsolete,
                      ;; so this form should also be obsolete somehow.
-		     ((listp m) (easy-mmode-define-keymap m))
+		     ((listp m)
+                      (with-suppressed-warnings ((obsolete
+                                                  easy-mmode-define-keymap))
+                        (easy-mmode-define-keymap m)))
 		     (t (error "Invalid keymap %S" m))))
 	     ,(format "Keymap for `%s'." mode-name)))