HOME


sh-3ll 1.0
DIR:/proc/thread-self/root/usr/share/emacs/26.1/lisp/
Upload File :
Current File : //proc/thread-self/root/usr/share/emacs/26.1/lisp/makesum.elc
;ELC
;;; Compiled
;;; in Emacs version 26.1
;;; with all optimizations.

;;; This file uses dynamic docstrings, first added in Emacs 19.29.

;;; This file does not contain utf-8 non-ASCII characters,
;;; and so can be loaded in Emacs versions earlier than 23.

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


#@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 "\306\307!\210\310 \311\216\312 \210*	r\313\314!q\210p\315 \210\n\316\211\317\211\31734\320 \210\321\322!\210+\21156\212786q\210\320 \210\323\324!\210eb\210`\325y\210`|\210\326\327\316\317#\203]\330\331!\210\202Neb\210\326\332\316\317#\203o\330\333!\210\202`eb\210\326\334\316\317#\203\201\330\335!\210\202reb\210\326\336\316\317#\203\223\330\337!\210\202\204eb\210\326\340\316\317#\203\245\330\341!\210\202\226eb\210\342\343\316\317#\203\316\344u\210\345\3468!\347\261\210\326\350\316\317#\203\316`\344y\210`|\210\202\274eb\210\351\352 \353\354O\355\261\210`\356y\210`|\210\325y\210m\204`9\342\357\316\317#\204\367db\210\3609`\"\210\325y\210)\202\345eb\210*\3615!\210+\306\362!\207" [#1=#:wconfig default-directory #2=#:old-dir buffer-read-only buffer-file-name buffer-undo-list message "Making command summary..." current-window-configuration #[nil "\301!\207" [#1# set-window-configuration] 2] describe-bindings get-buffer-create "*Summary*" kill-all-local-variables nil t erase-buffer run-hooks temp-buffer-setup-hook insert-buffer-substring "*Help*" 1 search-forward "         " replace-match "  " "-@ " "-SP" "  .. ~ " "SP .. ~" "C-?" "DEL" "C-i" "TAB" re-search-forward "^Local Bindings:" -1 " for " format-mode-line " Mode" "??\n" "Emacs command summary, " current-time-string 0 10 ".\n" 2 "^$" double-column internal-temp-output-buffer-show "Making command summary...done" inhibit-modification-hooks inhibit-read-only #3=#:buf standard-output mode-name cur-mode beg] 5 (#$ . 409) nil])
(defalias 'double-column #[(start end) "\306\211\211\211dZ\307\f\"\211\310X\204]\nT\311\245\fb\210\212
y\210
\nW\203A
T`\312 {\211B`\310y\210`|\210\202%)\237\211\203]\306\210\313j\210@c\210\310y\210A\211\204Id	Zb-\207" [end from-end nlines lines line half nil count-lines 1 2 line-end-position 41 start] 7 nil "r"])
(provide 'makesum)