Fix cache building

This commit is contained in:
Jethro Kuan
2020-02-05 02:52:46 +08:00
parent 17cd762771
commit fbea9822ae

View File

@@ -146,7 +146,7 @@ Valid states are 'visible, 'exists and 'none."
(contents-hash (gethash path backlinks)))
(if contents-hash
(if-let ((contents-list (gethash relative-file contents-hash)))
(let ((updated (append content contents-list)))
(let ((updated (cons content contents-list)))
(puthash relative-file updated contents-hash)
(puthash path contents-hash backlinks))
(puthash relative-file (list content) contents-hash)