branch: externals/transient
commit eade425ec61f16761ddd7297de7e86deac7fe1f1
Author: Jonas Bernoulli <jo...@bernoul.li>
Commit: Jonas Bernoulli <jo...@bernoul.li>
transient-init-value: Define catch all method using cl-defgeneric
`cl-defgeneric' does define a catch all method, but only if it there
is a body. Since that method is a noop we have to use nil for that.
---
lisp/transient.el | 8 +++-----
1 file changed, 3 insertions(+), 5 deletions(-)
diff --git a/lisp/transient.el b/lisp/transient.el
index f935f12103..355be2442a 100644
--- a/lisp/transient.el
+++ b/lisp/transient.el
@@ -1959,7 +1959,7 @@ implementation, which is a noop.")
(cl-defmethod transient-init-scope ((_ transient-suffix))
"Noop." nil)
-(cl-defgeneric transient-init-value (obj)
+(cl-defgeneric transient-init-value (_)
"Set the initial value of the object OBJ.
This function is called for all suffix commands, but unless a
@@ -1968,10 +1968,8 @@ implementation, which is a noop. In other words this
usually
only does something for infix commands, but note that this is
not implemented for the abstract class `transient-infix', so if
your class derives from that directly, then you must implement
-a method.")
-
-(cl-defmethod transient-init-value ((_ transient-suffix))
- "Noop." nil)
+a method."
+ nil)
(cl-defmethod transient-init-value ((obj transient-switch))
(oset obj value
