branch: externals/leaf
commit 3d8684dc2d2b0b68e383229366a560b537992703
Author: Naoya Yamashita <con...@gmail.com>
Commit: Naoya Yamashita <con...@gmail.com>
warn at :after when specified nil or any keywords
---
leaf.el | 18 +++++++++++++++++-
1 file changed, 17 insertions(+), 1 deletion(-)
diff --git a/leaf.el b/leaf.el
index f36e76a05c..3c49466402 100644
--- a/leaf.el
+++ b/leaf.el
@@ -323,8 +323,24 @@ Sort by `leaf-sort-leaf--values-plist' in this order.")
"Normalize rule.")
(defvar leaf-verify
- '(((memq leaf--key (list :package))
+ '(((memq leaf--key '(:package))
(if (not (equal '(nil) (car leaf--value))) leaf--value nil))
+ ((memq leaf--key '(:after))
+ (delq nil
+ (mapcar
+ (lambda (elm)
+ (cond
+ ((eq elm nil)
+ (prog1 nil
+ (leaf-error "Error occurs in leaf block: %s" leaf--name)
+ (leaf-error "Attempt wait constant: nil; Please check your
specification")))
+ ((keywordp elm)
+ (prog1 nil
+ (leaf-error "Error occurs in leaf block: %s" leaf--name)
+ (leaf-error "Attempt wait constant keyword: %s; Please
check your specification" elm)))
+ (t
+ elm)))
+ leaf--value)))
((memq leaf--key (list
:hook :defun
:pl-setq :pl-pre-setq :pl-setq-default :pl-custom
