[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
master 493e19b 3/4: Declare some compat aliases obsolete
From: |
Stefan Kangas |
Subject: |
master 493e19b 3/4: Declare some compat aliases obsolete |
Date: |
Thu, 19 Nov 2020 14:50:18 -0500 (EST) |
branch: master
commit 493e19b97f8561638f042fb166cd69a384718edd
Author: Stefan Kangas <stefan@marxist.se>
Commit: Stefan Kangas <stefan@marxist.se>
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 e677264..badefd5 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 e70b446..b29ad77 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 <KEY>."
(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 <GOLD> standard key sequences to custom bindings in the EDT Emulator.