diff options
| author | Stefan Monnier <monnier@iro.umontreal.ca> | 2020-05-03 18:05:16 -0400 |
|---|---|---|
| committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2020-05-03 18:05:16 -0400 |
| commit | 40149b871889461713dc73634498f9d2150b0249 (patch) | |
| tree | f65d2f92a17f75e3a1cea38899fbf603973f104f /lisp/emacs-lisp/eieio.el | |
| parent | 7db0093bc2c2ae3470167eb7490b69baa1904052 (diff) | |
| download | emacs-40149b871889461713dc73634498f9d2150b0249.tar.gz | |
* lisp/emacs-lisp/eieio.el (oset, oset-default): Mark as obsolete
Diffstat (limited to 'lisp/emacs-lisp/eieio.el')
| -rw-r--r-- | lisp/emacs-lisp/eieio.el | 6 |
1 files changed, 4 insertions, 2 deletions
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 |