;;; compiled by eric@geech.gnu.ai.mit.edu on Mon Mar 22 13:39:46 1993 ;;; from file /gd/gnu/emacs/19.0/lisp/makesum.el ;;; emacs version 19.0.506. ;;; bytecomp version FSF 2.08 ;;; optimization is on. (fset 'make-command-summary #[nil "!‹Ð q !eb`!`\"#2!#eb#D!5eb#V!Geb#h!Yeb#z!keb#!c cc#`!`\"eb O#`!`\"!m`)#db)`\"!)eb*!" [message "Making command summary..." ((describe-bindings)) "*Summary*" mode-name cur-mode standard-output erase-buffer insert-buffer-substring "*Help*" delete-region forward-line 1 search-forward " " nil t replace-match " " "-@ " "-SP" " .. ~ " "SP .. ~" "C-?" "DEL" "C-i" "TAB" re-search-forward "^Local Bindings:" forward-char -1 " for " " Mode" "??\n" insert "Emacs command summary, " current-time-string 0 10 ".\n" 2 beg "^$" double-column "Making command summary...done"] 6 "\ Make a summary of current key bindings in the buffer *Summary*. Previous contents of that buffer are killed first." nil]) (fset (quote double-column) #[(start end) "d Z \"Xq T\" b! WST` `)\" B`!`\"-) !q j @c! A\\d\nZb." [nil end from-end nlines lines line cnt half count-lines start 1 / 2 forward-line buffer-substring end-of-line delete-region nreverse 41] 8 nil "r"])