Fill Emacs version on about screen

* lisp/startup.el (fancy-about-text): Fill the Emacs version, since it's too long these days.
2021-12-05 01:51:12 +01:00
parent b3505e31d6
commit ab41b1c554
1 changed files with 5 additions and 1 deletions
--- a/lisp/startup.el
+++ b/lisp/startup.el
@@ -1651,7 +1651,11 @@ Each element in the list should be a list of strings or pairs
     " operating system.\n"
     :face (variable-pitch font-lock-builtin-face)
     "\n"
-     ,(lambda () (emacs-version))
+     ,(lambda ()
+        (with-temp-buffer
+          (insert (emacs-version))
+          (fill-region (point-min) (point-max))
+          (buffer-string)))
     "\n"
     :face (variable-pitch (:height 0.8))
     ,(lambda () emacs-copyright)