From 40149b871889461713dc73634498f9d2150b0249 Mon Sep 17 00:00:00 2001 From: Stefan Monnier Date: Sun, 3 May 2020 18:05:16 -0400 Subject: [PATCH] * lisp/emacs-lisp/eieio.el (oset, oset-default): Mark as obsolete --- etc/NEWS | 2 ++ lisp/emacs-lisp/eieio.el | 6 ++++-- 2 files changed, 6 insertions(+), 2 deletions(-) diff --git a/etc/NEWS b/etc/NEWS index 753b7a7fd36..0f4b6244c62 100644 --- a/etc/NEWS +++ b/etc/NEWS @@ -101,6 +101,8 @@ horizontal movements now stop at the edge of the board. * 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 9f8b639e52d..fe2b80be01e 100644 --- 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 -- 2.39.5