Make some more cedet version variables obsolete

* lisp/cedet/ede.el (ede-version):
* lisp/cedet/semantic.el (semantic-version):
* lisp/cedet/srecode.el (srecode-version): Make obsolete.
* lisp/cedet/semantic/db-file.el (semanticdb-file-version): Don't
use above obsolete variable semantic-version.
This commit is contained in:
Stefan Kangas 2022-08-12 15:35:18 +02:00
parent 829b131e5b
commit fdbdbc2e1b
4 changed files with 12 additions and 7 deletions

View file

@ -1,6 +1,6 @@
;;; ede.el --- Emacs Development Environment gloss -*- lexical-binding: t; -*-
;; Copyright (C) 1998-2005, 2007-2022 Free Software Foundation, Inc.
;; Copyright (C) 1998-2022 Free Software Foundation, Inc.
;; Author: Eric M. Ludlam <zappo@gnu.org>
;; Keywords: project, make
@ -39,6 +39,8 @@
;;
;; (global-ede-mode t)
;;; Code:
(require 'cedet)
(require 'cl-lib)
(require 'eieio)
@ -66,10 +68,11 @@
(defconst ede-version "2.0"
"Current version of the Emacs EDE.")
(make-obsolete-variable 'ede-version 'emacs-version "29.1")
;;; Code:
(defun ede-version ()
"Display the current running version of EDE."
(declare (obsolete emacs-version "29.1"))
(interactive) (message "EDE %s" ede-version))
(defgroup ede nil

View file

@ -34,6 +34,8 @@
;; menu). To enable it at startup, put (semantic-mode 1) in your init
;; file.
;;; Code:
(require 'cedet)
(require 'semantic/tag)
(require 'semantic/lex)
@ -41,6 +43,7 @@
(defvar semantic-version "2.2"
"Current version of Semantic.")
(make-obsolete-variable 'semantic-version 'emacs-version "29.1")
(declare-function inversion-test "inversion")
(declare-function semanticdb-load-ebrowse-caches "semantic/db-ebrowse")
@ -73,9 +76,6 @@ introduced."
(require 'semantic/fw)
;;; Code:
;;
;;; Variables and Configuration
;;
(defvar-local semantic--parse-table nil

View file

@ -29,7 +29,7 @@
(require 'cedet-files)
(require 'data-debug)
(defvar semanticdb-file-version semantic-version
(defvar semanticdb-file-version "2.2"
"Version of semanticdb we are writing files to disk with.")
(defvar semanticdb-file-incompatible-version "1.4"
"Version of semanticdb we are not reverse compatible with.")

View file

@ -37,14 +37,16 @@
;;
;; See the srecode manual for specific details.
;;; Code:
(require 'eieio)
(require 'mode-local)
(load "srecode/loaddefs" nil 'nomessage)
(defvar srecode-version "1.2"
"Current version of the Semantic Recoder.")
(make-obsolete-variable 'srecode-version 'emacs-version "29.1")
;;; Code:
(defgroup srecode nil
"Semantic Recoder."
:group 'extensions