Commit a1cfbf35 authored by Karl Heuer's avatar Karl Heuer
Browse files

(texinfo-format-today): Avoid race condition by getting current time only once.

parent 0d26feea
...@@ -891,11 +891,6 @@ lower types.") ...@@ -891,11 +891,6 @@ lower types.")
(file-name-nondirectory (expand-file-name arg))) (file-name-nondirectory (expand-file-name arg)))
(insert "Info file: " (insert "Info file: "
texinfo-format-filename ", -*-Text-*-\n" texinfo-format-filename ", -*-Text-*-\n"
;; Date string removed so that regression testing is easier.
;; "produced on "
;; (substring (current-time-string) 8 10) " "
;; (substring (current-time-string) 4 7) " "
;; (substring (current-time-string) -4) " "
"produced by `texinfo-format-buffer'\n" "produced by `texinfo-format-buffer'\n"
"from file" "from file"
(if (buffer-file-name input-buffer) (if (buffer-file-name input-buffer)
...@@ -1568,10 +1563,7 @@ Used by @refill indenting command to avoid indenting within lists, etc.") ...@@ -1568,10 +1563,7 @@ Used by @refill indenting command to avoid indenting within lists, etc.")
; The `@today{}' command requires a pair of braces, like `@dots{}'. ; The `@today{}' command requires a pair of braces, like `@dots{}'.
(defun texinfo-format-today () (defun texinfo-format-today ()
(texinfo-parse-arg-discard) (texinfo-parse-arg-discard)
(insert (format "%s %s %s" (insert (format-time-string "%e %b %Y")))
(substring (current-time-string) 8 10)
(substring (current-time-string) 4 7)
(substring (current-time-string) -4))))
;;; @ignore ;;; @ignore
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment