procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

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

Browse source
This commit is contained in:
Karl Heuer 1996-07-15 20:26:39 +00:00
parent 0d26feea89
commit a1cfbf35a9
1 changed files with 1 additions and 9 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

10
lisp/textmodes/texinfmt.el
View file

@ -891,11 +891,6 @@ lower types.")
(file-name-nondirectory (expand-file-name arg)))
(insert "Info file: "
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"
"from file"
(if (buffer-file-name input-buffer)
@ -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{}'.
(defun texinfo-format-today ()
(texinfo-parse-arg-discard)
(insert (format "%s %s %s"
(substring (current-time-string) 8 10)
(substring (current-time-string) 4 7)
(substring (current-time-string) -4))))
(insert (format-time-string "%e %b %Y")))
;;; @ignore