;ELC   
;;; Compiled by cyd@localhost on Mon Apr 23 22:20:57 2007
;;; from file /home/cyd/emacs/lisp/makesum.el
;;; in Emacs version 22.0.99
;;; with all optimizations.

;;; This file uses dynamic docstrings, first added in Emacs 19.29.
(if (and (boundp 'emacs-version)
	 (< (aref emacs-version (1- (length emacs-version))) ?A)
	 (or (and (boundp 'epoch::version) epoch::version)
	     (string-lessp emacs-version "19.29")))
    (error "`makesum.el' was compiled for Emacs 19.29 or later"))

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;


#@116 Make a summary of current key bindings in the buffer *Summary*.
Previous contents of that buffer are killed first.
(defalias 'make-command-summary #[nil "\304\305!\210\306\213\210\307\220\212\nq\210\310 \210\311\312!\210eb\210`\313y\210`|\210\314\315\316\317#\203/ \320\321!\210\202  eb\210\314\322\316\317#\203A \320\323!\210\2022 eb\210\314\324\316\317#\203S \320\325!\210\202D eb\210\314\326\316\317#\203e \320\327!\210\202V eb\210\314\330\316\317#\203w \320\331!\210\202h eb\210\332\333\316\317#\203\235 \334u\210\335	\336\261\210\314\337\316\317#\203\235 `\334y\210`|\210\202\213 eb\210\340\341 \342\343O\344\261\210`\345y\210`|\210\313y\210m\204\321 `\332\346\316\317#\204\305 db\210\347`\"\210\313y\210)\202\264 eb*\221\210\304\350!\207" [mode-name cur-mode standard-output beg message "Making command summary..." ((describe-bindings)) "*Summary*" erase-buffer insert-buffer-substring "*Help*" 1 search-forward "         " nil t replace-match "  " "-@ " "-SP" "  .. ~ " "SP .. ~" "C-?" "DEL" "C-i" "TAB" re-search-forward "^Local Bindings:" -1 " for " " Mode" "??\n" "Emacs command summary, " current-time-string 0 10 ".\n" 2 "^$" double-column "Making command summary...done"] 5 (#$ . 562) nil])
(defalias 'double-column #[(start end) "\306\211\211\211\211dZ\307\f\"\211\310X\204i \nT\311\245\fb\210\212y\210\nW\203M T`\212\306\210`){\211B`\310y\210`|\210\202* )\237\211\203i \306\210\312j\210@c\210\310y\210A\211\204U d	Zb.\207" [end from-end nlines lines line cnt nil count-lines 1 2 41 half start] 8 nil "r"])
(provide 'makesum)