From: Stefan Kangas <stefan@marxist.se>
Date: Thu, 4 Aug 2022 15:26:19 +0000 (+0200)
Subject: Clean up output of make-command-summary slightly
X-Git-Tag: emacs-29.0.90~1447^2~438
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=806f2d0294f7f9a132bd227c2d32ac9e2745009d;p=emacs.git

Clean up output of make-command-summary slightly

* lisp/makesum.el (make-command-summary): Don't print today's date
or status messages.
---

diff --git a/lisp/makesum.el b/lisp/makesum.el
index 4084358ca90..4272ce23f8d 100644
--- a/lisp/makesum.el
+++ b/lisp/makesum.el
@@ -32,7 +32,6 @@
   "Make a summary of current key bindings in the buffer *Summary*.
 Previous contents of that buffer are killed first."
   (interactive)
-  (message "Making command summary...")
   ;; This puts a description of bindings in a buffer called *Help*.
   (save-window-excursion
    (describe-bindings))
@@ -68,8 +67,7 @@ Previous contents of that buffer are killed first."
                             (forward-line -1)
                             (point)))))
        (goto-char (point-min))
-       (insert "Emacs command summary, " (substring (current-time-string) 0 10)
-	       ".\n")
+       (insert "Emacs command summary\n")
        ;; Delete "key    binding" and underlining of dashes.
        (delete-region (point) (progn (forward-line 2) (point)))
        (forward-line 1)			;Skip blank line
@@ -79,8 +77,7 @@ Previous contents of that buffer are killed first."
 	       (goto-char (point-max)))
 	   (double-column beg (point))
 	   (forward-line 1)))
-       (goto-char (point-min)))))
-  (message "Making command summary...done"))
+       (goto-char (point-min))))))
 
 (defun double-column (start end)
   "Reformat buffer contents from START to END into two columns."