Fix #752 and #757

minad · Feb 28, 2023 · d9508e7 · d9508e7
1 parent bd0fce8
commit d9508e7
Showing 1 changed file with 5 additions and 3 deletions.
diff --git a/consult-register.el b/consult-register.el
@@ -77,9 +77,11 @@ Each element of the list must have the form (char . name).")
                 'multi-category `(consult-location . ,str)
                 'consult--type ?p))))))
 
-(cl-defmethod consult-register--describe ((val kmacro-register))
-  "Describe kmacro register VAL."
-  (list (consult-register--format-value val) 'consult--type ?k))
+(defmacro consult-register--describe-kmacro ()
+  "Generate method which describes kmacro register."
+  `(cl-defmethod consult-register--describe ((val ,(if (< emacs-major-version 30) 'kmacro-register 'kmacro)))
+     (list (consult-register--format-value val) 'consult--type ?k)))
+(consult-register--describe-kmacro)
 
 (cl-defmethod consult-register--describe ((val (head file)))
   "Describe file register VAL."