diff options
| author | Eli Zaretskii | 2022-12-03 11:32:00 +0200 |
|---|---|---|
| committer | Eli Zaretskii | 2022-12-03 11:32:00 +0200 |
| commit | 641ef36403b2d485bb4f500a7a6de33b6da7642c (patch) | |
| tree | deeeee4c922920d8420380fa4b41ec265ed27453 | |
| parent | 3623d5c195dba3a663380e6a40fac3ea5b1cb491 (diff) | |
| download | emacs-641ef36403b2d485bb4f500a7a6de33b6da7642c.tar.gz emacs-641ef36403b2d485bb4f500a7a6de33b6da7642c.zip | |
Fix gud-minor-mode-menu
* lisp/emacs-lisp/easy-mmode.el (define-minor-mode)
(easy-mmode-define-keymap): Don't declare obsolete, since we are
still using it in gud.el. (Bug#59769) (Bug#59605)
Do not merge to master.
| -rw-r--r-- | lisp/emacs-lisp/easy-mmode.el | 3 |
1 files changed, 0 insertions, 3 deletions
diff --git a/lisp/emacs-lisp/easy-mmode.el b/lisp/emacs-lisp/easy-mmode.el index 8de4d8a9c2d..2df390ecbeb 100644 --- a/lisp/emacs-lisp/easy-mmode.el +++ b/lisp/emacs-lisp/easy-mmode.el | |||
| @@ -417,8 +417,6 @@ No problems result if this variable is not bound. | |||
| 417 | `(defvar ,keymap-sym | 417 | `(defvar ,keymap-sym |
| 418 | (let ((m ,keymap)) | 418 | (let ((m ,keymap)) |
| 419 | (cond ((keymapp m) m) | 419 | (cond ((keymapp m) m) |
| 420 | ;; FIXME: `easy-mmode-define-keymap' is obsolete, | ||
| 421 | ;; so this form should also be obsolete somehow. | ||
| 422 | ((listp m) | 420 | ((listp m) |
| 423 | (with-suppressed-warnings ((obsolete | 421 | (with-suppressed-warnings ((obsolete |
| 424 | easy-mmode-define-keymap)) | 422 | easy-mmode-define-keymap)) |
| @@ -684,7 +682,6 @@ Valid keywords and arguments are: | |||
| 684 | :group Ignored. | 682 | :group Ignored. |
| 685 | :suppress Non-nil to call `suppress-keymap' on keymap, | 683 | :suppress Non-nil to call `suppress-keymap' on keymap, |
| 686 | `nodigits' to suppress digits as prefix arguments." | 684 | `nodigits' to suppress digits as prefix arguments." |
| 687 | (declare (obsolete define-keymap "29.1")) | ||
| 688 | (let (inherit dense suppress) | 685 | (let (inherit dense suppress) |
| 689 | (while args | 686 | (while args |
| 690 | (let ((key (pop args)) | 687 | (let ((key (pop args)) |