diff options
| author | Paul Eggert <eggert@cs.ucla.edu> | 2021-12-05 22:56:49 -0800 |
|---|---|---|
| committer | Paul Eggert <eggert@cs.ucla.edu> | 2021-12-05 23:24:10 -0800 |
| commit | 19932c32039b8e61486195504a72bfc037b29658 (patch) | |
| tree | 2f8ba678bba7fd50d8c527219c411d242f8f99d2 /lisp/mh-e/mh-alias.el | |
| parent | dbef2145c78a8b6cd913d677e50a0b7df0b1b831 (diff) | |
| download | emacs-19932c32039b8e61486195504a72bfc037b29658.tar.gz | |
Avoid timestamp info loss in mh-alias-tstamp
* lisp/mh-e/mh-alias.el (mh-alias-tstamp):
Don’t lose subsecond info when setting mh-alias-tstamp.
Diffstat (limited to 'lisp/mh-e/mh-alias.el')
| -rw-r--r-- | lisp/mh-e/mh-alias.el | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/lisp/mh-e/mh-alias.el b/lisp/mh-e/mh-alias.el index 8087df97c94..d2666211002 100644 --- a/lisp/mh-e/mh-alias.el +++ b/lisp/mh-e/mh-alias.el @@ -67,8 +67,7 @@ Return t if any file listed in the Aliasfile MH profile component has been modified since the timestamp. If ARG is non-nil, set timestamp with the current time." (if arg - (let ((time (current-time))) - (setq mh-alias-tstamp (list (nth 0 time) (nth 1 time)))) + (setq mh-alias-tstamp (current-time)) (let ((stamp)) (car (memq t (mapcar (lambda (file) |