[elpa] externals/transient eade425ec6 044/366: transient-init-value: Define catch all method using cl-defgeneric

[Jonas Bernoulli]

branch: externals/transient
commit eade425ec61f16761ddd7297de7e86deac7fe1f1
Author: Jonas Bernoulli <jonas@bernoul.li>
Commit: Jonas Bernoulli <jonas@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