Fix json error-definition condition build error

* lisp/subr.el (define-error): The error conditions may be constant
lists, so use `append' to concatenate them.
parent bc499652
2015-02-06 Lars Ingebrigtsen <larsi@gnus.org>
* subr.el (define-error): The error conditions may be constant
lists, so use `append' to concatenate them.
2015-02-06 Wolfgang Jenkner <wjenkner@inode.at>
* net/network-stream.el (network-stream-open-tls): Respect the
......
......@@ -316,7 +316,7 @@ Defaults to `error'."
(unless parent (setq parent 'error))
(let ((conditions
(if (consp parent)
(apply #'nconc
(apply #'append
(mapcar (lambda (parent)
(cons parent
(or (get parent 'error-conditions)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment