Fix: (--defpred) Debug declaration

To work with preds with aliases.
This commit is contained in:
Adam Porter 2019-10-07 12:37:34 -05:00
parent acf8e0e0fb
commit 7e11145bad

View file

@ -124,7 +124,7 @@ docstring. BODY is the body of the predicate.
Predicates will be called with point on the beginning of an Org Predicates will be called with point on the beginning of an Org
heading and should return non-nil if the heading's entry is a heading and should return non-nil if the heading's entry is a
match." match."
(declare (debug (symbolp listp stringp def-body)) (declare (debug ([&or symbolp listp] listp stringp def-body))
(indent defun)) (indent defun))
(let* ((aliases (when (listp name) (let* ((aliases (when (listp name)
(cdr name))) (cdr name)))