From 493e19b97f8561638f042fb166cd69a384718edd Mon Sep 17 00:00:00 2001 From: Stefan Kangas Date: Thu, 19 Nov 2020 17:42:14 +0100 Subject: [PATCH] Declare some compat aliases obsolete * lisp/cedet/semantic/tag.el (semantic-token-version) (semantic-token-incompatible-version): * lisp/emulation/edt.el (edt-bind-standard-key): Make compat aliases obsolete. --- lisp/cedet/semantic/tag.el | 10 +++++----- lisp/emulation/edt.el | 3 +-- 2 files changed, 6 insertions(+), 7 deletions(-) diff --git a/lisp/cedet/semantic/tag.el b/lisp/cedet/semantic/tag.el index e677264c5a9..badefd59e64 100644 --- a/lisp/cedet/semantic/tag.el +++ b/lisp/cedet/semantic/tag.el @@ -1321,12 +1321,12 @@ This function is overridable with the symbol `insert-foreign-tag'." "Insert foreign tags into log-edit mode." (insert (concat "(" (semantic-format-tag-name foreign-tag) "): "))) -;;; Compatibility +;;; Obsolete ;; -(defconst semantic-token-version - semantic-tag-version) -(defconst semantic-token-incompatible-version - semantic-tag-incompatible-version) +(define-obsolete-variable-alias 'semantic-token-version + 'semantic-tag-version "28.1") +(define-obsolete-variable-alias 'semantic-token-incompatible-version + 'semantic-tag-incompatible-version "28.1") (provide 'semantic/tag) diff --git a/lisp/emulation/edt.el b/lisp/emulation/edt.el index e70b44658d5..b29ad7702ef 100644 --- a/lisp/emulation/edt.el +++ b/lisp/emulation/edt.el @@ -2161,8 +2161,7 @@ Argument KEY is the name of a key. It can be a standard key or a function key. Argument BINDING is the Emacs function to be bound to ." (define-key edt-user-global-map key binding)) -;; For backward compatibility to existing edt-user.el files. -(fset 'edt-bind-standard-key (symbol-function 'edt-bind-key)) +(define-obsolete-function-alias 'edt-bind-standard-key #'edt-bind-key "28.1") (defun edt-bind-gold-key (key gold-binding) "Binds standard key sequences to custom bindings in the EDT Emulator. -- 2.39.5