mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-04 11:00:45 -08:00
Code Issues Projects Releases Wiki Activity

Omit some (current-time) calls

Browse source 
* 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.
This commit is contained in:
Paul Eggert 2022-08-01 00:38:33 -07:00
parent 353413a76b
commit d634cb0954
5 changed files with 5 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

2
lisp/emacs-lisp/ert.el
View file

@ -1692,7 +1692,7 @@ test packages depend on each other, it might be helpful.")
(string-match-p "^Running 0 tests" logfile-contents)) (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" (insert (format " <testsuite id=\"%s\" name=\"%s\" tests=\"1\" errors=\"1\" failures=\"0\" skipped=\"0\" time=\"0\" timestamp=\"%s\">\n"
id test-report 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" (insert (format " <testcase name=\"Test report missing %s\" status=\"error\" time=\"0\">\n"
(file-name-nondirectory test-report))) (file-name-nondirectory test-report)))
(insert (format " <error message=\"Test report missing %s\" type=\"error\">\n" (insert (format " <error message=\"Test report missing %s\" type=\"error\">\n"

2
lisp/emacs-lisp/shortdoc.el
View file

@ -503,7 +503,7 @@ A FUNC form can have any number of `:no-eval' (or `:no-value'),
(set-file-modes (set-file-modes
:no-value "(set-file-modes \"/tmp/foo\" #o644)") :no-value "(set-file-modes \"/tmp/foo\" #o644)")
(set-file-times (set-file-times
:no-value (set-file-times "/tmp/foo" (current-time))) :no-value (set-file-times "/tmp/foo"))
"File Modes" "File Modes"
(set-default-file-modes (set-default-file-modes
:no-value "(set-default-file-modes #o755)") :no-value "(set-default-file-modes #o755)")

2
lisp/find-lisp.el
View file

@ -281,7 +281,7 @@ It is a function which takes two arguments, the directory and its parent."
(set-buffer buffer) (set-buffer buffer)
(insert find-lisp-line-indent (insert find-lisp-line-indent
(find-lisp-format file (file-attributes file 'string) (list "") (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 ;; Lifted from ls-lisp. We don't want to require it, because that

3
lisp/progmodes/hideif.el
View file

@ -2521,8 +2521,7 @@ Turn off hiding by calling `show-ifdefs'."
(or hide-ifdef-read-only hif-outside-read-only)) (or hide-ifdef-read-only hif-outside-read-only))
(and hide-ifdef-verbose (and hide-ifdef-verbose
(message "Hiding done, %.1f seconds elapsed" (message "Hiding done, %.1f seconds elapsed"
(float-time (time-subtract (current-time) (float-time (time-subtract nil hide-start-time)))))))
hide-start-time)))))))
(defun show-ifdefs (&optional start end) (defun show-ifdefs (&optional start end)

2
lisp/tar-mode.el
View file

@ -1377,7 +1377,7 @@ to make your changes permanent."
;; Maybe update the datestamp. ;; Maybe update the datestamp.
(when tar-update-datestamp (when tar-update-datestamp
(tar-alter-one-field tar-time-offset (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. ;; After doing the insertion, add any necessary final padding.
(tar-pad-to-blocksize)) (tar-pad-to-blocksize))
(set-buffer-modified-p t) ; mark the tar file as modified (set-buffer-modified-p t) ; mark the tar file as modified