diff options
| author | Paul Eggert <eggert@cs.ucla.edu> | 2022-08-01 00:38:33 -0700 |
|---|---|---|
| committer | Paul Eggert <eggert@cs.ucla.edu> | 2022-08-01 01:17:16 -0700 |
| commit | d634cb09547eb5ffba105b6c90410fd843bf029d (patch) | |
| tree | 8b4b7102c05217480336d67200d7aa8a110bd836 /lisp | |
| parent | 353413a76b1bb607e1ce4368edf80890d2cc141b (diff) | |
| download | emacs-d634cb09547eb5ffba105b6c90410fd843bf029d.tar.gz emacs-d634cb09547eb5ffba105b6c90410fd843bf029d.tar.bz2 emacs-d634cb09547eb5ffba105b6c90410fd843bf029d.zip | |
Omit some (current-time) calls
* lisp/emacs-lisp/ert.el (ert-write-junit-test-summary-report):
* lisp/emacs-lisp/shortdoc.el (file):
* lisp/find-lisp.el (find-lisp-find-dired-insert-file):
* lisp/progmodes/hideif.el (hide-ifdefs):
* lisp/tar-mode.el (tar-subfile-save-buffer):
Prefer nil or omitted arg to (current-time) where this is better
or more-efficient.
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/emacs-lisp/ert.el | 2 | ||||
| -rw-r--r-- | lisp/emacs-lisp/shortdoc.el | 2 | ||||
| -rw-r--r-- | lisp/find-lisp.el | 2 | ||||
| -rw-r--r-- | lisp/progmodes/hideif.el | 3 | ||||
| -rw-r--r-- | lisp/tar-mode.el | 2 |
5 files changed, 5 insertions, 6 deletions
diff --git a/lisp/emacs-lisp/ert.el b/lisp/emacs-lisp/ert.el index 49b54c2d00f..c8ff6b68144 100644 --- a/lisp/emacs-lisp/ert.el +++ b/lisp/emacs-lisp/ert.el @@ -1692,7 +1692,7 @@ test packages depend on each other, it might be helpful.") (string-match-p "^Running 0 tests" logfile-contents)) (insert (format " <testsuite id=\"%s\" name=\"%s\" tests=\"1\" errors=\"1\" failures=\"0\" skipped=\"0\" time=\"0\" timestamp=\"%s\">\n" id test-report - (ert--format-time-iso8601 (current-time)))) + (ert--format-time-iso8601 nil))) (insert (format " <testcase name=\"Test report missing %s\" status=\"error\" time=\"0\">\n" (file-name-nondirectory test-report))) (insert (format " <error message=\"Test report missing %s\" type=\"error\">\n" diff --git a/lisp/emacs-lisp/shortdoc.el b/lisp/emacs-lisp/shortdoc.el index 315afd4312b..d187af9ac83 100644 --- a/lisp/emacs-lisp/shortdoc.el +++ b/lisp/emacs-lisp/shortdoc.el @@ -503,7 +503,7 @@ A FUNC form can have any number of `:no-eval' (or `:no-value'), (set-file-modes :no-value "(set-file-modes \"/tmp/foo\" #o644)") (set-file-times - :no-value (set-file-times "/tmp/foo" (current-time))) + :no-value (set-file-times "/tmp/foo")) "File Modes" (set-default-file-modes :no-value "(set-default-file-modes #o755)") diff --git a/lisp/find-lisp.el b/lisp/find-lisp.el index 0a712c0b811..e825d9cba04 100644 --- a/lisp/find-lisp.el +++ b/lisp/find-lisp.el @@ -281,7 +281,7 @@ It is a function which takes two arguments, the directory and its parent." (set-buffer buffer) (insert find-lisp-line-indent (find-lisp-format file (file-attributes file 'string) (list "") - (current-time)))) + nil))) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;; Lifted from ls-lisp. We don't want to require it, because that diff --git a/lisp/progmodes/hideif.el b/lisp/progmodes/hideif.el index f2ada676ab7..d09e1f4cdfe 100644 --- a/lisp/progmodes/hideif.el +++ b/lisp/progmodes/hideif.el @@ -2521,8 +2521,7 @@ Turn off hiding by calling `show-ifdefs'." (or hide-ifdef-read-only hif-outside-read-only)) (and hide-ifdef-verbose (message "Hiding done, %.1f seconds elapsed" - (float-time (time-subtract (current-time) - hide-start-time))))))) + (float-time (time-subtract nil hide-start-time))))))) (defun show-ifdefs (&optional start end) diff --git a/lisp/tar-mode.el b/lisp/tar-mode.el index d7a09789699..20ad6e1e46a 100644 --- a/lisp/tar-mode.el +++ b/lisp/tar-mode.el @@ -1377,7 +1377,7 @@ to make your changes permanent." ;; Maybe update the datestamp. (when tar-update-datestamp (tar-alter-one-field tar-time-offset - (concat (tar-octal-time (current-time)) " ")))) + (concat (tar-octal-time nil) " ")))) ;; After doing the insertion, add any necessary final padding. (tar-pad-to-blocksize)) (set-buffer-modified-p t) ; mark the tar file as modified |