* lisp/emacs-lisp/eieio.el (oset, oset-default): Mark as obsolete

diff --git a/etc/NEWS b/etc/NEWS
index 753b7a7fd3676a6aed72d4cfdf4903d7098f86a6..0f4b6244c6224992701ce5361fdd5f1a2d8c129f 100644 (file)
--- a/etc/NEWS
+++ b/etc/NEWS
@@ -101,6 +101,8 @@ horizontal movements now stop at the edge of the board.
 \f
 * Changes in Specialized Modes and Packages in Emacs 28.1
 
+** EIEIO: 'oset' and 'oset-default' are declared obsolete
+
 ** New minor mode 'cl-font-lock-built-in-mode' for `lisp-mode'
 The mode provides refined highlighting of built-in functions, types,
 and variables.

diff --git a/lisp/emacs-lisp/eieio.el b/lisp/emacs-lisp/eieio.el
index 9f8b639e52d1b69ffff3ab2cd9f81970d9a6d406..fe2b80be01ecabb8afaa71c18689788534b948c6 100644 (file)
--- a/lisp/emacs-lisp/eieio.el
+++ b/lisp/emacs-lisp/eieio.el
@@ -517,7 +517,8 @@ The CLOS function `class-direct-subclasses' is aliased to this function."
   "Set the value in OBJ for slot SLOT to VALUE.
 SLOT is the slot name as specified in `defclass' or the tag created
 with in the :initarg slot.  VALUE can be any Lisp object."
-  (declare (debug (form symbolp form)))
+  (declare (obsolete "use (setf (oref ..) ..) instead" "28.1")
+           (debug (form symbolp form)))
   `(eieio-oset ,obj (quote ,slot) ,value))
 
 (defmacro oset-default (class slot value)
@@ -525,7 +526,8 @@ with in the :initarg slot.  VALUE can be any Lisp object."
 The default value is usually set with the :initform tag during class
 creation.  This allows users to change the default behavior of classes
 after they are created."
-  (declare (debug (form symbolp form)))
+  (declare (obsolete "use (setf (oref-default ..) ..) instead" "28.1")
+           (debug (form symbolp form)))
   `(eieio-oset-default ,class (quote ,slot) ,value))
 
 ;;; CLOS queries into classes and slots