From 2cd204d8bbc5ef9bc049b593f85b2fa46c07db1b Mon Sep 17 00:00:00 2001 From: Paul Eggert Date: Mon, 1 Aug 2022 00:38:34 -0700 Subject: Prefer ‘time-equal-p’ to ‘equal’ on timestamps MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit 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. --- lisp/mail/mailabbrev.el | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'lisp/mail/mailabbrev.el') diff --git a/lisp/mail/mailabbrev.el b/lisp/mail/mailabbrev.el index e4061bd2f14..86711a4543f 100644 --- a/lisp/mail/mailabbrev.el +++ b/lisp/mail/mailabbrev.el @@ -163,7 +163,7 @@ no aliases, which is represented by this being a table with no entries.)") (if (file-exists-p mail-personal-alias-file) (let ((modtime (file-attribute-modification-time (file-attributes mail-personal-alias-file)))) - (if (not (equal mail-abbrev-modtime modtime)) + (if (not (time-equal-p mail-abbrev-modtime modtime)) (progn (setq mail-abbrev-modtime modtime) (build-mail-abbrevs))))))) -- cgit v1.2.3