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 4084358ca90b963411e984f0b370893da8729c98..4272ce23f8deb2adfaafe8732dca3dbb9f01a72f 100644 (file)
--- 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."