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