Github/emacs
2
0
Fork 1
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-16 17:24:23 +00:00
Code Issues Projects Releases Packages Wiki Activity

Clean up output of make-command-summary slightly

Browse source 
* lisp/makesum.el (make-command-summary): Don't print today's date
or status messages.
This commit is contained in:
Stefan Kangas 2022-08-04 17:26:19 +02:00
parent cdaddc4d72
commit 806f2d0294
1 changed files with 2 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
lisp/makesum.el
View file

@ -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."