procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Declare some compat aliases obsolete

Browse source 
* lisp/cedet/semantic/tag.el (semantic-token-version)
(semantic-token-incompatible-version):
* lisp/emulation/edt.el (edt-bind-standard-key): Make compat
aliases obsolete.
This commit is contained in:
Stefan Kangas 2020-11-19 17:42:14 +01:00
parent 1ac6330fce
commit 493e19b97f
2 changed files with 6 additions and 7 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

10
lisp/cedet/semantic/tag.el
View file

@ -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)

3
lisp/emulation/edt.el
View file

@ -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.