diff options
| author | Karl Heuer <kwzh@gnu.org> | 1996-07-15 20:26:39 +0000 |
|---|---|---|
| committer | Karl Heuer <kwzh@gnu.org> | 1996-07-15 20:26:39 +0000 |
| commit | 13e48442929fea6257e82b79ab8ee3cd88b7e3a9 (patch) | |
| tree | c9239975a5e3999d2bca5b0f3be1eea18eda9187 | |
| parent | 480e87acecc142b05a1c0d1ae1eb289148e43b7d (diff) | |
| download | emacs-13e48442929fea6257e82b79ab8ee3cd88b7e3a9.tar.gz | |
(texinfo-format-today): Avoid race condition by getting current time only once.
| -rw-r--r-- | lisp/textmodes/texinfmt.el | 10 |
1 files changed, 1 insertions, 9 deletions
diff --git a/lisp/textmodes/texinfmt.el b/lisp/textmodes/texinfmt.el index 50a5c5dd534..a5ad374d1fd 100644 --- a/lisp/textmodes/texinfmt.el +++ b/lisp/textmodes/texinfmt.el @@ -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 |