diff options
| author | Paul Eggert | 2022-08-01 00:38:34 -0700 |
|---|---|---|
| committer | Paul Eggert | 2022-08-01 01:17:17 -0700 |
| commit | 2cd204d8bbc5ef9bc049b593f85b2fa46c07db1b (patch) | |
| tree | a9f36ac790a54476628315385e1fe49e06e0f8b0 /lisp/play | |
| parent | a51863f73d914dbabbadb396cda2c9d360866277 (diff) | |
| download | emacs-2cd204d8bbc5ef9bc049b593f85b2fa46c07db1b.tar.gz emacs-2cd204d8bbc5ef9bc049b593f85b2fa46c07db1b.zip | |
Prefer ‘time-equal-p’ to ‘equal’ on timestamps
This is more robust since timestamps can have multiple forms.
* lisp/auth-source.el (auth-source-netrc-parse):
* lisp/bookmark.el (bookmark--watch-file-already-queried-p)
(bookmark-maybe-load-default-file):
* lisp/cedet/semantic/db.el (semanticdb-needs-refresh-p):
* lisp/dired.el (dired-directory-changed-p):
* lisp/files.el (dir-locals-find-file):
* lisp/gnus/gnus-util.el (gnus-cache-file-contents):
* lisp/gnus/nneething.el (nneething-create-mapping):
* lisp/gnus/nnfolder.el (nnfolder-read-folder):
* lisp/gnus/nnmaildir.el (nnmaildir--update-nov)
(nnmaildir--scan, nnmaildir-request-scan)
(nnmaildir-request-update-info):
* lisp/gnus/nnmh.el (nnmh-update-gnus-unreads):
* lisp/gnus/spam-stat.el (spam-stat-load):
* lisp/mail/mailabbrev.el (mail-abbrevs-sync-aliases):
* lisp/mail/sendmail.el (sendmail-sync-aliases):
* lisp/net/netrc.el (netrc-parse):
* lisp/nxml/rng-loc.el (rng-get-parsed-schema-locating-file):
* lisp/play/cookie1.el (cookie-snarf):
* lisp/vc/vc-cvs.el (vc-cvs-state-heuristic):
* lisp/vc/vc-hg.el (vc-hg--ignore-patterns-valid-p)
(vc-hg--cached-dirstate-search):
* lisp/vc/vc-hooks.el (vc-after-save):
Prefer ‘time-equal-p’ to ‘equal’ when comparing
timestamps for equality.
Diffstat (limited to 'lisp/play')
| -rw-r--r-- | lisp/play/cookie1.el | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/lisp/play/cookie1.el b/lisp/play/cookie1.el index fcdd2a7ce94..7ede8e358aa 100644 --- a/lisp/play/cookie1.el +++ b/lisp/play/cookie1.el | |||
| @@ -123,7 +123,8 @@ Emit STARTMSG and ENDMSG before and after. Cache the result; second | |||
| 123 | and subsequent calls on the same file won't go to disk." | 123 | and subsequent calls on the same file won't go to disk." |
| 124 | (setq phrase-file (cookie-check-file phrase-file)) | 124 | (setq phrase-file (cookie-check-file phrase-file)) |
| 125 | (let ((sym (intern-soft phrase-file cookie-cache))) | 125 | (let ((sym (intern-soft phrase-file cookie-cache))) |
| 126 | (and sym (not (equal (symbol-function sym) | 126 | (and sym (not (time-equal-p |
| 127 | (symbol-function sym) | ||
| 127 | (file-attribute-modification-time | 128 | (file-attribute-modification-time |
| 128 | (file-attributes phrase-file)))) | 129 | (file-attributes phrase-file)))) |
| 129 | (yes-or-no-p (concat phrase-file | 130 | (yes-or-no-p (concat phrase-file |