From 806f2d0294f7f9a132bd227c2d32ac9e2745009d Mon Sep 17 00:00:00 2001 From: Stefan Kangas Date: Thu, 4 Aug 2022 17:26:19 +0200 Subject: [PATCH] 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 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." -- 2.39.2