(defun make-command-summary nil "\ Make a summary of current key bindings in the buffer *Summary*. Previous contents of that buffer are killed first." (interactive) (byte-code "È!ȋɐ  q !eb`!`\"#3!$eb#F!7eb#Y!Jeb#l!]eb#!peb#!##`!`\"eb O#`!`\"!m?`#db `\"!)eb))!" [cur-mode mode-name standard-output nil t beg message "Making command summary..." ((byte-code " " [describe-bindings] 2)) "*Summary*" erase-buffer insert-buffer-substring "*Help*" delete-region forward-line 1 search-forward " " replace-match " " "-@ " "-SP" " .. ~ " "SP .. ~" "C-?" "DEL" "C-i" "TAB" re-search-forward "^Local Bindings:" forward-char -1 insert " for " " Mode" "?? " "Emacs command summary, " current-time-string 0 10 ". " 2 "^$" double-column "Making command summary...done"] 32)) (defun double-column (start end) (interactive "r") (byte-code "ȈdZ\" X$Ȃ T\"b! W^T` `)\" B`!`\"5) ! j @c! Afd Zb." [half cnt line lines nlines from-end end start nil count-lines 1 / 2 forward-line buffer-substring end-of-line delete-region nreverse 41] 13))