awesome-emacs/doomemacs
1
0
Fork 0
mirror of https://github.com/doomemacs/doomemacs synced 2025-08-01 12:17:25 -05:00
Code Issues Packages Projects Releases Wiki Activity

fix(lib): doom-file-cookie: what argument-less cookies return

Browse Source 
Used to be that a ;;;###COOKIE with no argument would return NULL-VALUE.
No more, it will now return `t`.

Also corrects the docstring to properly reflect what this does.
This commit is contained in:
Henrik Lissner
2025-05-22 16:31:28 +02:00
parent 11b4b8d2e5
commit 5d13d6ce99
1 changed files with 7 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

13
lisp/lib/files.el
View File

@ -144,8 +144,7 @@ MATCH is a string regexp. Only entries that match it will be included."
;;;###autoload ;;;###autoload
(defun doom-file-cookie (file &optional cookie null-value) (defun doom-file-cookie (file &optional cookie null-value)
"Returns the evaluated result of FORM in a ;;;###COOKIE FORM at the top of "Returns the quoted FORM in a ;;;###COOKIE FORM at the top of FILE.
FILE.
If COOKIE doesn't exist, or cookie isn't within the first 256 bytes of FILE, If COOKIE doesn't exist, or cookie isn't within the first 256 bytes of FILE,
return NULL-VALUE." return NULL-VALUE."
@ -155,10 +154,12 @@ return NULL-VALUE."
(error "%S is unreadable" file)) (error "%S is unreadable" file))
(with-temp-buffer (with-temp-buffer
(insert-file-contents file nil 0 256) (insert-file-contents file nil 0 256)
(if (re-search-forward (format "^;;;###%s " (regexp-quote (or cookie "if"))) (if (not (re-search-forward (format "^;;;###%s" (regexp-quote (or cookie "if")))
nil t) nil t))
(sexp-at-point) null-value
null-value))) (skip-chars-forward " \t" (pos-eol))
(or (eolp)
(read (current-buffer))))))
;;;###autoload ;;;###autoload
(defun doom-file-cookie-p (file &optional cookie null-value) (defun doom-file-cookie-p (file &optional cookie null-value)