From: Stefan Kangas Date: Thu, 19 Nov 2020 16:42:14 +0000 (+0100) Subject: Declare some compat aliases obsolete X-Git-Tag: emacs-28.0.90~5100 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=493e19b97f8561638f042fb166cd69a384718edd;p=emacs.git 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. --- 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.