mirror of
https://github.com/correl/melpa.git
synced 2024-11-22 19:18:39 +00:00
Use string-equals to compare wiki content hashes, not eq
This commit is contained in:
parent
b1df01b4cc
commit
3ee7f9f6aa
1 changed files with 4 additions and 2 deletions
|
@ -185,8 +185,10 @@ seconds; the server cuts off after 10 requests in 20 seconds.")
|
|||
;; foo.el.stamp file containing ("SHA1" . "PARSED_TIME")
|
||||
(let* ((new-content-hash (secure-hash 'sha1 (pb/slurp-file filename)))
|
||||
(stamp-file (concat filename ".stamp"))
|
||||
(stamp-info (pb/read-from-file stamp-file)))
|
||||
(if (eq new-content-hash (car stamp-info))
|
||||
(stamp-info (pb/read-from-file stamp-file))
|
||||
(prev-content-hash (car stamp-info)))
|
||||
(if (and prev-content-hash
|
||||
(string-equal new-content-hash prev-content-hash))
|
||||
;; File has not changed, so return old timestamp
|
||||
(progn
|
||||
(message "%s is unchanged" filename)
|
||||
|
|
Loading…
Reference in a new issue