emenel/doomemacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

Move doom-file-cookie-p to core-dispatcher

Browse source 
And rename it to doom--file-cookie-p
This commit is contained in:
Henrik Lissner 2018-06-15 13:27:24 +02:00
parent c22b3da9f9
commit 3c7c5d5120
No known key found for this signature in database
GPG key ID: 5F6C0EA160557395
2 changed files with 12 additions and 12 deletions
Download patch file Download diff file Expand all files Collapse all files

10
core/core-lib.el
View file

@ -90,16 +90,6 @@ This is used by `associate!', `file-exists-p!' and `project-file-exists-p!'."
"Return EXP wrapped in a list, or as-is if already a list."
(if (listp exp) exp (list exp)))
(defun doom-file-cookie-p (file)
"Returns the return value of the ;;;###if predicate form in FILE."
(with-temp-buffer
(insert-file-contents-literally file nil 0 256)
(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-keyword-intern (str)
"Converts STR (a string) into a keyword (`keywordp')."
(or (stringp str)