Fix #3827 (part 2): inverted file cookies

Turns out some autodefs weren't being noop'ed when their file's cookie
returns nil. This was the secondary cause of #3827.
This commit is contained in:
Henrik Lissner 2020-08-26 19:50:36 -04:00
parent bfd71a8bb9
commit e00560caf8
No known key found for this signature in database
GPG key ID: 5F6C0EA160557395

View file

@ -146,9 +146,8 @@ If COOKIE doesn't exist, return NULL-VALUE."
(insert-file-contents file nil 0 256)
(if (re-search-forward (format "^;;;###%s " (regexp-quote (or cookie "if")))
nil t)
(or (let ((load-file-name file))
(let ((load-file-name file))
(eval (sexp-at-point) t))
null-value)
null-value)))
;;;###autoload