Make gnus-define-keys obsolete

* lisp/gnus/gnus-util.el (gnus-define-keys):
(gnus-define-keys-1): Make obsolete.

diff --git a/etc/NEWS b/etc/NEWS
index 7b218aaf6da57fe85be8e8f4045cadcc3914f15a..ab15b1efaf0927bf310fcdf1b0ee20e50c4b23ff 100644 (file)
--- a/etc/NEWS
+++ b/etc/NEWS
@@ -117,6 +117,10 @@ Emacs buffers, like indentation and the like.  The new ert function
 \f
 * Incompatible Lisp Changes in Emacs 29.1
 
+---
+** 'gnus-define-keys' is now obsolete.
+Use 'define-keymap' instead.
+
 ---
 ** MozRepl has been removed from js.el.
 MozRepl was removed from Firefox in 2017, so this code doesn't work

diff --git a/lisp/gnus/gnus-util.el b/lisp/gnus/gnus-util.el
index 0163abad4b12305b1667c3a89c585a82bdc95a3e..a777157f894f0d1581956a6395e9e7cd5bcffc98 100644 (file)
--- a/lisp/gnus/gnus-util.el
+++ b/lisp/gnus/gnus-util.el
@@ -305,7 +305,7 @@ Symbols are also allowed; their print names are used instead."
 
 (defmacro gnus-define-keys (keymap &rest plist)
   "Define all keys in PLIST in KEYMAP."
-  (declare (indent 1))
+  (declare (obsolete define-keymap "29.1") (indent 1))
   `(gnus-define-keys-1 ,(if (symbolp keymap) keymap `',keymap) (quote ,plist)))
 
 (defmacro gnus-define-keys-safe (keymap &rest plist)
@@ -319,6 +319,7 @@ Symbols are also allowed; their print names are used instead."
   `(gnus-define-keys-1 ,keymap (quote ,plist)))
 
 (defun gnus-define-keys-1 (keymap plist &optional safe)
+  (declare (obsolete define-keymap "29.1"))
   (when (null keymap)
     (error "Can't set keys in a null keymap"))
   (cond ((symbolp keymap) (error "First arg should be a keymap object"))