master 806f2d0294 1/2: Clean up output of make-command-summary slightly

[Stefan Kangas]

branch: master
commit 806f2d0294f7f9a132bd227c2d32ac9e2745009d
Author: Stefan Kangas <stefan@marxist.se>
Commit: Stefan Kangas <stefan@marxist.se>

    Clean up output of make-command-summary slightly
    
    * lisp/makesum.el (make-command-summary): Don't print today's date
    or status messages.
---
 lisp/makesum.el | 7 ++-----
 1 file changed, 2 insertions(+), 5 deletions(-)

diff --git a/lisp/makesum.el b/lisp/makesum.el
index 4084358ca9..4272ce23f8 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."