%PDF- %PDF-
Direktori : /usr/local/share/emacs/27.2/lisp/ |
Current File : //usr/local/share/emacs/27.2/lisp/makesum.elc |
;ELC ;;; Compiled ;;; in Emacs version 27.2 ;;; 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 #[0 "\306\307!\210\310 \311\312\313\314\315!\316\"\317$\216\320 \210)\210r\321\322!q\210p\323 \210\324\211\325\211\325\326 \210\327\330!\210+\2118\21298q\210\326 \210\331\332!\210eb\210`\333y\210`|\210\334\335\324\325#\203` \336\337!\210\202Q eb\210\334\340\324\325#\203r \336\341!\210\202c eb\210\334\342\324\325#\203\204 \336\343!\210\202u eb\210\334\344\324\325#\203\226 \336\345!\210\202\207 eb\210\334\346\324\325#\203\250 \336\347!\210\202\231 eb\210\350\351\324\325#\203\320 \352u\210\353\354!\355\261\210\334\356\324\325#\203\320 `\352y\210`|\210\202\276 eb\210\357\360\361 \312\362#\363\261\210`\317y\210`|\210\333y\210m\204`\350\364\324\325#\204\370 db\210\365`\"\210\333y\266\202\350 eb\266)\366!\210)\266\306\367!\207" [default-directory buffer-read-only buffer-file-name buffer-undo-list inhibit-modification-hooks inhibit-read-only message "Making command summary..." current-window-configuration make-byte-code 0 "\301\300!\207" vconcat vector [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, " substring current-time-string 10 ".\n" "^$" double-column internal-temp-output-buffer-show "Making command summary...done" standard-output mode-name] 9 (#$ . 409) nil]) #@78 Reformat buffer contents from START to END into two columns. (fn START END) (defalias 'double-column #[514 "\300\211\301\"dZ\302V\203^ T\303\245\262b\210\212y\210Z\304\211W\203? \211`\305 {B\262`\302y\210`|\266\211T\262\202 \266)\237\211\203] \211@\300\210\306j\210\211c\210\302y\210A\266\202\202D \210dZb\207" [nil count-lines 1 2 0 line-end-position 41] 11 (#$ . 2109) "r"]) (provide 'makesum)