Wrap around error in coreutil's ls

[gnu-emacs] / lisp / time.el

diff --git a/lisp/time.el b/lisp/time.el
index ba5792441c4e617fe059f2a96031c23d31b241fc..651dd56779b2496337913d41053d9fbe55df840d 100644 (file)
--- a/lisp/time.el
+++ b/lisp/time.el
@@ -535,7 +535,8 @@ See `display-time-world'."
     (setq fmt (concat "%-" (int-to-string max-width) "s %s\n"))
     (dolist (timedata (nreverse result))
       (insert (format fmt (car timedata) (cdr timedata))))
-    (delete-char -1)))
+    (delete-char -1))
+  (goto-char (point-min)))
 
 ;;;###autoload
 (defun display-time-world ()