Fix (cl-)?defmacro autodefs

They were formly inserted with (cl-)?defmacro replaced with nil,
otherwise.
This commit is contained in:
Henrik Lissner
2018-07-29 02:29:26 +02:00
parent ea175180ef
commit 6cfbeaa4f6

View File

@ -477,7 +477,8 @@ even if it doesn't need reloading!"
(condition-case-unless-debug e
(append (list (pcase type
(`defun 'defmacro)
(`cl-defun `cl-defmacro))
(`cl-defun `cl-defmacro)
(_ type))
name arglist docstring)
(cl-loop for arg in arglist
if (and (symbolp arg)