From d987ca6f2267f5107a3e543fca4e8eaca983afa6 Mon Sep 17 00:00:00 2001 From: Stefan Kangas Date: Mon, 1 Feb 2021 06:12:15 +0100 Subject: [PATCH] Remove another variable obsolete since Emacs 23.2 * src/keymap.c (syms_of_keymap, Fdefine_key): * lisp/subr.el (define-key-rebound-commands): Remove variable obsolete since Emacs 23.2. --- etc/NEWS | 5 +++-- lisp/subr.el | 1 - src/keymap.c | 9 --------- 3 files changed, 3 insertions(+), 12 deletions(-) diff --git a/etc/NEWS b/etc/NEWS index 29499639e70..fc3a3dafb8d 100644 --- a/etc/NEWS +++ b/etc/NEWS @@ -2108,8 +2108,9 @@ ledit.el, lmenu.el, lucid.el and old-whitespace.el. 'completion-base-size', 'completion-common-substring', 'crm-minibuffer-complete', 'crm-minibuffer-complete-and-exit', 'crm-minibuffer-completion-help', 'custom-mode', 'custom-mode-hook', -'define-mode-overload-implementation', 'detect-coding-with-priority', -'dirtrack-debug', 'dirtrack-debug-toggle', 'dynamic-completion-table', +'define-key-rebound-commands', 'define-mode-overload-implementation', +'detect-coding-with-priority', 'dirtrack-debug', +'dirtrack-debug-toggle', 'dynamic-completion-table', 'easy-menu-precalculate-equivalent-keybindings', 'epa-display-verify-result', 'epg-passphrase-callback-function', 'eshell-report-bug', 'eval-next-after-load', 'exchange-dot-and-mark', diff --git a/lisp/subr.el b/lisp/subr.el index a85f41d7d77..6e52bd20df2 100644 --- a/lisp/subr.el +++ b/lisp/subr.el @@ -1694,7 +1694,6 @@ be a list of the form returned by `event-start' and `event-end'." ;;;; Obsolescence declarations for variables, and aliases. -(make-obsolete-variable 'define-key-rebound-commands nil "23.2") (make-obsolete-variable 'redisplay-end-trigger-functions 'jit-lock-register "23.1") (make-obsolete-variable 'deferred-action-list 'post-command-hook "24.1") (make-obsolete-variable 'deferred-action-function 'post-command-hook "24.1") diff --git a/src/keymap.c b/src/keymap.c index de9b2b58c5e..782931fadff 100644 --- a/src/keymap.c +++ b/src/keymap.c @@ -1065,9 +1065,6 @@ binding KEY to DEF is added at the front of KEYMAP. */) if (length == 0) return Qnil; - if (SYMBOLP (def) && !EQ (Vdefine_key_rebound_commands, Qt)) - Vdefine_key_rebound_commands = Fcons (def, Vdefine_key_rebound_commands); - int meta_bit = (VECTORP (key) || (STRINGP (key) && STRING_MULTIBYTE (key)) ? meta_modifier : 0x80); @@ -3132,12 +3129,6 @@ syms_of_keymap (void) pure_cons (build_pure_c_string ("SPC"), build_pure_c_string (" "))); staticpro (&exclude_keys); - DEFVAR_LISP ("define-key-rebound-commands", Vdefine_key_rebound_commands, - doc: /* List of commands given new key bindings recently. -This is used for internal purposes during Emacs startup; -don't alter it yourself. */); - Vdefine_key_rebound_commands = Qt; - DEFVAR_LISP ("minibuffer-local-map", Vminibuffer_local_map, doc: /* Default keymap to use when reading from the minibuffer. */); Vminibuffer_local_map = Fmake_sparse_keymap (Qnil); -- 2.39.2