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:
parent
bfd71a8bb9
commit
e00560caf8
1 changed files with 2 additions and 3 deletions
|
@ -146,9 +146,8 @@ If COOKIE doesn't exist, return NULL-VALUE."
|
||||||
(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 (re-search-forward (format "^;;;###%s " (regexp-quote (or cookie "if")))
|
||||||
nil t)
|
nil t)
|
||||||
(or (let ((load-file-name file))
|
(let ((load-file-name file))
|
||||||
(eval (sexp-at-point) t))
|
(eval (sexp-at-point) t))
|
||||||
null-value)
|
|
||||||
null-value)))
|
null-value)))
|
||||||
|
|
||||||
;;;###autoload
|
;;;###autoload
|
||||||
|
|
Loading…
Add table
Add a link
Reference in a new issue