;ELC ;;; compiled by cthomp@willow on Thu Aug 12 00:41:49 1993 ;;; from file /era/era-0.80/editor/lisp/packages/makesum.el ;;; emacs version 19.8 (beta8) Lucid. ;;; bytecomp version 2.15; 14-jul-93. ;;; optimization is on. ;;; this file uses opcodes which do not exist in Emacs 18. (if (and (boundp 'emacs-version) (or (and (boundp 'epoch::version) epoch::version) (string-lessp emacs-version "19"))) (error "This file was compiled for Emacs 19.")) (fset 'make-command-summary #[nil "!‹Ð q !eb`y`|#!seb#!seb#!seb#!seb#!seb#u ݱ#`y`|peb O`y`|ym`%#db%`\"y)deb*!" [message "Making command summary..." ((describe-bindings)) "*Summary*" mode-name cur-mode standard-output 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 beg "^$" double-column "Making command summary...done"] 5 "\ Make a summary of current key bindings in the buffer *Summary*. Previous contents of that buffer are killed first." nil]) (fset 'double-column #[(start end) "d Z \"X T˥ by WT``){ B`y`|_) \" @cy Akd\nZb." [nil end from-end nlines lines line cnt half count-lines start 1 2 indent-to 41] 8 nil "r"])