From f21c01fce283b5b559bb049682effa2e363449b4 Mon Sep 17 00:00:00 2001 From: Henrik Lissner Date: Thu, 16 Nov 2017 16:34:42 +0100 Subject: [PATCH] predicate cookies: restrict to first 3 lines + set load-file-name --- core/core-packages.el | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) diff --git a/core/core-packages.el b/core/core-packages.el index 820f9635d..e3ed9c5a3 100644 --- a/core/core-packages.el +++ b/core/core-packages.el @@ -495,8 +495,10 @@ loads MODULE SUBMODULE's packages.el file." "Returns the value of the ;;;###if predicate form in FILE." (with-temp-buffer (insert-file-contents-literally file nil 0 256) - (if (re-search-forward "^;;;###if " nil t) - (eval (sexp-at-point)) + (if (and (re-search-forward "^;;;###if " nil t) + (<= (line-number-at-pos) 3)) + (let ((load-file-name file)) + (eval (sexp-at-point))) t))) (defun doom-packages--async-run (fn)