diff options
| author | Stefan Kangas | 2025-03-22 07:01:14 +0100 |
|---|---|---|
| committer | Stefan Kangas | 2025-03-22 07:01:14 +0100 |
| commit | 580c050f6dd41eea718f9414efeabcae43cdb625 (patch) | |
| tree | 9904891dcd34aa422c4a60805e3b3e246ad0bb51 | |
| parent | 2fcf6b40869f085b32876206179bf1dfe2dc2c93 (diff) | |
| download | emacs-580c050f6dd41eea718f9414efeabcae43cdb625.tar.gz emacs-580c050f6dd41eea718f9414efeabcae43cdb625.zip | |
Make 'eieio-version' obsolete
EIEIO used to be developed externally as part of CEDET, but that is no
longer the case. It now has the same version as Emacs itself.
https://sourceforge.net/p/cedet/git/ci/8aa920380f8178ed2514f06f13c403d80db16752/
* lisp/emacs-lisp/eieio.el: Change "Version" header to "Old-Version".
(eieio-version): Make both the variable and the function obsolete in
favor of 'emacs-version'.
| -rw-r--r-- | lisp/emacs-lisp/eieio.el | 25 |
1 files changed, 15 insertions, 10 deletions
diff --git a/lisp/emacs-lisp/eieio.el b/lisp/emacs-lisp/eieio.el index 0f029813f80..3d8a025644a 100644 --- a/lisp/emacs-lisp/eieio.el +++ b/lisp/emacs-lisp/eieio.el | |||
| @@ -1,10 +1,10 @@ | |||
| 1 | ;;; eieio.el --- Enhanced Implementation of Emacs Interpreted Objects -*- lexical-binding:t -*- | 1 | ;;; eieio.el --- Enhanced Implementation of Emacs Interpreted Objects -*- lexical-binding:t -*- |
| 2 | ;;; or maybe Eric's Implementation of Emacs Interpreted Objects | 2 | ;;; or maybe Eric's Implementation of Emacs Interpreted Objects |
| 3 | 3 | ||
| 4 | ;; Copyright (C) 1995-1996, 1998-2025 Free Software Foundation, Inc. | 4 | ;; Copyright (C) 1995-2025 Free Software Foundation, Inc. |
| 5 | 5 | ||
| 6 | ;; Author: Eric M. Ludlam <zappo@gnu.org> | 6 | ;; Author: Eric M. Ludlam <zappo@gnu.org> |
| 7 | ;; Version: 1.4 | 7 | ;; Old-Version: 1.4 |
| 8 | ;; Keywords: OO, lisp | 8 | ;; Keywords: OO, lisp |
| 9 | 9 | ||
| 10 | ;; This file is part of GNU Emacs. | 10 | ;; This file is part of GNU Emacs. |
| @@ -44,14 +44,6 @@ | |||
| 44 | 44 | ||
| 45 | ;;; Code: | 45 | ;;; Code: |
| 46 | 46 | ||
| 47 | (defvar eieio-version "1.4" | ||
| 48 | "Current version of EIEIO.") | ||
| 49 | |||
| 50 | (defun eieio-version () | ||
| 51 | "Display the current version of EIEIO." | ||
| 52 | (interactive) | ||
| 53 | (message eieio-version)) | ||
| 54 | |||
| 55 | (require 'eieio-core) | 47 | (require 'eieio-core) |
| 56 | (eval-when-compile (require 'subr-x)) | 48 | (eval-when-compile (require 'subr-x)) |
| 57 | 49 | ||
| @@ -1004,6 +996,19 @@ of `eq'." | |||
| 1004 | (error "EIEIO: `change-class' is unimplemented")) | 996 | (error "EIEIO: `change-class' is unimplemented")) |
| 1005 | (define-obsolete-function-alias 'change-class #'eieio-change-class "26.1") | 997 | (define-obsolete-function-alias 'change-class #'eieio-change-class "26.1") |
| 1006 | 998 | ||
| 999 | |||
| 1000 | ;;; Obsolete | ||
| 1001 | ;; | ||
| 1002 | (make-obsolete-variable 'eieio-version 'emacs-version "31.1") | ||
| 1003 | (defvar eieio-version "1.4" | ||
| 1004 | "Current version of EIEIO.") | ||
| 1005 | |||
| 1006 | (defun eieio-version () | ||
| 1007 | "Display the current version of EIEIO." | ||
| 1008 | (declare (obsolete emacs-version "31.1")) | ||
| 1009 | (interactive) | ||
| 1010 | (message eieio-version)) | ||
| 1011 | |||
| 1007 | (provide 'eieio) | 1012 | (provide 'eieio) |
| 1008 | 1013 | ||
| 1009 | ;;; eieio.el ends here | 1014 | ;;; eieio.el ends here |