;ELC ;;; Compiled by eli@barzilay.org on Wed Sep 14 07:19:57 2011 ;;; from file /home/eli/EliEmacs/eliemacs.el ;;; in Emacs version 23.2.1 ;;; with all optimizations. ;;; This file contains utf-8 non-ASCII characters, ;;; and so cannot be loaded into Emacs 22 or earlier. (and (boundp 'emacs-version) (< (aref emacs-version (1- (length emacs-version))) ?A) (string-lessp emacs-version "23") (error "`eliemacs.el' was compiled for Emacs 23 or later")) ;;;;;;;;;;;;;;;;;;;;;;; (byte-code "\301B\302\303!\207" [current-load-list eli-version (lambda (#1=#:defconst-tmp-var) (defconst eli-version #1#)) "[2011-09-14]"] 2) #@42 The full path of the EliEmacs directory. (defvar eli-dir (byte-code "\303\304\206 \206 \n!!\207" [load-file-name buffer-file-name default-directory expand-file-name file-name-directory] 3) (#$ . 647)) (byte-code "\302\303\"\210\304 B\305\304!\204\306\304\307P\"\210\302\207" [eli-dir current-load-list add-to-list load-path eli-include-dir default-boundp set-default "include/"] 4) (defalias 'load/include '(macro . #[(file) " \304Q\305\n!\203,\306\307!r q\210\310\216\311c\210\312\n!\210db\210\313c\210eb\210\314p!+\202/\315 D)\207" [eli-include-dir file include-file #1=#:temp-buffer ".el" file-readable-p generate-new-buffer " *temp*" ((byte-code "\301!\203\n\302!\210\301\207" [#1# buffer-name kill-buffer] 2)) "(progn\n" insert-file-contents ")" read load] 3])) #@47 *Default color style to use: 'dark or 'light. (defvar eli-color-style 'dark (#$ . -1437)) #@139 *Default size for EliEmacs - a list of two numbers. Setting this to nil leaves either the default, or stuff from `window-configurations'. (defvar eli-size nil (#$ . -1534)) #@115 *Default font for EliEmacs. Setting this to nil leaves either the default, or stuff from `window-configurations'. (defvar eli-font nil (#$ . -1714)) #@37 *If non-nil, use a blinking cursor. (defvar eli-blink-cursor nil (#$ . -1869)) #@102 *Default position of EliEmacs (nil for default). Note that this does not include window decorations. (defvar eli-window-pos nil (#$ . -1955)) #@45 *Specifies whether EliEmacs uses a menubar. (defvar eli-use-menubar (byte-code "\205\301\207" [window-system t] 1) (#$ . -2103)) #@45 *Specifies whether EliEmacs uses a toolbar. (defvar eli-use-toolbar nil (#$ . -2241)) #@139 *Specifies whether EliEmacs uses a scrollbar and on what side. Value should be 'left, 'right, t for default side or nil for no scrollbar. (defvar eli-use-scrollbar 'left (#$ . -2334)) #@45 *Specifies wether EliEmacs uses a modeline. (defvar eli-use-modeline t (#$ . -2524)) #@323 *Some visual indications for files. This variable control some visual indicators - for files (you can set the default values to get them everywhere). Set this variable to a list containing 'trailing-whitespaces, or 'cursor-stretch to stretch the cursor over underlying character (eg, tabs). Set it to t to get everything. (defvar eli-text-indications t (#$ . -2616)) #@441 *The way that backups are created in EliEmacs. Possible values are: t - normal backups nil - no backups STR - where STR names a directory, save backups there. STR must end with a slash, and if no such directory or file exists, it will be created. Autosave files will be placed in that directory too. safe - normal backups, with multiple versions, ignore `eli-max-backup-size' etc - lots of backups. (defvar eli-backup-method "~/.backups/" (#$ . -2990)) #@90 *The maximum file-size that will get backed up. If t always backup, if nil never backup. (defvar eli-max-backup-size 2097152 (#$ . -3490)) #@121 *The maximum file-size that will get autosaved. If t always autosave, if nil never (like turning off `auto-save-mode'). (defvar eli-max-autosave-size 10485760 (#$ . -3636)) #@257 *If this is non-nil, redefine `ask-user-about-supersession-threat' so trying to edit a buffer will automatically revert it. Set before loading the environment. Also, will automatically get set if `eli-backup-method' is 'safe and no value given to it yet. (defvar eli-auto-revert-on-change (byte-code "\301=?\207" [eli-backup-method safe] 2) (#$ . -3816)) #@24 Ignore errors in BODY. (defalias 'no-errors '(macro . #[(&rest body) "\301\302\303B\304BBB\207" [body condition-case nil progn ((error nil))] 4 (#$ . 4179)])) #@48 Ignore errors in BODY, but beep if there were. (defalias 'no-errors-beep '(macro . #[(&rest body) "\301\302\303B\304BBB\207" [body condition-case nil progn ((error (beep)))] 4 (#$ . 4345)])) #@58 Returns the list of values from LIST that PRED verifies. (defalias 'filter #[(pred list) "\303 \203\n @!\203 @B A\211\204\237)\207" [r list pred nil] 3 (#$ . 4543)]) #@74 Finds the first element that satisfies PRED in LIST, or DEFAULT if none. (defalias 'findif #[(pred list &optional default) "\300\301\215\207" [done (byte-code "\305\211\203\n@ !\203\306\307 \"\210\nA\211\204*\f\207" [list x #1=#:--cl-dolist-temp-- pred default nil throw done] 4)] 2 (#$ . 4726)]) #@62 Replace FROM to TO in the current buffer (for use in elisp). (defalias 'eli-replace #[(from to) "\212\303 \304\216eb\210\305 \306\307#\205\310\n\306\307#\210\202 +\207" [save-match-data-internal from to match-data ((byte-code "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3)) search-forward nil t replace-match] 4 (#$ . 5041)]) #@62 Replace FROM to TO in the current buffer (for use in elisp). (defalias 'eli-replace-regexp #[(from to) "\212\303 \304\216eb\210\305 \306\307#\205\310\n\306\211#\210\202 +\207" [save-match-data-internal from to match-data ((byte-code "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3)) re-search-forward nil t replace-match] 4 (#$ . 5403)]) #@156 Same as `message', but a first argument specifies how much time to sit after the message. If it is negative, sit for that time and then hide the message. (defalias 'message-sit #[(&optional sit &rest args) "\204 \302\202;\203 B\302\303\304 \"\210\305\306!!\210\307W\205(\304\310!\207" [sit args -1 apply message sit-for abs 0 nil] 3 (#$ . 5776)]) #@188 Like `read-key-sequence-vector', but arranges for the cursor to be in the echo area, does the usual thing for C-g, and possibly returns nil if you use the same key as for `this-command'. (defalias 'eli-get-key #[(prompt &optional not-this-command) "\306\307 \310\306#\311\n!\312\310!\210\f\203 =\203\310\202* \313=\203)\313 \202*\n+\207" [cursor-in-echo-area prompt key bind not-this-command this-command t read-key-sequence-vector nil key-binding message keyboard-quit] 4 (#$ . 6145)]) #@455 Define many keys. The KEYS/FUNCS-OR-MAPS arguments are a list of: - (KEY FUNC) - bind KEY to function FUNC - (FUNC1 FUNC2) - replace FUNC1 globally-bound keys with FUNC2 in the map - (FUNC1 FUNC2 t) - same but replace locally bound FUNC1 keys - keymap - use this keymap from now on. - keymap-symbol - a symbol that should evaluate to a keymap, 'global or 'local (error if the symbol's value is not a keymap). - nil - silently ignored. (defalias 'define-keys #[(&rest keys/funcs-or-maps) "\303 \304\n\205\232\n@\nA\203\305!\203\2029\203Y\306=\203.\303 \202F\307=\2039\310 \202F\311!\203E\312!\202F\304\211\203\305 !\204\313\314\"\210\202 \203<\203\214@9\203\214\315@!\203\214\316@\211A@) \3178\320=\203\205 \202\207\303 $\210\202<\203\321\322 #\210\202*\207" [x keymap keys/funcs-or-maps current-global-map nil keymapp global local current-local-map boundp eval error "%S did not evaluate to a keymap" commandp substitute-key-definition 2 t apply define-key] 7 (#$ . 6650)]) (byte-code "\303\304\305\"\210\303\304\306\"\210\303\307\310\"\210\311=\2040\312\313\314!!\313\314!\232\2040\315\316\317\312\313\314!!P\313\314!B\"\210 \320=\203J\321\322\n\"\203D\323\324!\210\202J\325\326\327\n#\303\207" [window-system system-type abbreviated-home-dir add-hook comint-output-filter-functions comint-watch-for-password-prompt comint-postoutput-scroll-to-bottom grep-mode-hook #[nil "\301\302\303\"\210\304\305\306\307\310\307\311\312pDDE#\207" [truncate-lines define-keys grep-mode-map ("q" (lambda nil (interactive) (quit-window nil (selected-window)))) t run-with-idle-timer 0 nil lambda select-window get-buffer-window] 8] w32 file-truename getenv "HOME" add-to-list directory-abbrev-alist "^" windows-nt string-match "\\[" warn "looks like `abbreviated-home-dir' has a range, not hacking it" replace-regexp-in-string "/" "[/\\\\]"] 6) #@61 Alist of local user -- homedir mapping. t = uninitialized. (defvar eli-user-homedirs (byte-code "\301\302!\205@r\303\304!q\210\305\302\306\211\211\307%\210eb\210\306m\2044\310\311!\203-\312\313!\312\314!BB\315\314!\210\202\316p!\210\317\320\321\"\322\"*\207" [r file-readable-p "/etc/passwd" generate-new-buffer " passwd" insert-file-contents nil t looking-at "[+-]?\\([^:@\n+]+\\):[^:\n]*:[^:\n]*:[^:\n]*:[^:\n]*:\\([^\n:]+\\):" match-string 1 2 beginning-of-line kill-buffer sort filter #[(x) "A\301\232?\207" [x "/"] 2] #[(x y) "@ @\231\207" [x y] 2]] 6) (#$ . 8570)) (byte-code "\306\307\310\"\311\"\310\211\2035\n@\211A\312\232\204. @\232\204.\313\314\315 A\316Q\317 @\312QB\"\210\nA\211\204*\320\321!\210\322\323!\203D\323\324!\210\325\326!\210\327\330\331\"\210\327\332\310\"\210\327\333\310\"\210\327\334\335\"\210\327\336\337\"\210\327\340\310\"\210\327\341\337\"\210\327\342\337\"\210\327\343\324\"\210\327\344\337\"\210\327\345\310\"\210\327\346\337\"\210\327\347\337\"\210\327\350\310\"\210\327\351\310\"\210\327\352\337\"\210\327\353\354\"\210\327\355\356\"\210\327\357\310\"\210\327\360\361\"\210\327\362\337\"\210\327\363\337\"\210\327\364\365\366\367\370#\"\210\327\371\310\"\210\327\372\310\"\210\327\373\337\"\210\327\374\337\"\210\327\375\337\"\210\327\376\337\"\210\327\377\337\"\210\327\201@\310\"\210\327\201A\201B\"\210\327\201C\201D\"\210\327\201E\201F\"\210\327\201G\201H\"\210\327\201I\337\"\210\327\201J\201K\"\210\327\201L\337\"\210\327\201M\201N\"\210\327\201O\201P\"\210\327\201Q\337\"\210\327\201R\337\"\210\327\201S\337\"\210\327\201T\337\"\210\327\201U\337\"\210\327\201V\201W\"\210\327\201X\201Y\"\210\327\201Z\201[\"\210\327\201\\\337\"\210\327\201]\337\"\210\327\201^\337\"\210\327\201_\337\"\210\327\201`\337\"\210\327\201a\337\"\210\327\201b\201c\"\210\327\201d\201e\"\210\327\201f\201g\"\210\327\201h\310\"\210\327\201i\337\"\210\327\201j\201k\"\210\327\201l\337\"\210\327\201m\201n\"\210\327\201o\201e\"\210\327\201p\201q\"\210\327\201r\201s\"\210\327\201t\337\"\210\327\201u\337\"\210\327\201v\201e\"\210\327\201w\337\"\210\327\201x\201y\"\210\327\201z\201{\"\210\327\201|\201}\"\210\327\201~\201[\"\210\327\201\201B\"\210\327\201\200\201\201\"\210\327\201\202\201\203\"\210\327\201\204\201\205\"\210\327\201\206\337\"\210\327\201\207\337\"\210\327\201\210\337\"\210\327\201\211\310\"\210\327\201\212\337\"\210\327\201\213\337\"\210\327\201\214\310\"\210\327\201\215\310\"\210\327\201\216\337\"\210\327\201\217\310\"\210\327\201\220\337\"\210\327\201\221\337\"\210\327\201\222\337\"\210\327\201\223\337\"\210\327\201\224\201\225\"\210\327\201\226\310\"\210\327\201\227\310\"\210\327\201\230\337\"\210\327\201\231\310\"\210\327\201\232\310\"\210\327\201\233\201e\"\210\327\201\234\201\235\"\210\327\201\236\337\"\210\327\201\237\337\"\210\327\201\240\310\"\210\327\201\241\337\"\210\327\201\242\201\205\"\210\327\201\243\337\"\210\327\201\244\201e\"\210\327\201\245\310\"\210\327\201\246\337\"\210\327\201\247\337\"\210\327\201\250\337\"\210\327\201\251\201\205\"\210\327\201\252\310\"\210\327\201\253\310\"\210\327\201\254\310\"\210\327\201\255\337\"\210\327\201\256\201\257\"\210\327\201\260\310\"\210\327\201\261\310\"\210\327\201\262\201\263\"\210\327\201\264\337\"\210\327\201\265\201\266\"\210\327\201\267\201\205\"\210\327\201\270\201\271\"\210\327\201\272\201\273\"\210\327\201\274\201\275\"\210\327\201\276\201\277\"\210\327\201\300\201\301\"\210\327\201\302\201[\"\210\327\201\303\201\304\"\210\327\201\305\201\306\"\210\327\201\307\201\310\"\210\327\201\311\201\312\"\210\327\201\313\201\314\"\210\327\201\315\201\316\"\210\327\201\317\201\320\"\210\327\201\321\201\322\"\210\327\201\323\337\"\210\327\201\324\337\"\210\327\201\325\201\326\"\210\327\201\327\337\"\210\327\201\330\201\331\"\210\327\201\332\310\"\210\327\201\333\337\"\210\327\201\334\201\335\"\210\327\201\336\201}\"\210\327\201\337\201[\"\210\327\201\340\337\"\210\327\201\341\337\"\210\327\201\342\310\"\210\327\201\343\201\344\"\210\327\201\345\324\"\210\327\201\346\324\"\210\327\201\347\201\350\"\210\327\201\351\324\"\210\327\201\352\324\"\210\327\201\353\201\354\"\210\327\201\355\201\356\"\210\327\201\357\337\"\210\327\201\360\201\361\"\210\327\201\362\337\"\210\327\201\363\310\"\210\327\201\364\337\"\210\327\201\365\201\366\"\210\327\201\367\337\"\210\327\201\370\337\"\210\327\201\371\201\372\"\210\327\201\373\201\374\"\210\327\201\375\201\376\"\210\327\201\377\337\"\210\327\201\310\"\210\327\201\310\"\210\327\201\310\"\210\327\201\310\"\210\327\201\201\"\210\327\201\310\"\210\327\201\337\"\210\327\201\337\"\210\327\201 \310\"\210\327\201\n\201 \"\210\327\201\f\310\"\210\327\201 \201\"\210\327\201\201\"\210\327\201\310\"\210\327\201\310\"\210\327\201\201\"\210\327\201\201\"\210\327\201\337\"\210\327\201\201\"\210\327\201\337\"\210\327\201\337\"\210\327\201\337\"\210\327\201\337\"\210\327\201\201\335\"\210\327\201\201e\"\210\327\201 \310\"\210\327\201!\201\225\"\210\327\201\"\337\"\210\327\201#\310\"\210\327\201$\310\"\210\327\201%\337\"\210\327\201&\303 \"\210\327\201'\337\"\210\327\201(\201 \"\210\327\201)\310\"\210\327\201*\201+\"\210\327\201,\201-\"\210\327\201.\310\"\210\327\201/\337\"\210\327\2010\337\"\210\327\2011\337\"\210\327\2012\2013\"\210\327\2014\337\"\210\327\2015\354\"\210\327\2016\337\"\210\327\2017\2018\"\210\327\2019\310\"\210\327\201:\310\"\210\327\201;\310\"\210\327\201<\201q\"\210\327\201=\201>\"\210\327\201?\201@\"\210\327\201A\310\"\210\327\201B\310\"\210\327\201C\337\"\210\327\201D\201E\"\210\327\201F\201G\"\210\327\201H\201I\"\210\327\201J\201K\"\210\327\201L\201M\"\210\327\304\307\201N\f\"\"\210\327\201O\201P\"\210\327\201Q\337\"\210\327\201R\201S\"\210\327\201T\201S\"\210\327\201U\310\"\210\327\201V\201W\"\210\327\201X\201Y\"\210\327\201Z\201P\"\210\327\201[\310\"\210\327\201\\\337\"\210\327\201]\310\"\210\327\201^\337\"\210\327\201_\337\"\210\327\201`\201e\"\210\327\201a\201b\"\210\327\201c\201q\"\210\327\201d\201q\"\210\327\201e\201q\"\210\327\201f\201g\"\210\327\201h\337\"\210\327\201i\337\"\210\327\201j\337\"\210\327\201k\337\"\210\327\201.\310\"\210\327\201l\337\"\210\327\201m\337\"\210\327\201n\201o\"\210\327\201p\201q\"\210\327\201r\310\"\210\327\201s\324\"\210\327\201t\324\"\210\327\201u\201v\"\210\327\201w\201x\"\210\327\201y\201e\"\210\327\201z\201\"\210\327\201{\201Y\"\210\327\201|\201v\"\210\327\201}\201e\"\210\327\201~\201\"\210\327\201\200\201\201\"\210\327\201\202\337\"\210\327\201\203\337\"\210\327\201\204\310\"\210\327\201\205\201\206\"\210\327\201\207\337\"\210\327\201\210\337\"\210\327\201\211\337\"\210\327\201\212\310\"\210\327\201\213\337\"\210\327\201\214\337\"\210\327\201\215\201\216\"\210\327\201\217\201\220\"\210\327\201\221\310\"\210\327\201\222\310\"\210\327\201\223\337\"\210\327\201\224\310\"\210\327\201\225\201\226\"\210\327\201\227\337\"\210\327\201\230\337\"\210\327\201\231\337\"\210\327\201\232\337\"\210\327\201\233\310\"\210\327\201\234\337\"\210\327\201\235\201\236\"\210\327\201\237\337\"\210\313\201\240\201\241\"\210\201\242\201\243\201\244\310#\210\201\242\201\245\201\244\310#\210\201\242\201\246\201\244\310#\210\201\242\201\247\201\244\310#\210\201\250\201\251\201\252\"\210 \204[ \305\201e!\210\201\242\201\253\201!\201\225#\207" [eli-user-homedirs u-h #:--cl-dolist-temp-- user-login-name completion-ignored-extensions auto-compression-mode sort append nil #[(x y) "A A\231\207" [x y] 2] "/" add-to-list directory-abbrev-alist "^" "\\(/\\|$\\)" "~" set-language-environment "UTF-8" functionp set-fringe-mode 2 require uniquify set-default kill-ring-max 100 yank-pop-change-selection kill-read-only-ok backward-delete-char-untabify-method untabify kill-whole-line t select-active-regions x-select-enable-clipboard x-select-enable-primary standard-indent tab-always-indent indent-tabs-mode paragraph-ignore-fill-prefix sentence-end-double-space fill-individual-varying-indent colon-double-space adaptive-fill-mode default-justification left fill-column 72 comment-fill-column comment-style indent longlines-auto-wrap longlines-show-hard-newlines longlines-show-effect propertize "<@>\n" face escape-glyph view-read-only view-scroll-auto-exit case-replace case-fold-search query-replace-show-replacement query-replace-highlight query-replace-lazy-highlight blink-matching-paren blink-matching-paren-distance 200000 blink-matching-delay 0.5 show-paren-style parenthesis show-paren-delay 0.125 search-exit-option search-upper-case not-yanks search-nonincremental-instead search-whitespace-regexp "\\s-+" search-invisible open isearch-hide-immediately search-highlight isearch-lazy-highlight isearch-allow-scroll lazy-highlight-cleanup lazy-highlight-initial-delay 0.25 lazy-highlight-interval 0 lazy-highlight-max-at-a-time 20 ispell-lazy-highlight multi-isearch-search multi-isearch-pause completion-show-help enable-completion save-completions-flag save-completions-retention-time 672 completions-file-versions-kept 1 completion-search-distance 150000 mouse-yank-at-point mouse-drag-copy-region mouse-1-click-follows-link 450 mouse-1-click-in-non-selected-windows mouse-scroll-delay 0.1 mouse-scroll-min-lines mouse-buffer-menu-maxlen 40 mouse-wheel-scroll-amount (5 ((shift) . 1) ((control))) mouse-wheel-progressive-speed mouse-wheel-follow-mouse mouse-highlight tooltip-mode tooltip-delay 0.8 tooltip-short-delay 0.1 tooltip-x-offset 5 tooltip-y-offset undo-limit undo-strong-limit 300000 undo-outer-limit 30000000 read-quoted-char-radix 10 require-final-newline mode-require-final-newline change-major-mode-with-file-name use-empty-active-region shift-select-mode transient-mark-mode next-line-add-newlines track-eol line-move-ignore-invisible line-move-visual mark-even-if-inactive parse-sexp-ignore-comments pc-select-override-scroll-error pc-select-meta-moves-sexps comint-input-ring-size 500 comint-prompt-read-only comint-input-autoexpand comint-input-ignoredups comint-scroll-to-bottom-on-input comint-move-point-for-output comint-scroll-show-maximum-output comint-buffer-maximum-size 5000 comint-process-echoes comint-eol-on-send comint-use-prompt-regexp comint-completion-addsuffix compilation-window-height compilation-ask-about-save compilation-skip-threshold compilation-skip-visited compilation-scroll-output next-error-highlight next-error-highlight-no-select grep-window-height grep-scroll-output shell-input-autoexpand term-input-autoexpand term-input-ignoredups term-scroll-to-bottom-on-output others term-scroll-show-maximum-output confirm-kill-emacs visual-line-fringe-indicators (up-arrow down-arrow) Buffer-menu-use-header-line Buffer-menu-buffer+size-width 25 Buffer-menu-mode-width bs-must-always-show-regexp "[*]shell" bs-default-configuration "all" bs-alternative-configuration "files-and-scratch" bs-default-sort-name "by nothing" bs-attributes-list ((#1="" 1 1 left bs--get-marked-string) ("M" 1 1 left bs--get-modified-string) ("R" 2 2 left bs--get-readonly-string) ("Buffer" bs--get-name-length 10 left bs--get-name) (#1# 1 1 left " ") ("Size" 8 8 right bs--get-size-string) (#1# 1 1 left " ") ("Mode" 8 8 left bs--get-mode-name) (#1# 1 1 left " ") ("File" 12 12 left bs--get-file-name)) bs-max-window-height bs-maximal-buffer-name-column 45 bs-minimal-buffer-name-column 15 bs-string-show-always "+" bs-string-show-never "-" bs-string-current "." bs-string-current-marked "#" bs-string-marked "*" bs-string-show-normally " " calculator-electric-mode calculator-bind-escape linum-format dynamic linum-eager linum-delay 0.5 PC-first-char PC-meta-flag PC-word-delimiters "-_. :" eval-expression-print-level eval-expression-print-length eval-expression-debug-on-error parens-require-spaces scheme-mit-dialect scheme-program-name "racket" pascal-indent-level perl-indent-level sh-require-final-newline ((sh . t) (csh . t) (pdksh . t) (bash . t) (zsh . t)) sh-indentation tcl-indent-level compare-windows-sync compare-windows-sync-default-function compare-windows-sync-string-size 32 compare-windows-highlight vc-follow-symlinks ask vc-display-status vc-suppress-confirm vc-svn-diff-switches uniquify-buffer-name-style post-forward uniquify-after-kill-buffer-p uniquify-strip-common-suffix read-mail-command rmail mail-user-agent sendmail-user-agent ispell-highlight-p block ispell-check-comments ispell-query-replace-choices ispell-following-word ispell-help-in-bufferp ispell-quietly ispell-format-word-function upcase ispell-use-framepop-p Info-fontify-visited-nodes Info-use-header-line Info-additional-directory-list major-mode indented-text-mode garbage-collection-messages max-specpdl-size 10000 max-lisp-eval-depth 2000 debug-on-error debug-on-quit message-log-max 400 remote-shell-program "ssh" completion-auto-help completion-styles (partial-completion) insert-default-directory completion-ignore-case read-file-name-completion-ignore-case read-buffer-completion-ignore-case completion-pcm-word-delimiters echo-keystrokes enable-recursive-minibuffers history-length history-delete-duplicates minibuffer-auto-raise initial-buffer-choice inhibit-startup-screen inhibit-startup-echo-area-message inhibit-startup-buffer-menu initial-major-mode initial-scratch-message terminal-escape-char 30 terminal-redisplay-interval 3000 pop-up-frames auto-hscroll-mode display-hourglass cursor-type cursor-in-non-selected-windows (hbar . 4) indicate-empty-lines indicate-buffer-boundaries overflow-newline-into-fringe idle-update-delay 0.5 truncate-lines word-wrap visible-bell truncate-partial-width-windows line-number-display-limit 5000000 line-number-display-limit-width 1000 highlight-nonselected-windows mouse-autoselect-window x-stretch-cursor text-scale-mode-step 1.2 list-directory-brief-switches "-CF" list-directory-verbose-switches "-laF" directory-free-space-program "df" directory-free-space-args "-h" (".bak" "~" "#" ".obj") dired-listing-switches "-laFh" dired-copy-preserve-time dired-recursive-deletes top dired-recursive-copies dired-no-confirm find-dired-find-program "find" find-ls-option ("-exec ls -ldaFh {} \\;" . "-ldaFh") find-ls-subdir-switches wdired-use-interactive-rename wdired-confirm-overwrite wdired-use-dired-vertical-movement wdired-allow-to-redirect-links wdired-allow-to-change-permissions suggest-key-bindings list-command-history-max 320 yank-menu-length buffers-menu-max-size buffers-menu-buffer-name-length buffers-menu-show-directories unless-uniquify buffers-menu-show-status use-dialog-box use-file-dialog menu-prompting pop-up-windows split-window-keep-point scroll-up-aggressively 0.01 scroll-down-aggressively 0.01 even-window-heights next-screen-context-lines window-min-height window-min-width 4 scroll-preserve-screen-position in-place scroll-step scroll-conservatively scroll-margin hscroll-step hscroll-margin whitespace-style (tabs trailing lines-tail indentation empty space-after-tab space-before-tab) whitespace-line-column 79 whitespace-global-modes find-file-wildcards find-file-suppress-same-file-warnings large-file-warning-threshold 50000000 auto-mode-case-fold find-file-existing-other-name find-file-visit-truename revert-without-query find-file-run-dired enable-local-variables enable-local-eval maybe confirm-nonexistent-file-or-buffer after-completion custom-unlispify-remove-prefixes custom-unlispify-tag-names custom-buffer-done-kill custom-buffer-sort-alphabetically custom-buffer-order-groups last custom-magic-show-button apropos-do-all apropos-sort-by-scores apropos-documentation-sort-by-scores minibuffer-allow-text-properties resize-mini-windows max-mini-window-height 0.25 redisplay-dont-pause auto-mode-alist ("\\.rkt.?$" . scheme-mode) put narrow-to-page disabled narrow-to-region upcase-region downcase-region add-hook emacs-startup-hook delete-other-windows file-name-history] 7) (put 'inhibit-startup-echo-area-message 'saved-value t) (byte-code "\306\307\310\"\210\204\f\311 \210 \312=\203{\313\314\315\"\210\313\316\317\"\210\313\320\317\"\210\313\321\317\"\210\313\322\323\"\210\313\324\315\"\210\313\325\315\"\210\313\326\323\"\210\313\327\315\"\210\313\330\315\"\210\313\331\323\"\210\313\332\323\"\210\313\333\315\"\210\313\334\315\"\210\313\335\336\"\210\313\337\315\"\210\313\340\315\"\210\313\341\323\"\210\313\342\315\"\210\313\343\315\"\210\313\344\345\"\210\346\347\350\351#\210\346\352\350\351#\210\346\353\350\354#\210\346\355\350\356#\210\346\357\350\356#\210\346\360\350\351#\210\346\361\350\351#\210\346\362\350\351#\210\346\363\350\351#\210\346\364\350\351#\210\346\365\350\351#\210\346\366\350\351#\210\346\367\350\351#\210\346\370\350\351#\210\346\371\350\351#\210\346\372\350\356#\210\346\373\350\351#\210\346\374\350\351#\210\346\375\350\351#\210\346\376\350\351#\210\346\377\350\354#\210\346\201F\350\351#\210\346\201G\350\351#\210\346\201H\350\351#\210\346\201I\350\351#\210\346\201J\350\351#\210\346\201K\350\351#\210\346\201L\350\351#\210\346\201M\350\351#\210\346\201N\350\351#\210\346\201O\350\351#\210\346\201P\350\354#\210\346\201Q\350\351#\210\346\201R\350\351#\210\346\201S\350\351#\210\346\201T\350\351#\210\346\201U\350\351#\210\346\201V\350\351#\210\346\201W\350\351#\210\346\201X\350\351#\210\346\201Y\350\351#\210\346\201Z\350\351#\210\354\211\201[\201\\\201]@\323A\315\211BC\323\211DE\323\207" [mouse-wheel-mode system-type calendar-week-start-day calendar-offset calendar-date-display-form calendar-time-display-form eval-after-load "cc-mode" (c-add-style "java" '((c-basic-offset . 2))) mwheel-install windows-nt set-default w32-alt-is-meta t w32-apps-modifier hyper w32-lwindow-modifier w32-rwindow-modifier w32-pass-alt-to-system nil w32-pass-lwindow-to-system w32-pass-rwindow-to-system w32-capslock-is-shiftlock w32-enable-caps-lock w32-enable-num-lock w32-scroll-lock-modifier w32-enable-synthesized-fonts w32-list-proportional-fonts w32-use-w32-font-dialog buffer-file-coding-system mule-utf-8-unix w32-allow-system-shell w32-quote-process-args w32-downcase-file-names w32-get-true-file-attributes w32-grab-focus-on-raise display-time-mail-file x put block lisp-indent-function 1 case cond 0 do 2 do* dolist dotimes eval-when flet handler-case if labels let let* macrolet multiple-value-bind unless select simple-error symbol-macrolet tagbody calendar-today-visible-hook calendar-view-holidays-initially-flag calendar-mark-holidays-flag calendar-hebrew-all-holidays-flag calendar-christian-all-holidays-flag calendar-islamic-all-holidays-flag typecase unwind-protect with-clipping with-clipping-box with-delayed-redraw with-foreground-color with-background-color with-background-mode with-events-disabled with-font with-hourglass with-line-width with-lock with-mouse-captured with-open-file with-open-stream with-output-to-string with-paint-operation when when-eli-feature while ((if dayname (concat dayname ", ")) day " " monthname " " year) (24-hours ":" minutes (if time-zone " (") time-zone (if time-zone ")")) calendar-mark-today] 5) #@219 Format VALUE as a result of evaluated expression. Return a formatted string which is displayed in the echo area in addition to the value printed by prin1 in functions which display the result of expression evaluation. (defalias 'eval-expression-print-format #[(value) "\250\2053\305 !?\2053\306\302!\203\n\204 \307>\205\310!\211\203-\311\312\211\f$\2022\311\313\211#)\207" [value standard-output edebug-active this-command char-string bufferp boundp (eval-last-sexp eval-print-last-sexp) prin1-char format " (#o%o, #x%x, %s)" " (#o%o, #x%x)"] 6 (#$ . 27806)]) #@64 Redefined: no message is shown, only set `help-return-method'. (defalias 'print-help-return-message #[(&optional function) "\306\307 !?\205?\310 \n\204\311\312 !!\203\313\202< \203#\314\202<\315\313!\204-\314\202<\f\2035\313\202<\316 \317 \320 EB\211\207" [help-window standard-output pop-up-frames display-buffer-reuse-frames pop-up-windows help-return-method nil get-buffer-window selected-window special-display-p buffer-name t quit-window one-window-p window-buffer window-start window-point] 4 (#$ . 28387)]) #@71 Window configuration to restore after quitting viewing a temp buffer. (defvar eli-popup-exit-conf nil (#$ . 28921)) (make-variable-buffer-local 'eli-popup-exit-conf) (defalias 'buffer-op-and-restore-winconf #[(buf op) "\303\304\"\305\306 !\204\n!\210 \205 \307 \310 !=\205 \311 !)\207" [buf conf op buffer-local-value eli-popup-exit-conf window-minibuffer-p selected-window selected-frame window-configuration-frame set-window-configuration] 3]) (byte-code "\300\301\302\"\210\300\303\304\"\210\305\306!\207" [add-hook help-mode-hook #[nil "\301\211\207" [view-exit-action #[(buf) "\301\302\"\207" [buf buffer-op-and-restore-winconf kill-buffer] 3]] 2] apropos-mode-hook #[nil "\301\211\207" [view-exit-action #[(buf) "\301\302\"\207" [buf buffer-op-and-restore-winconf bury-buffer] 3]] 2] temp-buffer-resize-mode 1] 3) (defalias 'eli-temp-buffer-show-function #[(buf) "p\306!\307\310 \311\f!\312 \313 !=\204\314\313 !!\210 \315 \316\"\210\317 \316\"\210\320\f!\321\232?\205U\322 !\210\fq\210\f=\203G =\204J \323\324!\210\322 !\210\325\326!-\207" [origbuf origwin temp-buffer-show-function conf buf win get-buffer-window nil current-window-configuration display-buffer selected-frame window-frame make-frame-visible set-window-start 0 set-window-hscroll buffer-name "*Completions*" select-window run-hooks temp-buffer-show-hook view-mode 1 minibuffer-scroll-window eli-popup-exit-conf] 3]) (byte-code "\301\211\207" [temp-buffer-show-function eli-temp-buffer-show-function] 2) #@47 Show BUF in a window, make it in `view-mode'. (defalias 'eli-popup-view #[(buf &optional exit-action) "\304\305 !\211\204\306 !\210\305 !\307\n!\210 q\210\310\311!\210\312\211*\207" [special-display-buffer-names buf win view-exit-action nil get-buffer-window eli-temp-buffer-show-function select-window view-mode 1 #[(buf) "\301\302\"\207" [buf buffer-op-and-restore-winconf bury-buffer] 3]] 3 (#$ . 30433)]) (byte-code "\303B \203\304\nB\305\304!\204\306\304\307\"\210\310\311\312\"\210\307\207" [special-display-buffer-names eli-auto-revert-on-change current-load-list ("*Shell Command Output*" eli-popup-view) inside-ask-user-about-supersession-threat default-boundp set-default nil eval-after-load "userlock" (progn (defun ask-user-about-supersession-threat (fn) "(DON'T) Ask a user who is about to modify an obsolete buffer what to do.\nThis function has two choices: it can return, in which case the modification\nof the buffer will proceed, or it can (signal 'file-supersession (file)),\nin which case the proposed buffer modification will not be made.\n\nYou can rewrite this to use any criterion you like to choose which one to do.\nThe buffer in question is current when this function is called.\n\nTHIS IS A MODIFIED VERSION THAT AUTOMATICALLY RELOADS THE FILE." (unless inside-ask-user-about-supersession-threat (let ((inside-ask-user-about-supersession-threat t) (opoint (point)) (strt (window-start (get-buffer-window (current-buffer)))) (inhibit-read-only t)) (discard-input) (undo-boundary) (erase-buffer) (let ((saved-undo buffer-undo-list)) (setq buffer-undo-list nil) (revert-buffer t t t) (setq buffer-undo-list (cons (cons (point-min) (point-max)) saved-undo))) (set-window-start (get-buffer-window (current-buffer)) strt) (goto-char opoint) (error "%s was modifed on disk, reloaded" (file-name-nondirectory fn))))))] 3) #@436 Expand wildcard pattern PATTERN. This returns a list of file names which match the pattern. If PATTERN is written as an absolute file name, the values are absolute also. If PATTERN is written as a relative file name, it is interpreted relative to the current default directory, `default-directory'. The file names returned are normally also relative to the current default directory. However, if FULL is non-nil, they are absolute. (defalias 'file-expand-wildcards #[(pattern &optional full) "\306 \307\216\310 !\311 !\211\203#\312\313 \"\203#\314\315\316\317 !!\"\202% C\320\f\203k\f@\203:\321\317\f@!!\203d\322\320\314\323\324\f@\206E\325\"\"\"\f@\203^\204^\314\326\"\202` \244)\fA\211\204, .\207" [save-match-data-internal pattern nondir dirpart dirs contents match-data ((byte-code "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3)) file-name-nondirectory file-name-directory string-match "[[*?]" mapcar file-name-as-directory file-expand-wildcards directory-file-name nil file-directory-p delq #[(name) "\303!\211\304\235?\205\305\306\n! \"\205)\207" [name n nondir file-name-nondirectory ("." "..") string-match wildcard-to-regexp] 4] directory-files "." #[(name) "@ P\207" [dirs name] 2] full this-dir-contents] 8 (#$ . 32296)]) (eval-after-load "comint" '(progn (defun comint-dynamic-list-completions (completions &optional common-substring) "List in help buffer sorted COMPLETIONS.\nThe meaning of COMMON-SUBSTRING is the same as in `display-completion-list'.\nTyping SPC flushes the help buffer." (let ((window (get-buffer-window "*Completions*" 0))) (setq completions (sort completions 'string-lessp)) (if (and (eq last-command this-command) window (window-live-p window) (window-buffer window) (buffer-name (window-buffer window)) (equal completions (buffer-local-value 'comint-displayed-dynamic-completions (window-buffer window)))) (with-current-buffer (window-buffer window) (if (pos-visible-in-window-p (point-max) window) (set-window-start window (point-min)) (save-selected-window (select-window window) (scroll-up)))) (setq comint-dynamic-list-completions-config (current-window-configuration)) (with-output-to-temp-buffer "*Completions*" (display-completion-list completions common-substring)) (if (window-minibuffer-p (selected-window)) (minibuffer-message " [Type space to flush; repeat completion command to scroll]") (message "Type space to flush; repeat completion command to scroll"))) (let (key first) (if (with-current-buffer (get-buffer "*Completions*") (set (make-local-variable 'comint-displayed-dynamic-completions) completions) (setq key (read-key-sequence nil) first (aref key 0)) (and (consp first) (consp (event-start first)) (eq (window-buffer (posn-window (event-start first))) (get-buffer "*Completions*")) (eq (key-binding key) 'mouse-choose-completion))) (progn (mouse-choose-completion first) (set-window-configuration comint-dynamic-list-completions-config)) (if (not (eq first 9)) (set-window-configuration comint-dynamic-list-completions-config)) (setq unread-command-events (listify-key-sequence key)))))))) #@283 Complete the minibuffer contents as far as possible. Return nil if there is no valid completion, else t. If no characters can be completed, display a list of possible completions. If you repeat this command after it displayed such a list, scroll the window of possible completions. (defalias 'minibuffer-complete #[nil " =\204\305\n\306 !\203.r\307 !q\210\310d \"\203&\311 e\305#\210\202)\312 \210)\305\202]\313 \211\314=\203;\305\202\\\f\315=\203M\316 b\210\317\320!\210\321\202\\\f\322=\203[\317\323!\210\321\202\\\321))\207" [this-command last-command minibuffer-scroll-window window #1=#:--cl-var-- nil window-live-p window-buffer pos-visible-in-window-p set-window-start scroll-other-window completion--do-completion 0 1 field-end minibuffer-message "Sole completion" t 3 "Complete, but not unique"] 5 (#$ . 35420) nil]) #@113 Reread key sequence KEYLIST with Isearch mode's keymap deactivated. Return the key sequence as a string/vector. (defalias 'isearch-reread-key-sequence-naturally #[(keylist) "\302!\210\303\304\303\211\305#)\207" [keylist overriding-terminal-local-map isearch-unread-key-sequence nil read-key-sequence t] 4 (#$ . 36269)]) #@797 Process a miscellaneous key sequence in Isearch mode. Try to convert the current key-sequence to something usable in Isearch mode, either by converting it with `function-key-map', downcasing a key with C-, or finding a "scrolling command" bound to it. (In the last case, we may have to read more events.) If so, either unread the converted sequence or execute the command. Otherwise, if `search-exit-option' is non-nil (the default) unread the key-sequence and exit the search normally. If it is the symbol `edit', the search string is edited in the minibuffer and the meta character is unread so that it applies to editing the string. ARG is the prefix argument. It will be transmitted through to the scrolling command or to the command whose key-sequence exits Isearch mode. (defalias 'isearch-other-meta-char #[(&optional arg) "\203\f\306 \307O\202\306 \211\310H\311\n!\307\211-\nG\312U\203\216\313.\n\"\211/?\2069/\250\2069\314/!)\204\216\315 \210\3130\n\"\203R\316 \210\317\320\f\"\202\311\313.\n\"!\211\205\f@\211\250\203\203\n\321Y\203\203\n\322U\204\203\n\323W\203\203\324\n!\210\fA\211\202[\317\320\f\"\210\307\211\202[\325 !1 \250\205\275\3261>\205\275\3271>\205\275\3132\330\n!\2113\310 \331ZI\2103)\307#\332>?)\203\321\f \331Z\240\210\315 \210\317\320\f\"\2024\333=\203\342\317\320\f\"\210\334 \202 \242\335=\203\336 \2115:\203\3715A@\202\377\337 `\340\310F)\2116@)!\203\341 \210\334 \2027\203\253\342\f!\311\n!\n\310H\343\n!\211\203\253`-89\344 !\210\345-!\211:\203\241\307;<\204\222 <\203\222 \2115:\203[5A@\202a\337 `\340\310F)\2116@)\211;\203\222\346;!\203\222\347 \310V\204\202\336;!\204\222r\350;!q\210\316 \210\351 )\202\235\316 \210\351 \2108\2119)\202\247-b\210\352 )\2024\203\307;\353\f!\210=@<\204  <\203  \2115:\203\3245A@\202\332\337 `\340\310F)\2116@)\211;\203 \346;!\203 \347 \310V\204\373\336;!\204 r\350;!q\210\316 \210\351 )\202\316 \210\351 \2108\2119)\202\354\n\211\"-\207" [current-prefix-arg universal-argument-num-events key main-event keylist scroll-command this-command-keys nil 0 listify-key-sequence 1 lookup-key keymapp cancel-kbd-macro-events isearch-done apply isearch-unread 32 127 256 isearch-process-search-char event-modifiers shift control copy-sequence 33554432 (nil isearch-other-control-char) edit isearch-edit-string down-mouse-1 window-minibuffer-p selected-window (0 . 0) read-event isearch-reread-key-sequence-naturally isearch-lookup-scroll-key command-execute isearch-string-out-of-window windowp minibuffer-depth window-buffer isearch-clean-overlays isearch-update isearch-unread-key-sequence isearch-process-search-string isearch-point local-function-key-map lookup global-map mods isearch-mode-map copy search-exit-option event position isearch-allow-scroll arg prefix-arg ab-bel window isearch-mode unread-command-events] 7 (#$ . 36598) "P"]) #@1341 Get a symbol or a string SPEC, and make it into a face if it doesn't exist. In order for it to properly create the face, the following naming convention must be used: attr[-attr][...] Example: (simple-make-face 'yellow/blue4-bold) creates and returns an appropriate face named `yellow/blue4-bold'. (Actually, the color spec can be anywhere.) Attribute can be one of: ultra-condensed extra-condensed condensed semi-condensed semi-expanded expanded extra-expanded ultra-expanded ultra-bold extra-bold bold semi-bold semi-light light extra-light ultra-light underline ununderline overline unoverline inverse uninverse italic oblique reverse-italic reverse-oblique. It can also be `normal', which will be used for width, weight, and slant (but attributes are processed from left to right). (See `set-face-attribute'.) Attributes can also be in these forms: * `fgcolor/bgcolor', where each color can be - a color name, - `hexH' (H is some hex color), or `hH', or `#H' - `*' or `default', or just empty * `box[N]' for a box with width N, defaults to 1 * `big[N]', `small[N]' for a multiplier or divider of N0%, defaults to 25% * `scale[N]' (for a scale of N%) An optional argument FACE-NAME will make it be defined as the result face, and force the face to be modified if it exists (good for setting properties of existing faces). (defalias 'simple-make-face #[(spec &optional face-name) ";\203 \202\f\306!\211\307\232\203\310\311!\202 \206\"\312! \204/\n\313N\232\204p\314\315\"\316\317 \"\n\320 >\204D\321\n!\210\322 \323\216 \324\211\203d@\325\n \"\210A\211\204R, \204o\326\n\313#\210*\n+\207" [spec face-name face attrs save-match-data-internal attr symbol-name "" error "Empty face spec" intern simple-face-spec split-string "-" mapcar #[(a) "\301\302\303\304$\207" [a replace-regexp-in-string "_" "-" t] 5] face-list make-face match-data ((byte-code "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3)) nil simple-set-face-attribute put #1=#:--cl-dolist-temp--] 5 (#$ . 39555)]) (defalias 'simple-set-face-attribute #[(face attr) "\303!\211\304=\203\305 \306 \307 \257\202x \310>\203!\305 D\202x \311>\203-\306 D\202x \312>\2039\307 D\202x \313=\203C\314\202x \315=\203M\316\202x \317=\203W\320\202x \321=\203a\322\202x \323=\203k\324\202x \325=\203u\326\202x\327!\330\331\332\217*\207" [attr a as intern normal :width :weight :slant (ultra-condensed extra-condensed condensed semi-condensed semi-expanded expanded extra-expanded ultra-expanded) (ultra-bold extra-bold bold semi-bold semi-light light extra-light ultra-light) (italic oblique reverse-italic reverse-oblique) underline (:underline t) ununderline (:underline nil) overline (:overline t) unoverline (:overline nil) inverse (:inverse t) uninverse (:inverse nil) simple-face-parse-compound-attr nil (byte-code "\302\303\304 $\207" [face as apply set-face-attribute nil] 5) ((error))] 7]) (defalias 'simple-face-parse-compound-attr #[(attr) "\306\307\"\203J\310\311\"\310\312\"\211\205\313\n! \314\232\203'\n\2064\315\2024\315\n\2032\n\316_\2023\317\\\320\245 \321\232\203C\322 \245\202D \323 -D\207\306\324\"\203e\325\311\224\203b\326\313\310\311\"!D\202c\327D\207\306\330\"\203\204\310\311\"\331P\331\310\312\"P\332\333 !\333\f!\"*\207\334\235\203\214\335\207\306\336\"\203\314\311\224\203\236\337\224?\202\240\337\224\203\314\312\224(\310\340\")(\203\271\341)P\202\273))\311\224\203\306\342\202\307\343)+D\207\306\344\"\203\334\343\341\310\311\"PD\207\345\227*\"\203\351\343D\207\346\347\"\207" [attr op arg scale bg fg string-match "\\`\\(big\\|small\\|scale\\)\\([0-9]+\\)?\\'" match-string 1 2 string-to-number "scale" 100 10 25 100.0 "small" 1.0 :height "\\`box\\([0-9]+\\)?\\'" :box :line-width t "\\`\\([^/]+\\)/\\([^/]+\\)\\'" "/" append simple-face-parse-compound-attr ("" "/" "*" "*/" "/*" "default" "default/" "/default") nil "\\`\\(/\\)?\\(#\\|[hH]\\|hex\\|HEX\\)?\\([^/]*\\)\\(/\\)?\\'" 4 3 "#" :background :foreground "\\`\\(?:#\\|[hH]\\|hex\\|HEX\\)\\([^/]*\\)\\'" assoc error "Bad component in face spec: %S" rgb color color-name-rgb-alist] 7]) (defalias 'simple-make-face-if-undefined #[(face) ";\203 \301!\202\f\302!\203\202\303!)\207" [face intern facep simple-make-face] 2]) #@553 Read a face, defaulting to the face or faces on the char after point. If it has the property `read-face-name', that overrides the `face' property. PROMPT should be a string that describes what the caller will do with the face; it should not end in a space. STRING-DESCRIBING-DEFAULT should describe what default the caller will use if the user just types RET; you can omit it. If MULTIPLE is non-nil, return a list of faces (possibly only one). Otherwise, return a single face. ** Modified to accept anything, and use `simple-make-face-if-undefined'. (defalias 'read-face-name #[(prompt &optional string-describing-default multiple) "\306`\307\"\206 \306`\310\"\311\211\211\312\313\314!!\315 >\203$\312\313\314!!C <\203V\316 @!\204V @\317>\204V \311\211\203R @\2119\203K\fB A\211\204?*\202_ 9\203_ B\320!\210\321\322!\210%\204t\203t@C\323\324!\210\325\204\202&\203\230\326\327'\203\222\330\331\332#\202\224&#\202\235\326\333'\"\334 \n\"\311\211\211\335\205\256\330\331\332#&\211(\336\232\204\277(\337\232\203\303\202\345(;\203\325\340\341\342(\343\344#\"\202\345(<\203\343\340\341(\"\202\345()%\203\361)\202\364)@.\207" [faces nonaliasfaces aliasfaces faceprop f #1=#:--cl-dolist-temp-- get-char-property read-face-name face nil intern-soft thing-at-point symbol face-list keywordp (foreground-color background-color) delete-dups mapatoms #[(s) "\303!\205\304N\203\305! B\211\207\305!\nB\211\207" [s aliasfaces nonaliasfaces custom-facep face-alias symbol-name] 2] require crm completing-read-multiple format "%s (default %s): " mapconcat symbol-name "," "%s: " completion-table-in-turn face-name-history #2="" (#2#) mapcar simple-make-face-if-undefined split-string ", *" t multiple string-describing-default prompt input output] 12 (#$ . 43889)]) #@388 Set the face of a region. Make the region from BEG to END to have face FACE. Will use face properties, unless font-lock is active -- in that case it will use overlays. If the optional argument FORCE-OVERLAYS is t (prefix argument when called interactively), will use overlays anyway. If its value is 'both, will use both overlays and properties (overlays don't stick in copied text). (defalias 'set-region-face #[(beg end face &optional force-overlays dont-make-face) "\203 \202 \306 !\307 \310\211\310\211\206$\205$\211?\206/\311=\312\211\312\203V\313\"\314\315\310#\210\314\301 #\210)\203d\316\301 $\210\n?\205l\317\312!. \207" [dont-make-face face modified buffer-undo-list inhibit-read-only inhibit-point-motion-hooks simple-make-face buffer-modified-p t both nil make-overlay overlay-put set-region-face put-text-property restore-buffer-modified-p inhibit-modification-hooks force-overlays font-lock-mode font-lock-defaults use-overlays use-properties deactivate-mark buffer-file-name buffer-file-truename beg end overlay] 6 (#$ . 45724) (byte-code "\203\302 \303 \304\305! \205\306\307\257\207\310\311!\207" [mark-active current-prefix-arg region-beginning region-end read-face-name "Face" t nil error "Use the mark, luke."] 5)]) (put 'set-region-face 'safe-local-eval-function t) #@44 Removes overlays set by `set-region-face'. (defalias 'remove-set-face-overlays #[nil "\300\301\211\302\303$\207" [remove-overlays nil set-region-face t] 5 (#$ . 47079) nil]) (put 'remove-set-face-overlays 'safe-local-eval-function t) #@172 Set the face of all occurrences of REGEXP to FACE. FACE can be a a list of pairs of a subexp number and its color: (SUB . COLOR). Uses `set-region-face' to set the faces. (defalias 'set-regexp-face #[(regexp face &optional force-overlays) "<\203#\306\211\203\n@\211\307 A!\241\210\nA\211\204 *\202&\307!\212eb\210\310 \306\311\306$\205i<\203\\\306\211\203X\f@\312 @\224 @\225 A \311%\210\fA\211\204A*\202+\312\313\224\313\225 \311%\210\202+*\207" [face f #1=#:--cl-dolist-temp-- regexp #2=#:--cl-dolist-temp-- force-overlays nil simple-make-face re-search-forward t set-region-face 0] 7 (#$ . 47320) (list (read-from-minibuffer "Pattern to highlight: " (and (use-region-p) (regexp-quote (buffer-substring-no-properties (region-beginning) (region-end)))) nil nil 'regexp-history) (read-face-name "Face") (and current-prefix-arg t))]) (put 'set-regexp-face 'safe-local-eval-function t) #@49 List of colors added using `add-color-pattern'. (defvar added-color-patterns nil (#$ . 48237)) #@802 Add a pattern for this buffer's `font-lock-keywords'. REGEXP is the pattern to be colored with FACE. When called programatically - a third integer argument EXPNUM specifies the regexp to hilight, and a fourth argument OVERRIDE is the override flag. Possible MORE arguments will specify more faces, numbers and flags. When called interactively, a positive prefix argument will make it an overriding addition, negative prefix makes it a normal addition, and no prefix make the style appended over any existing style. When OVERRIDE is set to anything other than `t' or `nil', the new pattern will be added to the end of `font-lock-keywords'. Examples: (add-color-pattern "regexp" 'face) (add-color-pattern "\\(r\\)egexp" 'face 1 t) (add-color-pattern "\\(r\\)egex\\(p\\)" 'face1 1 t 'face2 2 nil) (defalias 'add-color-pattern #[(regexp face &optional expnum override &rest more) "t\203\204\f\306\202\307!\310Y\203\311\202\312\310\313 !\314 D\n\206)\310 \311F \203< A\203<\fC\202=\f \203j A\203j\313 \211A@! \211A@\314 D \211A@\311F\fC\244\210*\202>\fB\315\316!\210\f\235?\205\241\fB\317\312\fC \320>?\205\215\311#\210\204\237\321\322!\210\323\321\324!\210\325 ,\207" [current-prefix-arg override expnum face add more prepend prefix-numeric-value 0 t nil simple-make-face quote make-local-variable added-color-patterns font-lock-add-keywords (t nil) font-lock-mode -1 (nil) 1 font-lock-fontify-buffer new regexp font-lock-defaults] 5 (#$ . 48339) (list (read-from-minibuffer "Pattern to highlight: " (and (use-region-p) (regexp-quote (buffer-substring-no-properties (region-beginning) (region-end)))) nil nil 'regexp-history) (read-face-name "Face"))]) (put 'add-color-pattern 'safe-local-eval-function t) #@248 Remove the a pattern added with `add-color-pattern'. Automatically removes a single-added pattern, otherwise asks which one to remove. With a numeric prefix argumet, remove that number of patterns (last one added first), if negative removes all. (defalias 'remove-added-color-pattern #[(&optional n) "\205\305! \204\306\307!\210\202q\203\310W\204$ G\311U\203.\312\313 \"\210\313\202q\203L \203q\310V\203q\312\313 \211A@C\"\210S\2022\314\315 \"\316\317\320 \313\321 \211@@)\302\311B& \"\312\313\fC\"\210\322\f \"*)\323 \207" [n added-color-patterns history-list x rem prefix-numeric-value message "No patterns to remove." 0 1 font-lock-remove-keywords nil mapcar car assoc completing-read "Pattern to unhighlight: " t delq font-lock-fontify-buffer] 10 (#$ . 50104) "P"]) (byte-code "\306\307\310\311#\210\311\211\312\313\314\315\316!\317\320!\210\321\322\"\"\210\323\324\325 \"\210\326\327!\210\323\"\330=\2035\331\2026\332\333\"\210\311#\334\335!$%\204P\336\337\313\"\210\336\340\313\"\210\313\207" [font-lock-global-modes font-lock-maximum-decoration font-lock-maximum-size jit-lock-stealth-verbose jit-lock-stealth-time jit-lock-chunk-size put remove-added-color-pattern safe-local-eval-function t 1048576 nil 3 500 0.2 global-font-lock-mode 1 set-default frame-background-mode mapc frame-set-background-mode frame-list set-cursor-color "purple" dark #[(x) "\301A@@\"\207" [x simple-make-face] 3] #[(x) "\301\3028\206\nA@@\"\207" [x simple-make-face 2] 3] ((default white/black black/white) (fringe white/gray10 black/gray90) (scroll-bar white/gray10 black/gray90) (mode-line yellow/red2-uninverse-scale50 red2/yellow-uninverse-scale50) (mode-line-inactive orange2/red4-uninverse orange2/yellow4-uninverse) (mode-line-buffer-id bold) (header-line yellow/green4-bold green4/yellow-bold) (tooltip black/gray75-bold-small10) (minibuffer-prompt yellow/*-bold-scale82 black/*-bold-scale82) (region yellow/blue2 blue4/yellow) (secondary-selection yellow/cyan4 cyan4/yellow) (highlight yellow/purple4-bold purple4/yellow-bold) (isearch yellow/red2 red2/yellow) (query-replace yellow/red2 red2/yellow) (match */red4 red2/*) (lazy-highlight */red4 red2/*) (next-error yellow/purple3 purple3/yellow) (trailing-whitespace */gray20 */gray80) (whitespace-line */gray20 */gray80) (whitespace-empty */gray20 */gray80) (whitespace-trailing */gray20 */gray80) (whitespace-space */gray20 */gray80) (whitespace-hspace */gray20 */gray80) (whitespace-tab */gray20 */gray80) (whitespace-indentation */h220 */hdd0) (whitespace-space-after-tab */h220 */hdd0) (whitespace-space-before-tab */h440 */hbb0) (button */grey20-underline */grey80-underline) (help-argument-name underline-italic) (buffer-menu-buffer yellow/red4-bold red4/yellow-bold) (shadow gray40/*) (escape-glyph gray60/*) (nobreak-space gray30/* gray70/*) (completions-common-part gray60/* gray40/*) (completions-first-difference yellow/red4 red4/yellow) (font-lock-keyword-face yellow1-underline blue4-underline) (font-lock-function-name-face skyblue1-bold purple4-bold) (font-lock-variable-name-face seagreen1-bold green4-bold) (font-lock-comment-face chocolate1 red3) (font-lock-comment-delimiter-face chocolate2 red2) (font-lock-string-face indianred1 cyan4) (font-lock-constant-face skyblue1-bold skyblue4-bold) (font-lock-type-face orange1-bold orange3-bold) (font-lock-doc-face indianred1-italic indianred4-italic) (font-lock-builtin-face yellow1-bold pink4-bold) (font-lock-warning-face yellow1/skyblue4-bold yellow4/red4-bold) (font-lock-preprocessor-face bold) (font-lock-regexp-grouping-backslash underline) (font-lock-regexp-grouping-construct underline)) simple-make-face yellow/orange4-bold set-face-inverse-video-p modeline modeline-inactive jit-lock-stealth-nice eli-color-style mode-line-in-non-selected-windows display-time-mail-face window-system] 5) #@31 Version string for mic-paren. (defvar mic-paren-version "3.7" (#$ . 53973)) (byte-code "\300\301\302\217\210\303\304!\204\305\304\306\"\210\303\307!\204\305\307\310\"\210\303\311!\204&\305\311\312\"\210\313\314\300\315\316\317\320\321&\207" [nil (byte-code "\300\301!\207" [require custom] 2) ((error)) fboundp defgroup defalias (macro . #[(&rest rest) "\300\207" [nil] 1]) defcustom (macro . #[(sym val str &rest rest) "\303 \nF\207" [sym val str defvar] 4]) defface (macro . #[(sym val str &rest rest) "\302\303\304DD F\207" [sym str defvar make-face quote] 5]) custom-declare-group mic-paren-matching "Showing advanced (un)matching of parens and expressions." :prefix "paren-" :group paren-matching] 8) #@618 *Defines the behaviour of mic-paren when point is between a closing and an opening parenthesis. This means what should be done in a situation like this: (a b)(c d) ^ point - 'close means highlight the parenthesis matching the close-parenthesis before the point (highlight opening paren before 'a'). - 'open means highlight the parenthesis matching the open-parenthesis after the point (highlight closing paren after 'd'). - 'both means highlight both parenthesis matching the parenthesis beside the point (highlight opening before 'a' and closing after 'd'). (custom-declare-variable 'paren-priority ''both '(#$ . -54695) :type '(choice (const :tag "Match close" close) (const :tag "Match open" open) (const :tag "Match both" both)) :group 'mic-paren-matching) #@198 *Specify paren overlay priority (Integer >= 0). For a description of the priority of an overlay see in the emacs-lisp manual the node Overlays. Normally you don't want to change the default-value! (custom-declare-variable 'paren-overlay-priority '999 '(#$ . -55521) :set #[(symbol value) " \302W\203\f [\202 L\207" [symbol value 0] 3] :initialize 'custom-initialize-default :type 'integer :group 'mic-paren-matching) #@445 *Defines in which situations the whole sexp should be highlighted. This means the whole s-expression between the matching parenthesis is highlighted instead of only the matching/mismatching parenthesis. - t: Always highlight the whole s-expression. - nil: Never highlight the whole s-expression. - 'match: Highlight the whole s-expression only if the parens match. - 'mismatch: Highlight the whole s-expression only if the parens don't match. (custom-declare-variable 'paren-sexp-mode 'nil '(#$ . -55949) :type '(choice (const :tag "Never sexp-mode" nil) (const :tag "Always sexp-mode" t) (const :tag "If match" match) (const :tag "If mismatch" mismatch)) :group 'mic-paren-matching) #@155 *If non-nil and point is after a close parenthesis, both the close and open parenthesis is highlighted. If nil, only the open parenthesis is highlighted. (custom-declare-variable 'paren-highlight-at-point 't '(#$ . -56641) :type '(choice (const :tag "Highlight both" t) (const :tag "Highlight open" nil)) :group 'mic-paren-matching) #@363 *If non-nil mic-paren will highlight text which is not visible in the current buffer. This is useful if you regularly display the current buffer in multiple windows or frames. For instance if you use follow-mode (by andersl@csd.uu.se), however it may slow down your Emacs. (This variable is ignored (treated as non-nil) if you set paren-sexp-mode to non-nil.) (custom-declare-variable 'paren-highlight-offscreen 'nil '(#$ . -56981) :type 'boolean :group 'mic-paren-matching) #@255 *Display message if matching parenthesis is off-screen. Possible settings are: - 'always: message is always displayed regardless if offscreen or not - 'only: message is only displayed when matching is offscreen - 'never: never a message is displayed. (custom-declare-variable 'paren-display-message ''only '(#$ . -57465) :type '(choice (const :tag "Display always" always) (const :tag "Display if offscreen" only) (const :tag "No Message display" never)) :group 'mic-paren-matching) #@405 *How a linefeed in the matching paren context message is displayed. There are three predefined values: - Displays linefeeds with " RET " in the message. - Displays linefeeds with a SPACE in the message. - Displays linefeeds in the standard-form, means with "^J". But you can also specify any user-defined string for it. For further explanations about message displaying look at `paren-display-message'. (custom-declare-variable 'paren-message-linefeed-display '" RET " '(#$ . -57958) :type '(choice (const :tag "Display with \"RET\"" :value " RET ") (const :tag "Display with a SPACE" :value " ") (const :tag "Standard" :value "^J") (string :tag "User defined")) :group 'mic-paren-matching) #@653 *Determine the computation of the offscreen-message-linenumber. If the matching paren is offscreen, then maybe a message with the context of the matching paren and it´s linenumber is displayed (depends on the setting in `paren-display-message'). Here the computation of the linenumber can be determined: - 'sexp: Display the number of lines between the matching parens. Then the number of lines is displayed as negativ number if the matching paren is somewhere above. Otherwise the number has a positive sign. - 'absolute: Display the absolute linenumber of the machting paren computed from the beginning of the buffer. (custom-declare-variable 'paren-message-show-linenumber ''sexp '(#$ . -58657) :type '(choice (const :tag "Count accros sexp" sexp) (const :tag "Absolute number" absolute)) :group 'mic-paren-matching) #@55 *Display message if no matching parenthesis is found. (custom-declare-variable 'paren-message-no-match 't '(#$ . -59515) :type '(choice (const :tag "Display message" t) (const :tag "No message" nil)) :group 'mic-paren-matching) #@123 *Non nil means truncate lines for all messages mic-paren can display. This option has only an effect with GNU Emacs 21.x! (custom-declare-variable 'paren-message-truncate-lines 't '(#$ . -59750) :type 'boolean :group 'mic-paren-matching) #@171 *Non nil means make noise if the cursor is at an unmatched parenthesis or no matching parenthesis is found. Even if nil, typing an unmatched parenthesis produces a ding. (custom-declare-variable 'paren-ding-unmatched 'nil '(#$ . -59995) :type 'boolean :group 'mic-paren-matching) #@905 *This variable controls when highlighting is done. The variable has different meaning in different versions of Emacs. In Emacs 19.29 and below: This variable is ignored. In Emacs 19.30: A value of nil will make highlighting happen immediately (this may slow down your Emacs if running on a slow system). Any non-nil value will delay highlighting for the time specified by post-command-idle-delay. In Emacs 19.31 and above: A value of nil will make highlighting happen immediately (this may slow down your Emacs if running on a slow system). If not nil, the value should be a number (possible a floating point number if your Emacs support floating point numbers). The number is the delay in seconds before mic-paren performs highlighting. If you change this variable when mic-paren is active you have to re-activate (with M-x paren-activate) mic-paren for the change to take effect. (custom-declare-variable 'paren-delay 'nil '(#$ . -60282) :type '(choice (number :tag "Delay time") (const :tag "No delay" nil)) :group 'mic-paren-matching) #@198 *Non-nil means not to change the value of blink-matching-paren when mic-paren is activated of deactivated. If nil mic-paren turns of blinking when activated and turns on blinking when deactivated. (custom-declare-variable 'paren-dont-touch-blink 'nil '(#$ . -61350) :type 'boolean :group 'mic-paren-matching) #@782 *Automatic binding of the new sexp-functions to the old bindings. If non nil mic-paren checks at load-time the keybindings for the functions `forward-sexp' and `backward-sexp' and binds the modified sexp-functions `paren-forward-sexp' and `paren-backward-sexp' to exactly these bindings if and only if matching quoted/escaped parens is turned on by `paren-toggle-matching-quoted-paren'. These new binding is done only for the buffer local-key-map, therefore if you activate the quoted matching only in some modes from within a hook only in these buffers the new binding is active and 'in all other not. If you deactivate the quoted matching feature by `paren-toggle-matching-quoted-paren' then `forward-sexp' and `backward-sexp' will be bound again to their original key-bindings! (custom-declare-variable 'paren-bind-modified-sexp-functions 't '(#$ . -61666) :type 'boolean :group 'mic-paren-matching) (byte-code "\300\301\302\303\304\305\304\306&\210\300\307\310\311\304\305\304\306&\210\300\312\313\314\304\305\304\306&\207" [custom-declare-face paren-face-match ((((class color)) (:background "turquoise")) (t (:background "gray"))) "Mic-paren mode face used for a matching paren." :group faces mic-paren-matching paren-face-mismatch ((((class color)) (:foreground "white" :background "purple")) (t (:reverse-video t))) "Mic-paren mode face used for a mismatching paren." paren-face-no-match ((((class color)) (:foreground "black" :background "yellow")) (t (:reverse-video t))) "Mic-paren mode face used for an unmatched paren."] 8) #@52 *Face to use for showing the matching parenthesis. (custom-declare-variable 'paren-match-face ''paren-face-match '(#$ . -63212) :type 'face :group 'mic-paren-matching) #@58 *Face to use when highlighting a mismatched parenthesis. (custom-declare-variable 'paren-mismatch-face ''paren-face-mismatch '(#$ . -63386) :type 'face :group 'mic-paren-matching) #@58 *Face to use when highlighting an unmatched parenthesis. (custom-declare-variable 'paren-no-match-face ''paren-face-no-match '(#$ . -63572) :type 'face :group 'mic-paren-matching) #@1293 *Non-nil causes to match properly quoted (or escaped) parens (e.g. in TeX-files, e.g. "\(x-3y + z = 7\)"). FSF-Emacs can not match quoted parens, so we must temporally deactivate the quoting until emacs has done its sexp-parsing. Therefore emacs itself does not (can not!) take into consideration if either both matched parens are quoted or none. But nevertheless we do this! Only symmetric balanced parens are matched: means either both matching parens must we quoted or none, otherwise they we will be highlighted as mismatched. This package offers also two slightly modified versions of forward-sexp (resp. backward-sexp): `paren-forward-sexp'(`paren-backward-sexp'). This versions can also jump to escaped/quoted parens. If this variable is not nil and `paren-bind-modified-sexp-functions' is set to non nil then `paren-toggle-matching-quoted-paren' will also toggle the original binding of `forward-sexp' (resp. backward-sexp) between the original functions and the modified equivalents. Do NOT set this variable directly but use `paren-toggle-matching-quoted-paren' to activate/deactivate/toggle this feature!. The best method is to do this in a mode hook, e.g.: (add-hook 'LaTeX-mode-hook (function (lambda () (paren-toggle-matching-quoted-paren 1)))) (defvar paren-match-quoted-paren nil (#$ . -63760)) (make-variable-buffer-local 'paren-match-quoted-paren) #@522 *If not nil then characters with syntax '$' (means paired delimiter) will be matched if possible (e.g. in LaTeX "$...$" is equal with "\(...\)") . Unlike to parens quoted/escaped paired delimiter will never match. Do NOT set this variable directly but use `paren-toggle-matching-paired-delimiter' to activate/deactivate/toggle this feature!. The best method is to do this in a mode hook, e.g.: (add-hook 'LaTeX-mode-hook (function (lambda () (paren-toggle-matching-paired-delimiter 1)))) (defvar paren-match-paired-delimiter nil (#$ . -65166)) (make-variable-buffer-local 'paren-match-paired-delimiter) #@1333 *Determines which context of the matching open paren will be displayed if the matching open paren is offscreen or `paren-display-message' is 'always (look at the documentation of `paren-display-message') and the matching open paren has no previous text in the same line. Meaning of the setting: - nil: Contents of the **next** not empty and not whitespace-line will be displayed. This value is useful for example in functional programming languages like (emacs)lisp. - not nil: Contents of the first **previous** not empty and not only whitespace-line will be displayed. This value is useful for example in procedural programming languages like C, C++, Java etc. Lets take a look at a short example: In languages like C++ we often have situations like if (i > VALUE) { // some code } With a value non nil the displayed opening-brace context would be "if (i > VALUE)^J{" but with nil it would be "{^J // some code" which would be in C++ lesser useful as the non nil version. (The ^J stands for a newline in the buffer). Do NOT set this variable directly but use `paren-toggle-open-paren-context' to change the value of this option!. The best method is to do this in a mode hook, e.g.: (add-hook 'c-common-mode-hook (function (lambda () (paren-toggle-open-paren-context 1)))) (defvar paren-open-paren-context-backward nil (#$ . -65810)) (byte-code "\301\302!\210\303B\304\305\306!@\305\307!@D!\210\310\311\312\"\210\310\313\314\"\210\310\315\316\"\210\310\317\320\"\210\310\321\322\"\210\310\323\324\"\210\310\325\326\"\207" [current-load-list make-variable-buffer-local paren-open-paren-context-backward mic-paren-original-keybinding-of-sexp-functions (lambda (#1=#:defconst-tmp-var) (defconst mic-paren-original-keybinding-of-sexp-functions #1#)) where-is-internal forward-sexp backward-sexp defalias mic-make-overlay make-overlay mic-delete-overlay delete-overlay mic-overlay-put overlay-put mic-cancel-timer cancel-timer mic-run-with-idle-timer run-with-idle-timer mic-char-bytes char-bytes mic-char-before char-before] 4) #@59 Works exactly like `message' but does not log the message (defalias 'mic-paren-nolog-message #[(&rest args) "\203 @\204 \303\202A\204@\202\304\305\"\303 \203*\306\307 \"\210\202.\306\303!\210) )\207" [args msg message-log-max nil apply format message "%s"] 3 (#$ . 67901)]) #@143 Overlay for the open-paren which matches the close-paren before point. When in sexp-mode this is the overlay for the expression before point. (defvar mic-paren-backw-overlay (byte-code "\300ee\"\207" [mic-make-overlay] 3) (#$ . 68199)) #@73 Overlay for the close-paren before point. (Not used when is sexp-mode.) (defvar mic-paren-point-overlay (byte-code "\300ee\"\207" [mic-make-overlay] 3) (#$ . 68441)) #@141 Overlay for the close-paren which matches the open-paren after point. When in sexp-mode this is the overlay for the expression after point. (defvar mic-paren-forw-overlay (byte-code "\300ee\"\207" [mic-make-overlay] 3) (#$ . 68614)) #@76 Idle-timer. Used only in Emacs 19.31 and above (and if paren-delay is nil) (defvar mic-paren-idle-timer nil (#$ . 68853)) #@104 Records where point was the last time mic-paren performed some action. Format is [POINT BUFFER WINDOW] (defvar mic-paren-previous-location [nil nil nil] (#$ . 68982)) #@891 Activates mic-paren parenthesis highlighting. paren-activate deactivates the paren.el and stig-paren.el packages if they are active ! The following options are available via the customize-feature: `paren-priority' `paren-overlay-priority' `paren-sexp-mode' `paren-highlight-at-point' `paren-highlight-offscreen' `paren-display-message' `paren-message-linefeed-display' `paren-message-no-match' `paren-message-show-linenumber' `paren-message-truncate-lines' `paren-ding-unmatched' `paren-delay' `paren-dont-touch-blink' `paren-match-face' `paren-mismatch-face' `paren-no-match-face' `paren-bind-modified-sexp-functions' The following options are settable via toggling functions (look at the documentation of these options for the names of these functions): `paren-match-quoted-paren' `paren-match-paired-delimiter' `paren-open-paren-context-backward' (defalias 'paren-activate #[nil "\306 \210\307\310!\203\311\310\312\"\210\311\313\312\"\210\307\300!\203!\203!\314!\210\307\301!\203/ \203/\314 !\210\307\310!\203:\311\310\315\"\210\311\313\315\"\210\311\313\316\"\210\311\317\320\"\210\n\204O\321\322\323!\203k\f\247\203c\324\f\325\326#\202\235\327\313\330\"\210\202\235\307\310!\203\213\307\331!\203\213\f\203\203\327\310\326\"\210\202\235\327\313\330\"\210\202\235\307\313!\203\231\327\313\330\"\210\202\235\332\333!\210\327\334\335\"\210\327\336\337\"\207" [show-paren-overlay show-paren-overlay-1 paren-dont-touch-blink blink-matching-paren paren-delay mic-paren-idle-timer paren-deactivate boundp post-command-idle-hook remove-hook show-paren-command-hook post-command-hook mic-delete-overlay stig-paren-command-hook stig-paren-safe-command-hook pre-command-hook stig-paren-delete-overlay nil featurep timer mic-run-with-idle-timer t mic-paren-command-idle-hook add-hook mic-paren-command-hook post-command-idle-delay error "Cannot activate mic-paren in this Emacs version" minibuffer-setup-hook mic-paren-minibuffer-setup-hook minibuffer-exit-hook mic-paren-minibuffer-exit-hook] 4 (#$ . 69156) nil]) #@48 Deactivates mic-paren parenthesis highlighting (defalias 'paren-deactivate #[nil "\306\307!\203 \310\307\311\"\210\203\312!\210\310\313\314\"\210\310\315\316\"\210\310\317\320\"\210\321 !\210\321\n!\210\321 !\210\f\2065\322\211\207" [mic-paren-idle-timer mic-paren-backw-overlay mic-paren-point-overlay mic-paren-forw-overlay paren-dont-touch-blink blink-matching-paren boundp post-command-idle-hook remove-hook mic-paren-command-idle-hook mic-cancel-timer post-command-hook mic-paren-command-hook minibuffer-setup-hook mic-paren-minibuffer-setup-hook minibuffer-exit-hook mic-paren-minibuffer-exit-hook mic-delete-overlay t] 3 (#$ . 71232) nil]) #@295 Toggle matching paired delimiter, force on with positive arg. Use this in mode-hooks to activate or deactivate paired delimiter matching. If optional second argument NO-MESSAGE is not nil then no message is displayed about the current activation state of the paired-delimiter-matching feature. (defalias 'paren-toggle-matching-paired-delimiter #[(arg &optional no-message) "\247\203 \303V\202 ?\n?\205\304\305 \203\306\202\307\"\207" [arg paren-match-paired-delimiter no-message 0 message "Matching paired delimiter is %s" "ON." "OFF."] 3 (#$ . 71893) "P"]) #@284 Toggle matching quoted parens, force on with positive arg. Use this in mode-hooks to activate or deactivate quoted paren matching. If optional second argument NO-MESSAGE is not nil then no message is displayed about the current activation state of the quoted-paren-matching feature. (defalias 'paren-toggle-matching-quoted-paren #[(arg &optional no-message) "\247\203 \306V\202 ?\n@\nA@ \203< \203<\f\203< \2032\307\f\310\"\210\307 \311\"\210\202<\307\f\312\"\210\307 \313\"\210*?\205O\314\315 \203M\316\202N\317\"\207" [arg paren-match-quoted-paren mic-paren-original-keybinding-of-sexp-functions key-backward-sexp key-forward-sexp paren-bind-modified-sexp-functions 0 local-set-key paren-forward-sexp paren-backward-sexp forward-sexp backward-sexp message "Matching quoted parens is %s" "ON." "OFF." no-message] 3 (#$ . 72470) "P"]) #@222 Toggle the determining of the context to display of the matching open-paren, force backward context with positive arg. Use this in mode-hooks. For a description of the meaning look at `paren-open-paren-context-backward'. (defalias 'paren-toggle-open-paren-context #[(arg) "\247\203 \302V\202 ?\211\207" [arg paren-open-paren-context-backward 0] 2 (#$ . 73330) "P"]) #@118 Acts like forward-sexp but can also handle quoted parens. Look at `paren-match-quoted-paren' for a detailed comment. (defalias 'paren-forward-sexp #[(&optional arg) "\204\306\307W\203\310\202\306\307W\203\306\202\310\311` Z!\312\211\312\313\314\217\210\315 !\210\f\204;\316!\202Z \203H\317\f\nZ!?\202M\317\f\nZ!\211\204W\fb\202Z\320!-\207" [arg uncharquote-diff match-check-diff charquote match-pos mismatch 1 0 2 mic-paren-uncharquote nil (byte-code "\302`\"\302\207" [arg match-pos scan-sexps] 3) ((error)) mic-paren-recharquote buffer-end mic-paren-is-following-char-quoted forward-sexp] 4 (#$ . 73709) "^p"]) (put 'paren-forward-sexp 'CUA 'move) #@120 Acts like backward-sexp but can also matching quoted parens. Look at `paren-match-quoted-paren' for a detailed comment (defalias 'paren-backward-sexp #[(&optional arg) "\204\301\302[!\207" [arg 1 paren-forward-sexp] 2 (#$ . 74396) "^p"]) (put 'paren-backward-sexp 'CUA 'move) (defalias 'mic-paren-command-hook #[nil "\206 \301 \206 \302\303\304\217\207" [executing-kbd-macro input-pending-p paren-error (mic-paren-highlight) ((error (byte-code "\301\302 !?\205\f\303\304\"\207" [paren-error window-minibuffer-p selected-window message "mic-paren catched error (please report): %s"] 3)))] 3]) (defalias 'mic-paren-command-idle-hook #[nil "\300\301\302\217\207" [paren-error (mic-paren-highlight) ((error (byte-code "\301\302 !?\205\f\303\304\"\207" [paren-error window-minibuffer-p selected-window message "mic-paren catched error (please report): %s"] 3)))] 3]) (defalias 'mic-paren-overlay-set '(macro . #[(overlay face) "\302\303\304 F\303\305BBE\207" [overlay face progn mic-overlay-put 'face ('priority paren-overlay-priority)] 5])) (defalias 'mic-paren-minibuffer-setup-hook #[nil "\300\301\302\"\207" [paren-toggle-matching-quoted-paren 1 t] 3]) (defalias 'mic-paren-minibuffer-exit-hook #[nil "\300\301\302\"\207" [paren-toggle-matching-quoted-paren -1 t] 3]) #@88 The main-function of mic-paren. Does all highlighting, dinging, messages, cleaning-up. (defalias 'mic-paren-highlight #[nil "\306!\210\306 !\210\306\n!\210hz\307=\203,gz\310=\203 \311=\204,\f\204L\312`\313Z!\203L \203\371hz\314=\203\371gz\314=\203D \311=\204\371\312`\313Z!\204\371\315\211\211/0 \316`\313Z!/\212\2141\203le`1Z]d}\210\315\317\320\217\210*\321h!0hz\314=\203\201h0\322/!\210 \203\2650?\206\2560 fU?\206\256/\203\251\312 S!?\202\256\312 S!\323 !\205\271\324 !232\204\3144\204\3145\203d\3253!\203\326 `\"3\203\357\327\n\3306#\210\327\n\3317#\210\202d\327\n\3308#\210\327\n\3317#\210\202d\326 \211\332 f!\\\"9\203\326`\332h!Z`\"3\203C\327\n\3306#\210\327\n\3317#\2109\203d\327 \3306#\210\327 \3317#\210\202d\327\n\3308#\210\327\n\3317#\2109\203d\327 \3308#\210\327 \3317#\210:\333=\204\2372\203w:\334=\203\237\335\336 !\204\237;\204\237\337 \203\237<=\340\3413\203\227\342\202\230\343\344 !#\210)3\203\261>\203\261\337 \203\261\345 \210*\202\370\326``\332h!Z\"\327\n\330?#\210\327\n\3317#\210@\203\346\335\336 !\204\346;\204\346\337 \203\346\340\346!\210@\203\370>\203\370\337 \203\370\345 \210+gz\310=\203hz\307=\203  \347=\204\f\2047\312`S!\2037 \203\264gz\314=\203\264hz\314=\2030 \347=\204\264\312`S!\204\264\315\211\211/0'\316`S!/\212\2141\203Ved`1\\^}\210\315\350\351\217\210*\321g!0gz\314=\203kg0\322/!\210'\203p0?\206\2330\352'!U?\206\233/\203\225\312'\313Z!?\202\233\312'\313Z!\323'!\205\246\324'!232\204\2714\204\2715\203\3253!\203\355\326`'\"3\203\334\327\3306#\210\327\3317#\210\202\327\3308#\210\327\3317#\210\202\326'\332\352'!!Z'\"3\203\327\3306#\210\327\3317#\210\202\327\3308#\210\327\3317#\210:\333=\204Z2\2032:\334=\203Z\335\336 !\204Z;\204Z\337 \203Z<=\340\3413\203R\342\202S\343\353'!#\210)3\203l\337 \203l>\203l\345 \210*\202\263\326``\332g!\\\"\327\330?#\210\327\3317#\210@\203\241\335\336 !\204\241;\204\241\337 \203\241\340\354!\210@\203\263>\203\263\337 \203\263\345 \210+\335\336 !\206\315A\355`I\210A\356pI\210A\313\336 I\207" [mic-paren-forw-overlay mic-paren-point-overlay mic-paren-backw-overlay paren-priority paren-match-quoted-paren paren-match-paired-delimiter mic-delete-overlay 41 40 open mic-paren-is-following-char-quoted 2 36 nil mic-paren-uncharquote (byte-code "\301`\302\"\301\207" [open scan-sexps -1] 3) ((error)) matching-paren mic-paren-recharquote pos-visible-in-window-p mic-paren-horizontal-pos-visible-p mic-paren-sexp-mode-p mic-make-overlay mic-overlay-put face priority mic-char-bytes never always window-minibuffer-p selected-window mic-paren-is-new-location mic-paren-nolog-message "%s %s" "MISMATCH:" "Matches" mic-paren-get-matching-open-text ding "No opening parenthesis found" close (byte-code "\301`\302\"\301\207" [close scan-sexps 1] 3) ((error)) mic-char-before mic-paren-get-matching-close-text "No closing parenthesis found" 0 1 charquote matched-paren blink-matching-paren-distance visible mismatch paren-highlight-offscreen paren-sexp-mode paren-mismatch-face paren-overlay-priority paren-match-face paren-highlight-at-point paren-display-message isearch-mode paren-message-truncate-lines message-truncate-lines paren-ding-unmatched paren-no-match-face paren-message-no-match mic-paren-previous-location] 5 (#$ . 75683)]) #@67 Check if we must highlight the whole sexp and return t if we must (defalias 'mic-paren-sexp-mode-p #[(mismatch) "\302=\203\302\207\303=\203\303\207\304=\203 ?\207\301=\205 \207" [paren-sexp-mode mismatch nil t match] 2 (#$ . 79133)]) #@105 Returns non nil if the MATCH-POS is horizontal visible otherwise nil (in case of horizontal scrolling). (defalias 'mic-paren-horizontal-pos-visible-p #[(match-pos) "\302 \212 b\210i\303!Z\304Y\205i\303!Z\305!W*\207" [window match-pos selected-window window-hscroll 0 window-width] 3 (#$ . 79386)]) #@54 Returns a string with the context around OPEN-paren. (defalias 'mic-paren-get-matching-open-text #[(open) "\306=\203\n`\202 e\212\nb\210\212\307\310x\210n)\2046\311 \210\312\313`\nT{\306=\203-\314\202.\315\316 \n\"$\202m\310\f\204M\317u\210\320\310w\210\310\210\n`{\202Y\320\310x\210\311 \210`\nT{\312\321 \306=\203f\314\202g\315\316 \n\"$))\322\323 \"\203\201\324\310\325 $\202o *\207" [paren-message-show-linenumber loc open paren-context-string paren-open-paren-context-backward str sexp " " nil beginning-of-line format "%s... [%s%d-]" "-" "" count-lines 1 "\n " "%s [%s%d]" string-match "[\n]" replace-match t paren-message-linefeed-display] 7 (#$ . 79696)]) #@55 Returns a string with the context around CLOSE-paren. (defalias 'mic-paren-get-matching-close-text #[(close) "\305=\203\n`\202 e\212\nb\210\306u\210\307\310x\210\311 \210\312\313`\n{\nb\210\314\315!\203,\316\202-\317\305=\2037\320\2028\316\321 \n\"%)\322\323 \"\203P\324\f\310\325 $\202? *\207" [paren-message-show-linenumber loc close str paren-message-linefeed-display sexp -1 "\n " nil beginning-of-line format "%s%s [%s%d]" looking-at "[ ]*$" "" "..." "+" count-lines string-match "[\n]" replace-match t] 8 (#$ . 80392)]) #@186 Returns t if the points location is not the same as stored in `mic-paren-previous-location', nil otherwise. The variable `mic-paren-previous-location' is set by `mic-paren-highlight'. (defalias 'mic-paren-is-new-location #[nil "`\301H=\205p\302H=\205\303 \304H=?\207" [mic-paren-previous-location 0 1 selected-window 2] 3 (#$ . 80940)]) #@78 returns true if character at point PNT escapes or quotes the following char. (defalias 'mic-paren-is-following-char-quoted #[(pnt) "\302 eY\203\" fz\303=\204 fz\304=\203\"T S\211\202\305\246\302=?\205,\306)\207" [n pnt 0 92 47 2 t] 3 (#$ . 81291)]) #@240 if the syntax of character at point PNT is escape or quote and if the character is not escaped or quoted itself then its syntax will be modified to punctuation and multiple values ( "") will be returned; otherwise nil. (defalias 'mic-paren-uncharquote #[(pnt) "\304\211\neW?\205%\nf\211z \205%\305\n!\205%\306 \307\"\210 \310!D*\207" [cs c pnt paren-match-quoted-paren nil mic-paren-is-following-char-quoted modify-syntax-entry "." char-to-string] 4 (#$ . 81559)]) #@188 CHARQUOTE is a 2-element-list: car is a character and its cadr is a syntaxstring . The syntax of character will be set to syntax . If CHARQUOTE is nil nothing will be done. (defalias 'mic-paren-recharquote #[(charquote) "\205 \301@A@\"\207" [charquote modify-syntax-entry] 3 (#$ . 82059)]) (byte-code "\306\307!\210\306\310!\210\311\312\211\313\312\314\315\314\316 \210\317B\320\317!\204.\321\317\322\"\210\323B\320\323!\204?\321\323\324\"\210\314\207" [paren-priority paren-highlight-at-point paren-highlight-offscreen paren-display-message paren-message-no-match paren-ding-unmatched provide mic-paren paren both t only nil 0.1 paren-activate paren-hilight-mode default-boundp set-default 1 paren-hilight-modes [nil (paren-face-match) (bold . t) (paren-face-match . t)] paren-delay paren-dont-touch-blink current-load-list] 4) #@64 Switch to the previous paren-hilight mode or to the ARGth one. (defalias 'prev-paren-hilight-mode #[(arg) "\303\206 \304 S\nG\"!\207" [arg paren-hilight-mode paren-hilight-modes set-paren-hilight-mode mod] 4 (#$ . 82932) "P"]) #@60 Switch to the next paren-hilight mode or to the ARGth one. (defalias 'next-paren-hilight-mode #[(arg) "\303\206 \304 T\nG\"!\207" [arg paren-hilight-mode paren-hilight-modes set-paren-hilight-mode mod] 4 (#$ . 83167) "P"]) (defalias 'set-paren-hilight-mode #[(n) " GS^ \n\234\211\203 @ A\306 \210\202\307 \210\310\311\n\")\207" [n paren-hilight-modes paren-hilight-mode mode paren-match-face paren-sexp-mode paren-activate paren-deactivate message "Paren mode #%s"] 4]) (byte-code "\300\301\302\303#\210\304\305\306\"\210\304\307\310\"\210\304\311\312\"\207" [define-keys global ([(control 40)] prev-paren-hilight-mode) ([(control 41)] next-paren-hilight-mode) simple-make-face yellow/blue3 paren-face-match yellow/red3 paren-face-mismatch yellow/green3 paren-face-no-match] 4) #@841 *A function to determine window configurations. This function is called whenever a new frame is made (and on the initial frame), and passed that frame as its single input argument. It should return a plist of (option: value ...) that determine the configuration of this frame. The known options are: - `size:' the value should be a list of width/height in characters to be used for the window (defaults to `eli-size') - `w:' and `h:' can be used to set the width and height individually - `pos:' the value should be an x/y position for the window (defaults to `eli-window-pos') - `x:' and `y:' can be used to set the x and y position individually - `fn:' the value should be a string naming a default font to use (defaults to `eli-font') If it is bound to nil (the default) or if `window-system' returns nil, then it is not used. (defvar window-configurations nil (#$ . -83963)) (defalias 'win-init-merge-props '(macro . #[(props var) "\302\303\304D\305 \306\307 EEE\305 \310 EEE\207" [props var progn dolist prop setq assq-delete-all (car prop) append] 8])) (byte-code "\306 \307\310\nBB\n\311 !\210\312\f\203\313\202\314!\210\315\f\203&\313\202'\316BB\317\320!\203=\320 \203:\313\202;\314!\210\321 \203F\313\202G\316BB\313\316\322\323\307\324\307$\210\317\325!\203n\325 \326>\203k \202l\327!\210!\204x\330\331\307\"\210\"\203\206#\204\206\332\314!\210\307$\211%\203\247%@$\333$@&\"&%A\211%\204\220*\334&\"&\307$\211'\203\320'@$\333$@(\"('A\211'\204\271*\334(\"(\335 \210+\307\207" [props frame eli-color-style frame-background-mode eli-use-menubar eli-use-toolbar selected-frame nil background-mode frame-set-background-mode menu-bar-mode 1 -1 menu-bar-lines 0 functionp tool-bar-mode tool-bar-lines set-face-attribute tool-bar :box set-scroll-bar-mode (left right nil) left set-default mode-line-format blink-cursor-mode assq-delete-all append frame-notice-user-settings tool-bar-button-relief tool-bar-button-margin eli-use-scrollbar eli-use-modeline window-system eli-blink-cursor prop #:--cl-dolist-temp-- default-frame-alist #:--cl-dolist-temp-- initial-frame-alist] 5) (defalias 'win-init-apply-conf #[(&rest frame) "@\206\306 \307 \205 \205 ! @ \211A@)@\211A@)\n\2052\n\310\211  \203\323 @ \211A@) \211AA) \311\312\"\203r@\211A@)\202>\311\313\"\203\200\202>\311\314\"\203\217\202>\311\315\"\203\247@\211A@)\202>\311\316\"\203\265\202>\311\317\"\203\304\202>\311\320\"\203>\202>+\203\342\321!\210\322\323!\210\f\203\371\203\371\324\f#\210\322\323!\210\202\f\203 \325\f\"\210\322\323!\210\202\203\326\f\"\210\322\323!\210 \204 \2052\327 \206'\330\206-\330#\210\322\323!.\207" [frame window-configurations conf eli-size w x selected-frame window-system nil memql (size:) (w:) (h:) (pos:) (x:) (y:) (fn:) set-frame-font redisplay t set-frame-size set-frame-width set-frame-height set-frame-position 0 h eli-window-pos y eli-font fn v k p] 5 nil nil]) (byte-code "\302B\303\304\305\217\210\306\307\310\"\210\311\312!\210\313\303\207" [after-make-frame-functions shift-select-mode (lambda (f) (run-with-idle-timer 0.2 nil `(lambda nil (win-init-apply-conf ,f)))) nil (win-init-apply-conf) ((error)) add-hook emacs-startup-hook win-init-apply-conf transient-mark-mode 1 t] 3) #@39 Display the EliEmacs Quick Reference. (defalias 'eliemacs-quickref #[nil "\302P\303 !\203\304 !\202\305\306 \")\207" [eli-dir qr "QuickRef.txt" file-readable-p view-file error "Couldn't find the file (%S)"] 3 (#$ . 87370) nil]) #@43 Sort a whole buffer - using `sort-lines'. (defalias 'sort-buffer #[nil "\300\301ed#\207" [sort-lines nil] 4 (#$ . 87610) nil]) #@205 *Delete windows when `kill-save-buffer' is used. If this is non-nil, then `kill-save-buffer' will also delete the corresponding windows. This is inverted by `kill-save-buffer' when called with a prefix. (defvar kill-save-buffer-delete-windows t (#$ . -87744)) #@174 Save the current buffer (if needed) and then kill it. Also, delete its windows according to `kill-save-buffer-delete-windows'. A prefix argument ARG reverses this behavior. (defalias 'kill-save-buffer #[(arg) "\n\203 ?\304 \203\305\304 !\204\306 \210p \203\"\307 !\210\310 !*\207" [kill-save-buffer-delete-windows del arg buf buffer-file-name file-directory-p save-buffer delete-windows-on kill-buffer] 2 (#$ . 88012) "P"]) #@52 Same as `other-window' but goes back when shifted. (defalias 'eli-other-window #[(arg &optional all-frames) "\303\203\n [\202 \n\"\207" [this-command-keys-shift-translated arg all-frames other-window] 3 (#$ . 88453) "p"]) (defalias 'delete-word #[(arg) "`v\210`|\207" [arg] 2 nil "p"]) (defalias 'delete-sexp #[(arg) "`\301!\210`|\207" [arg forward-sexp] 3 nil "p"]) (defalias 'backward-delete-word #[(arg) "\301[!\207" [arg delete-word] 2 nil "p"]) (defalias 'backward-delete-sexp #[(arg) "\301[!\207" [arg delete-sexp] 2 nil "p"]) #@77 Same as `kill-region', but does nothing with inactive mark or empty region. (defalias 'eli-kill-region #[(beg end) "\205 \nU?\205\304\305 \n\"\207" [mark-active beg end last-command nil kill-region] 3 (#$ . 89000) "r"]) #@194 Toggle `truncate-lines', `line-move-visual', and `visual-line-mode'. Use `line-move-visual' and `visual-line-mode' only if used successive times. With a prefix argument go back to the default. (defalias 'eli-toggle-lines-mode #[nil "\203\306\202! \203\n\203\307\202!\310\202!\n\203 \311\202!\312\f =\313\314\315\"\203:\312\202h\203R >\211A@)\206h@\202h @=\203e\211A@)\202h@\316\307=\203v\317\202w\320!\210\306=\321>\322>\212\323y\210\324\323!\210\325\326 !\210)\327\330\236\211A@)\"-\207" [truncate-lines word-wrap line-move-visual cur this-command last-command truncate vwords words vlines wrapped ((wrapped "wrapped lines") (truncate "truncated lines") (vlines "wrapped lines with visual movement") (vwords "word-wrapped lines with visual movement") (words "word-wrapped lines without visual movement")) mapcar car visual-line-mode 1 -1 (vwords words) (vlines vwords) 0 sit-for redraw-frame selected-frame message "Using %s." repeated disps order current-prefix-arg x next] 5 (#$ . 89233) nil]) #@74 Like `yank', but pops the value out of the `kill-ring-yank-pointer' top. (defalias 'eli-yank-really-pop #[(&optional arg) "\304!\210 \304=\203(\nA\203$\n\211\211A@)\240\210\n\211\211AA)\241\210\202(\n\305\240\210\306\207" [arg this-command kill-ring-yank-pointer x yank "" nil] 2 (#$ . 90303) "*p"]) (byte-code "\301\302\303\304#\210\305B\306\305!\204\307\305\310\"\210\311B\306\311!\204$\307\311\310\"\210\310\207" [current-load-list put eli-yank-really-pop delete-selection t eli-track-eol default-boundp set-default nil eli-line-movement-without-dings] 4) #@74 Like `previous-line', but ding only if cannot move + do my eol tracking. (defalias 'eli-previous-line #[(&optional arg try-vscroll) "\204\305o\203 \2045\306 \210\2025`\307[\310\311 $\210\n`U\2034eb\210 \2044\n`U\2034\306 \210)\312\311\207" [arg eli-line-movement-without-dings p try-vscroll this-command 1 ding line-move t nil previous-line] 5 (#$ . 90881) "^p\np"]) (put 'eli-previous-line 'CUA 'move) #@70 Like `next-line', but ding only if cannot move + do my eol tracking. (defalias 'eli-next-line #[(&optional arg try-vscroll) "\204\305m\203 \2044\306 \210\2024`\307\310\311 $\210\n`U\2033db\210 \2043\n`U\2033\306 \210)\312\311\207" [arg eli-line-movement-without-dings p try-vscroll this-command 1 ding line-move t nil next-line] 5 (#$ . 91304) "^p\np"]) (put 'eli-next-line 'CUA 'move) #@75 Like `end-of-line', but makes further up/down movements stick to the eol. (defalias 'eli-end-of-line #[(&optional arg) "\204\304 \203\305!\210\202\210\306\307 \310 _!\311\211\207" [arg line-move-visual temporary-goal-column this-command 1 end-of-visual-line float window-width frame-char-width next-line] 3 (#$ . 91710) "^p"]) (put 'eli-end-of-line 'CUA 'move) #@27 Like `beginning-of-line'. (defalias 'eli-beginning-of-line #[(&optional arg) "\204\302 \203\303!\207\304!\207" [arg line-move-visual 1 beginning-of-visual-line beginning-of-line] 2 (#$ . 92090) "^p"]) (put 'eli-beginning-of-line 'CUA 'move) #@47 Same as (transpose-chars ARG), but backwards. (defalias 'transpose-chars-backward #[(arg) "\301\302![!\207" [arg transpose-chars prefix-numeric-value] 3 (#$ . 92345) "*P"]) #@47 Same as (transpose-words ARG), but backwards. (defalias 'transpose-words-backward #[(arg) "\301\302![!\207" [arg transpose-words prefix-numeric-value] 3 (#$ . 92525) "*P"]) #@47 Same as (transpose-lines ARG), but backwards. (defalias 'transpose-lines-backward #[(arg) "\301\302![!\207" [arg transpose-lines prefix-numeric-value] 3 (#$ . 92705) "*P"]) #@47 Same as (transpose-sexps ARG), but backwards. (defalias 'transpose-sexps-backward #[(arg) "\301\302![!\207" [arg transpose-sexps prefix-numeric-value] 3 (#$ . 92885) "*P"]) #@53 Like `join-line', but with a default argument of 1. (defalias 'eli-join-line #[(&optional arg) "\302!?\205F\212\303y\210`)\212\304y\210`S){\305\303W?\205\304!\210n\203+ c\210\2024\306\307!\2034\310 \210\211\303W\203?\304\202@\311\\)\202\207" [arg s zerop 0 1 join-line looking-at "[ ]+$" delete-horizontal-space -1] 3 (#$ . 93065) "*p"]) #@140 Like `next-buffer', but not cyclic. A prefix argument determines how many buffers to skip (default is 1), if negative, count from the end. (defalias 'eli-next-buffer-acyclic #[(n) "\306\232?\205\220\307 \203\306W\203 \237\202 )\310\206!\311!Sp\312\313\314\"\313\n\204\202 \203\202 @\f=?\205f\315!\205f \203T !\205f\316!\306H\317=?\205f\320\321\"?\211\203{\322!\203x\202{S A*\202.\n\203\214\323\n!\202\217\324\325!-\207" [n bs found pred curbuf buffers 0 buffer-list abs 1 frame-parameter nil buffer-predicate buffer-live-p buffer-name 32 get-buffer-window visible zerop switch-to-buffer error "Not enough buffers" buf good] 7 (#$ . 93426) "p"]) #@73 Like `write-file', but with a prefix argument delete the original file. (defalias 'eli-write-or-move-file #[(new) "\301 \205 \305\f\306\"\210\n\205,\301  \205,\f\205, \f\232?\205,\307 !\210\310\311\f\"*\207" [current-prefix-arg buffer-file-name movep old new write-file t delete-file message "Moved to %s"] 3 (#$ . 94129) (let ((prompt (if (and current-prefix-arg buffer-file-name) "Move to file: " "Write file: "))) (list (if buffer-file-name (read-file-name prompt nil nil nil nil) (read-file-name prompt default-directory (expand-file-name (file-name-nondirectory (buffer-name)) default-directory) nil nil))))]) #@70 Like `eval-last-sexp' or `eval-region', depending on an active mark. (defalias 'eli-eval-last-sexp-or-region #[nil "\203\302\202 \303\304 !\207" [mark-active this-command eval-region eval-last-sexp call-interactively] 2 (#$ . 94760) nil]) #@75 Similar to `compare-windows' but for last two buffers instead of windows. (defalias 'eli-compare-two-buffers #[(ignore-whitespace) "\305\211\211\211\211\306\213\210 q\210b-\207" [p b2 b1 w2 w1 nil ((byte-code "\306 \210\307 \310\307 !p\311 !\210\312\313!\311!\210\314\f!\210\311 !\210`\311!\207" [w1 w2 b1 b2 ignore-whitespace p split-window-vertically selected-window next-window select-window switch-to-buffer nil compare-windows] 2))] 5 (#$ . 95010) "P"]) #@74 Like `term', but runs a shell immediately (prefix arg: ask like `term'). (defalias 'eli-term #[nil "\203\302\303!\207\303\304\305!\203\305J\206% \206%\306\307!\206%\306\310!\206%\311!\207" [current-prefix-arg shell-file-name call-interactively term boundp explicit-shell-file-name getenv "ESHELL" "SHELL" "/bin/sh"] 3 (#$ . 95488) nil]) (byte-code "\301B\302\301!\204\303\301\304\"\210\305\301!\207" [current-load-list buffer-local-keymap default-boundp set-default nil make-variable-buffer-local] 3) #@73 Same as `local-set-key' but ensures the current buffer has its own map. (defalias 'buffer-local-set-key #[(key command) "\204\303 \304 \203\305\304 \"\210\306!\210\307\310\311\"\210\312 \n\"\207" [buffer-local-keymap key command make-sparse-keymap current-local-map set-keymap-parent use-local-map message "NOTE: buffer-local keymap in effect, %s" "local-key operations will use it from now" local-set-key] 3 (#$ . 96008) "KSet key buffer-locally: \nCSet key %s locally to command: "]) #@69 Undoes all bindings that `buffer-local-set-key' did in this buffer. (defalias 'buffer-local-unset-all #[nil "\301\204 \302\202\303\304!!\210\305\306!\207" [buffer-local-keymap message "Wasn't using a local map." use-local-map keymap-parent nil "Removed `buffer-local' bindings."] 4 (#$ . 96508) nil]) (byte-code "\301B\302\301!\204\303\301\304\"\210\304\207" [current-load-list eli-insert-pair-last-position default-boundp set-default nil] 3) #@449 Similar to `insert-pair', except better. - default is to insert the character in both places - negative prefix argument will use words instead of sexprs - always inserts spaces around the new pair - calling this a second time will use the previous call's location - always deactivate the mark and put the cursor in the beginning - wraps pair around the next *sexprs*, skipping comments and newlines - more cases for spaces (comments, symbols, etc) (defalias 'eli-insert-pair #[(&optional arg open close) "\203 \204:\306\n!\n\f\236\206 \f\236\211\2035\307 8\203+ A@\307 8\2029 @ A@\2029  *\310\211\203H\311!\202I\312=\203i\203i@A\202\266\313 \203y\314 \315 \202\266\312V\203\226\316\317!\210\316\320!\210`\316!\210`\202\266\312W\203\260\317v\210\320v\210`v\210`\202\266``b\210 c\210\203\327m\204\327l\204\327gzz\321B>\203\327\322c\210b\210\203\377o\204\377n\204\377hz z\323B>\203\377\322c\210TTc\210TTB\211+\207" [open close last-command-event ch insert-pair-alist pair event-basic-type 2 nil prefix-numeric-value 0 use-region-p region-beginning region-end forward-sexp 1 -1 (119 95 34 39 60) " " (119 95 34 60) arg end beg last-command this-command eli-insert-pair-last-position parens-require-spaces] 5 (#$ . 96968) "P"]) #@42 *Counter value for the counter commands. (defvar counter-value 1 (#$ . -98314)) #@40 *Counter format spec (a format string) (defvar counter-format nil (#$ . -98400)) #@40 `nil' on the first use of the counter. (defvar counter-inserted nil (#$ . 98487)) (byte-code "\301B\302\301!\204\303\301\304\"\210\305B\302\305!\204\303\305\306\"\210\304\207" [current-load-list counter-last-position default-boundp set-default nil counter-last-increment 1] 3) #@212 Set the counter to the INITIAL argument value. Use with no arguments to be prompted for a value -- and when you do that you can enter a value with spaces or zero padding, which will be used by `counter-insert'. (defalias 'counter-set #[(initial) "\305\211\250\204G;\204\306\307!\310\311\"\204 \312\313\"\210\314\315\"\211\316\232?\205>\317\320\f\321H\322=\203:\323\202;\316G#)\324\314\325\"!\326\327 \n\203U\330\n\331Q\202V\316#\207" [initial counter-value counter-format counter-inserted pad nil read-from-minibuffer "New value (optional padding): " string-match "\\`\\( *\\|0*\\)\\(\\(?:[1-9][0-9]*\\)?[0-9]\\)\\'" error "Bad initial value: %s." match-string 1 "" format "%%%s%dd" 0 48 "0" string-to-number 2 message "Counter set to %s%s." " (format: " ")"] 7 (#$ . 98779) "P"]) #@67 Increments the counter by the INC argument value, if given, or 1. (defalias 'counter-increment #[(inc) "\303=\203\f [\202\247\204 \n\\\304\305\n#\207" [inc counter-last-increment counter-value - message "Macro counter incremented by %s to %s"] 4 (#$ . 99590) "P"]) #@185 Increment the counter value and insert it (using the current format, if any). Increment by INC, defaults to 1 or to a last explicit increment. (Note: does not increment on first use.) (defalias 'counter-insert #[(inc) " =\203\n\203`\n|\210` \203\306\f!\210\307 \206\310\n\"c\210\311\211\207" [this-command last-command counter-last-position counter-inserted inc counter-format counter-increment format "%d" t counter-value] 3 (#$ . 99876) "*P"]) (byte-code "\301\302\303\304#\210\305B\306\305!\204\307\305\310\"\210\310\207" [current-load-list put counter-insert delete-selection t eli-comment-line-last-col default-boundp set-default nil] 4) #@63 Toggle a comment on current N line(s) (disable line by line). (defalias 'eli-toggle-comment-line #[(n) "\203w \203 \306\232\203\306\202 \307\310 \"\203 \202 \311 P\307\312\"\203,\202CG\313U\203@\n\306\232\203@\211\311Q\202C\311P\314 !\314\n!\315=\211\205X\205i\203h\316\202i\317\320\321\215\210\211.\207\322\323!\207" [comment-start comment-end end start qstart qend "" string-match "^ " " " " $" 1 regexp-quote eli-toggle-comment-line comment uncomment done (byte-code "\306 \210S\211\307Y\203}m\203\310\311\312\"\210\313\312w\210l\204w \2041\314\n\315 \316R!\203/\317\2020\320i \203E \fW\203E\321 \322\"\210\202M \320=\203M\f) \320=\203bc\210\312\210c\210\202w \317=\203w\314\n\315 \316R!\203w\323\324\322\"\210\325y\210\202\312\207" [n mode qstart qend cur col beginning-of-line 0 throw done nil " " looking-at "\\(.*\\)" "$" uncomment comment move-to-column t replace-match "\\1" 1 start end] 5) message "Comments not availavle for this mode" last-command again eli-comment-line-last-col col mode] 4 (#$ . 100541) "p"]) #@253 This is similar to `backward-delete-char-untabify', except when activated without arguments at the first non-whitespace character of a line (or at an eol of a whitespace line) - in this case it will delete indentation up to the last indentation level. (defalias 'eli-backward-delete-char-unindent #[(arg &optional killp) "` \204 n\204 \305\306 !\204 \212\307 \210\310\311w\210`U)\204'\312\n \"\202ti\311\212\313y\210 \204So\204S\310\311w\210l\204Mi\fW\203M\fiZ\211\2020\313y\210\202/o\203Y\f) \203o \314V\205s\312\315!\210 S\211\202_\312\n \"*)\207" [p killp arg delnum col window-minibuffer-p selected-window beginning-of-line " " nil backward-delete-char-untabify -1 0 1] 4 (#$ . 101647) "*p\nP"]) (put 'eli-backward-delete-char-unindent 'delete-selection t) (defalias 'eli-use-larger-font #[(n) "\303=\203\n\304\202\204\305\202\306\307\310\"\211\\\311\307\312\310\n$\210\313\314 \315V\2031\316\2022\317\n%+\207" [n size1 size2 - -10 10 face-attribute default :height set-face-attribute nil message "Font size changed: %S --[%s%S]--> %S" 0 "+" ""] 7 nil "P"]) (defalias 'eli-use-smaller-font #[(n) "\301=\203\n\302\202\204\303\202\304[!)\207" [n - -10 10 eli-use-larger-font] 2 nil "P"]) (byte-code "\300\301\302\"\210\303\304\305\"\207" [add-hook find-file-hooks whitespace-mode eval-after-load "whitespace" (setcar (cdr (assq 'whitespace-mode minor-mode-alist)) nil)] 3) #@251 *Hide the local variables sections of a file. This is used in the function `hide-local-variable-section' in `find-file' hook. The purpose of this variable is to be set in the local variables section of a file when you want this section to be hidden. (defvar hide-local-variable-section nil (#$ . -103082)) (make-variable-buffer-local 'hide-local-variable-section) #@71 See the documentation for the variable `hide-local-variable-section'. (defalias 'hide-local-variable-section #[nil "\205#\212db\210\302\303d\304Ze]\305#\210\306\307\310\311#\210\312y\210`S)e })\207" [hide-local-variable-section locals-start search-backward "\n\f" 3000 move search-forward "Local Variables:" nil t 0] 4 (#$ . 103452)]) (byte-code "\301\302\303\"\210\304\303\305\306#\210\307\310!\204\311\310\312\"\210\313B\314\313!\204%\315\313\316\"\210\316\207" [current-load-list add-hook find-file-hooks hide-local-variable-section put safe-local-variable booleanp fboundp complete defalias #[(&optional arg) "\301\302!\210\303 \210\304!\207" [arg require completion dynamic-completion-mode complete] 2 "Wrapper for complete, will initialize completion when called" "*p"] eli-View-scroll-page-lines default-boundp set-default nil] 4) #@172 Like `View-scroll-page-forward', but with a prefix argument determines the number of lines to use for future calls. Use a `C-u' prefix to go back to full page scrolling. (defalias 'eli-View-scroll-page-forward #[(&optional lines) "\302=\203\n\303\304!\207\203\250\205\305 !\207" [lines eli-View-scroll-page-lines - eli-View-scroll-page-backward nil View-scroll-page-forward] 2 (#$ . 104306) "P"]) #@173 Like `View-scroll-page-backward', but with a prefix argument determines the number of lines to use for future calls. Use a `C-u' prefix to go back to full page scrolling. (defalias 'eli-View-scroll-page-backward #[(&optional lines) "\302=\203\n\303\304!\207\203\250\205\305 !\207" [lines eli-View-scroll-page-lines - eli-View-scroll-page-forward nil View-scroll-page-backward] 2 (#$ . 104721) "P"]) (byte-code "\301\302\303\"\210\304B\305\304!\204\306\304\307\"\210\310B\305\310!\204#\306\310\307\"\210\307\207" [current-load-list add-hook shell-mode-hook #[nil "\300p!\207" [switch-to-buffer] 2] eli-last-shell default-boundp set-default nil eli-last-shells] 3) #@610 Similar to `shell' but extended as follows: - a positive numeric argument means jump to that shell window, with 1 being the default "*shell*", 2 is "*shell*<2>" etc, - a 0 numeric argument will jump to a new shell window (the next one), without asking about the name, - no argument means jump to the last visited shell window, if it's dead the one visited before that, etc, - with a `C-u' prefix, just call `shell', - it switches to the buffer as usual, in the current window: no switching to a half-screen, and preserve the buffer visit history so there's no inconsistent buffer switching later. (defalias 'eli-shell #[(arg) "\303=\203\f\304\305!\202P\306=\203\305\202P\250\203(\306V\203(\307\310\"\202P\204O\311 \204J\n\203J\312\n@!\203D\n@\211\202/\nA\202. )\202P\311\313\314\213!)\207" [arg s eli-last-shells 0 generate-new-buffer-name "*shell*" 1 format "*shell*<%S>" nil get-buffer switch-to-buffer ((byte-code "\203\301!\207\302\301!\207" [s shell call-interactively] 2))] 4 (#$ . 105409) "P"]) (defalias 'eli-track-last-shell #[nil "\302 =?\205\302 \211\303 \"B\211\207" [eli-last-shell eli-last-shells buffer-name remove] 5]) (add-hook 'shell-mode-hook #[nil "\300\301\302\303\304$\207" [add-hook post-command-hook eli-track-last-shell nil t] 5]) #@216 Similar to `shell-command' but sets environment variables $f, $F, and $d to the current file's name, fullname,and directory name (if the current buffer is associated with a file). Also, use the region if it is on. (defalias 'eli-shell-command #[nil "\303\304 \203\"\305\306\307\304 !\"\210\305\310\304 \"\210\305\311\312\304 !\"\210\202'\305\311\n\"\210\313\314 \2031\315\2022\316!*\207" [process-environment max-mini-window-height default-directory 1 buffer-file-name setenv "f" file-name-nondirectory "F" "d" file-name-directory call-interactively use-region-p shell-command-on-region shell-command] 4 (#$ . 106719) nil]) #@45 Send everything written so far immediately. (defalias 'comint-send-now #[nil "\306p!\211\204\307\310!\202G\311!db\210 `{ \203! `|\210\312\313\n\"\210\f \314\223\210 `\314\223\210\311!`\314\223\210\314\211\223\210\315\n\"\210\312\316\317\"*)\207" [proc pmark input comint-process-echoes comint-last-input-start comint-last-input-end get-buffer-process error "Current buffer has no process" process-mark run-hook-with-args comint-input-filter-functions nil comint-send-string comint-output-filter-functions "" comint-accum-marker] 4 (#$ . 107357) nil]) #@160 Read a character the same way as quoted-insert does, then send it immediately to the process using `comint-send-now' (so previous input must be sent as well). (defalias 'comint-quoted-send #[nil "\300\301!\210\302\303 !\210\304 \207" [message "Enter a character..." insert-and-inherit read-quoted-char comint-send-now] 2 (#$ . 107927) nil]) (defalias 'comint-previous-matching-input-from-input-or-scroll #[(n) "\302 \203 \303\211 !\207\304 !\207" [this-command n comint-after-pmark-p comint-previous-matching-input-from-input scroll-down-1-stay] 3 nil "p"]) (defalias 'comint-next-matching-input-from-input-or-scroll #[(n) "\302 \203 \303\211 !\207\304 !\207" [this-command n comint-after-pmark-p comint-next-matching-input-from-input scroll-up-1-stay] 3 nil "p"]) (byte-code "\304\305\306\"\210;\203A\307!\204A\310!\203\311\312\313!\210\202A\314\315\"\210\307!\203;\316\317\"\210\320\321\"\210\322\323!\210\202A\311\312\324!\210\325\326\205H\315\"\210\315\311;\203X\327BC\311\207" [eli-backup-method backup-by-copying break-hardlink-on-save backup-directory-alist eval-after-load "comint" (define-keys comint-mode-map '([(meta q)] 'comint-quoted-send) '([(control up)] comint-previous-matching-input-from-input-or-scroll) '([(control down)] comint-next-matching-input-from-input-or-scroll)) file-accessible-directory-p file-exists-p nil warn "Inaccessible backups directory, disabling backups" make-directory t set-file-modes 448 message "Created backup directory: %S" sit-for 2 "Cannot create backups directory, disabling backups" set-default make-backup-files "."] 3) #@181 Decide if backup for an opened file should be disabled. Will decide this based on the size of the file, but will respect any buffer-local setting. See also `eli-max-backup-size'. (defalias 'eli-decide-if-backup-inhibited #[nil "\306\302p\"\204\307\302!\210\310=\206\247\205 X? \204&\311\312!\210\202@ \247\203<\311 X\2036\313\2027\312!\210\202@\311\313!\210\n\f?\211\204N \205q\314\315\203Y\316\202Z\317\205d \205d\320 \203l\321\202m\317\322\260!*\207" [eli-max-backup-size buffer-saved-size backup-inhibited eli-max-autosave-size buffer-auto-save-file-name no-auto local-variable-p make-local-variable t auto-save-mode -1 1 message "Note: " "no backups" "" " and " "no autosaving" " for this file." no-backup] 7 (#$ . 109533)]) (byte-code "\306\307\310\"\210\311\211\n\312=\204\313\211\n;\203\314\n\311EC\n\312=\203H\311(\315\316\311\"\210\315\317\311\"\210\315\320\311\"\210\321)\322*\311+\321,\313-\311.\323/B/\324\323!\204]\315\323\325\326\327\330#\"\210\33101\204z\332\333!\203q\3111\202z\334\335\336 !\337Q1\340\341!\203\205!\204\216\332\333!\205\214\333!\3422\3433\344\335\345 !\346Q4\347P5063718!9\313\207" [delete-auto-save-files auto-save-default eli-backup-method auto-save-list-file-name auto-save-list-file-prefix auto-save-file-name-transforms add-hook find-file-hooks eli-decide-if-backup-inhibited t safe nil "\\`.*\\'" set-default make-backup-files version-control vc-make-backup-files 2 4 main-mail-directory default-boundp findif file-accessible-directory-p ("~/mail/" "~/Mail/" "~/MAIL/") "~/" "> " file-readable-p "~/.signature" "-- \n" capitalize user-full-name "\n" boundp mail-signature-file "[ ]*[-a-z0-9A-Z]*>[ >]*\\|[ ]*" angles "----- " user-login-name " says -----" "sent-mail" eli-max-backup-size kept-old-versions kept-new-versions delete-old-versions dired-kept-versions backup-by-copying backup-by-copying-when-linked current-load-list mail-yank-prefix mail-signature mail-citation-prefix-regexp mail-from-style mail-header-separator mail-archive-file-name message-yank-prefix message-from-style message-signature message-signature-file] 7) #@48 Move to next mail header, or to the mail body. (defalias 'eli-mail-tab-command #[nil "\303\304\305\211 \210 \203D` W\203D\212\306 \210\307\310!)\203$\311 \210\202-\307\312!\203-\313 \210\n \210\314 \315#\203? \316\225^\202@ b\202F\317 +\207" [headers-regexp headers-end set-headers-end "^\\(\\(Resent-\\)?To\\|Subject\\|CC\\|BCC\\):.*\\(\n[ ]+.*\\)*" nil #[nil "\212eb\210\302\303P\304\305#)\211\207" [mail-header-separator headers-end search-forward "\n" 2000 t] 4] beginning-of-line looking-at "FCC: " comint-dynamic-complete "[ ]*\n" expand-abbrev re-search-forward t 0 indent-relative] 5 (#$ . 111696) nil]) (defalias 'eli-mail-setup-hook #[nil "\302 \210\303\304\301!\210\305\306\307\310\"\210\311 \207" [fill-column auto-fill-inhibit-regexp auto-fill-mode 70 make-local-variable "^\\(\\(Resent-\\)?To\\|Subject\\|CC\\|BCC\\): " local-set-key " " eli-mail-tab-command mail-abbrevs-setup] 3]) (byte-code "\306\307\310\311#\210\306\312\310\311#\210\313\314\311\315\311\316\3111\3172\3133\3114\3205\3216\3117\3228\3239\311:\324;\306\325\326\"\210\306\327\330\"\210\331\332\333\"\210\331\334\335\"\210\336\337\340\"\210\341\342\343\"\210\344\345!\210\306\346\347\"\210<\350=\204k\351\352M\210\353=B=\354\355!\210\356=B=\357\356!\204\206\360\356\313\"\210\313\207" [gnus-interactive-exit gnus-large-newsgroup gnus-decay-scores gnus-no-groups-message gnus-show-threads gnus-thread-indent-level add-hook mail-setup-hook eli-mail-setup-hook t message-setup-hook nil 300 "No more news" 4 dummy some 3 40 gnus-subscribe-interactively "Gnus: %%b {%S}" gnus-started-hook (lambda nil (define-keys gnus-group-mode-map '(save-buffer gnus-group-save-newsrc))) gnus-group-mode-hook gnus-topic-mode simple-make-face yellow-bold-underline gnus-header-subject-face green1-bold gnus-header-from-face define-keys global (list-buffers electric-buffer-list) eval-after-load "ebuff-menu" (progn (define-keys 'electric-buffer-menu-mode-map '(previous-buffer Electric-buffer-menu-quit) '(next-buffer Electric-buffer-menu-quit) '(other-window Electric-buffer-menu-quit) '(eli-other-window Electric-buffer-menu-quit) '(list-buffers Electric-buffer-menu-quit) '(electric-buffer-list Electric-buffer-menu-quit) (and window-system '([27] Electric-buffer-menu-quit)) (and window-system '([escape] Electric-buffer-menu-quit)) (unless window-system '([27 79] nil)) '([49] Electric-buffer-menu-select) '([120] Buffer-menu-execute)) (add-hook 'electric-buffer-menu-mode-hook (lambda nil (make-local-hook 'mouse-leave-buffer-hook) (add-hook 'mouse-leave-buffer-hook 'Electric-buffer-menu-quit nil t) (make-local-hook 'kill-buffer-hook) (add-hook 'kill-buffer-hook '(lambda nil (condition-case nil (Electric-buffer-menu-quit) (error nil))) nil t) (fit-window-to-buffer)))) minibuffer-electric-default-mode 1 emacs-startup-hook #[nil "\301\244\211\207" [minibuffer-prompt-properties (point-entered minibuffer-avoid-prompt)] 2] safe yes-or-no-p y-or-n-p eli-userid-re (lambda (#1=#:defconst-tmp-var) (defconst eli-userid-re #1#)) "\\(?:^\\|/\\)\\(~[a-zA-Z0-9_-]+\\)\\'" eli-userid-table-cache default-boundp set-default gnus-use-full-window gnus-summary-make-false-root gnus-use-trees gnus-asynchronous gnus-build-sparse-threads gnus-fetch-old-headers gnus-thread-ignore-subject gnus-mode-non-string-length gnus-subscribe-newsgroup-method gnus-subscribe-hierarchical-interactive gnus-group-mode-line-format eli-backup-method current-load-list] 4) (defalias 'eli-userid-table #[(string pred action) "\242\306=\203(A\307\n \"\205&\306\310\224\311A\312\313\307 \f#,BB)\207\307\n \"\205f\203=@=\204G\314\315\"B\310\224A \316O\317 \312O%+\207" [action suffix eli-userid-re string start regexp boundaries string-match 1 "/" nil t mapcar #[(x) "\301@\302Q\207" [x "~" "/"] 3] 0 completion-table-with-context inhibit-changing-match-data eli-userid-table-cache eli-user-homedirs beg table prefix pred] 6]) (byte-code "\300\301\302\303\304\305#\306#\207" [defalias read-file-name-internal completion-table-in-turn eli-userid-table completion--embedded-envvar-table completion--file-name-table "Internal subroutine for `read-file-name'. Do not call this."] 6) (defalias 'eli-previous-history-element #[(n) "\300\301\302\217\210db\207" [nil (previous-history-element n) ((error (beep)))] 3 nil "p"]) (defalias 'eli-next-history-element #[(n) "\300\301\302\217\210db\207" [nil (next-history-element n) ((error (beep)))] 3 nil "p"]) (defalias 'eli-next-complete-history-element #[(n) "\300\301\302\217\207" [nil (next-complete-history-element n) ((error (beep)))] 3 nil "p"]) (defalias 'eli-previous-complete-history-element #[(n) "\300\301\302\217\207" [nil (previous-complete-history-element n) ((error (beep)))] 3 nil "p"]) (byte-code "\301B\302\301!\204\303\301\304\"\210\301\207" [current-load-list eli-last-minibuf-string default-boundp set-default "."] 3) (defalias 'eli-next-history-contains #[(n) "\203`\305 U\204\306\307`\305 {!\202Ll\203 \310>\204Kl\203<\212\311 \210`)\312\313\n\314#\2038`T\2029\nb\210)\307`\212\306\210`){!\315P\202L \211\306\316\317\217\210db)\207" [mark-active last-command min eli-last-minibuf-string search-str mark nil regexp-quote (eli-previous-history-contains eli-next-history-contains) beginning-of-line re-search-backward "/\\(.\\)/[^/]*\\=" t "[^/]*$" (next-matching-history-element search-str n) ((error (beep)))] 5 nil "p"]) (defalias 'eli-previous-history-contains #[(n) "\301[!\207" [n eli-next-history-contains] 2 nil "p"]) (byte-code "\306 \n \f \f \257 \307\211\203R@\211\203I\307\211\203H@\310\311#\210A\211\2042*A\211\204,\312\313!\207" [minibuffer-local-map minibuffer-local-completion-map minibuffer-local-must-match-map minibuffer-local-ns-map minibuffer-local-filename-completion-map minibuffer-local-filename-must-match-map (([(up)] eli-previous-history-element) ([(down)] eli-next-history-element) ([(control up)] eli-previous-complete-history-element) ([(prior)] eli-previous-complete-history-element) ([(control down)] eli-next-complete-history-element) ([(next)] eli-next-complete-history-element) ([(meta up)] eli-previous-history-contains) ([(meta down)] eli-next-history-contains) ([(control tab)] other-window)) nil apply define-key file-name-shadow-mode -1 minibuffer-local-isearch-map minibuffer-local-shell-command-map read-expression-map keymaps keys kmap #:--cl-dolist-temp-- key+cmd #:--cl-dolist-temp--] 10) (defalias 'eli-minibuffer-electric-slash #[nil "\214\301 \302 }\210`dU\203I`eV\203I\303 ed|\210\304\232\203$\202B\305\306\"\2032\307\310\"\202B\305\311\"\203=\312\202B\313\314\215\210\304\261)\202K\304c)\207" [str field-beginning field-end buffer-string "/" string-match "\\([a-zA-Z][a-zA-Z]+:/\\)\\'" match-string 0 "/\\'" #1="" done (byte-code "\305\306\"\203\226\307\310\"\307\311\"\307\312\" \313\232\203\" \nP\202\221\f\314=\2036\305\315\n\"\2036\316\317\320\"\202\221\305\321\n\"\203D \n Q\202\221\305\322\n\"\203f\323\n!\305\324\n!\"\203^ P\202b\325 Q)\202\221\305\326\n\"\203\204\320\327\330\217\211\203}\325 Q\202\200 P)\202\221 \313\232\203\216 \202\221 P+\202\320\207" [str dots path prfx system-type string-match "\\`\\(\\|.*/\\)\\([^/]*\\)/\\(\\.*\\)\\.\\'" match-string 1 2 3 #1# windows-nt "\\`.:\\'" throw done nil "\\`\\.+\\'" "^~" expand-file-name regexp-quote "/." "\\`\\$" (substitute-in-file-name path) ((error))] 6)] 3 nil nil]) (put 'eli-minibuffer-electric-slash 'delete-selection t) (defalias 'eli-minibuffer-electric-key #[(&optional from to) "\206\304 \206 \305\n\306=\203\307\310\311\312\313%\202\214\314 \315 }\210`dU\2030\316 \"\210 \2056 c,\207" [from to system-type last-command-event "\\`.*/\\'" "" windows-nt replace-regexp-in-string "/" "[/\\]" nil t field-beginning field-end eli-replace-regexp] 6 nil nil]) (put 'eli-minibuffer-electric-key 'delete-selection t) (defalias 'eli-minibuffer-electric-bslash #[nil "\301\302\303\304\"\210)\305 \207" [last-command-event nil eli-minibuffer-electric-key "\\\\" "/" eli-minibuffer-electric-slash] 3 nil nil]) (put 'eli-minibuffer-electric-bslash 'delete-selection t) (defalias 'eli-minibuffer-electric-colon #[nil "\300\301\302\"\207" [eli-minibuffer-electric-key "\\`.*/\\([a-zA-Z]\\)\\'" "\\1"] 3 nil nil]) (byte-code "\304\305\306\307#\210\310B\311\310!\204/\312\310\313 \314 \315\n\316=\205\317\320\321\n\316=\205(\322&\210 )\"\210\323B\311\323!\204Y\312\323\324 \325\326\327 #\210\n\316=\203P\325\330\327 #\210\331\332\333\"\210 )\"\210\304\207" [current-load-list map system-type table put eli-minibuffer-electric-colon delete-selection t eli-electric-file-minibuffer-mode-map default-boundp set-default make-sparse-keymap define-keys ("/" eli-minibuffer-electric-slash) windows-nt ("\\" eli-minibuffer-electric-bslash) ("~" eli-minibuffer-electric-key) ("$" eli-minibuffer-electric-key) (":" eli-minibuffer-electric-colon) eli-electric-file-minibuffer-syntax-table make-syntax-table modify-syntax-entry 47 "." 92 mapc #[(ch) "\302\303 #\207" [ch table modify-syntax-entry "_"] 4] ",.? #^~':;@%!|"] 10) #@48 Setup electric minibuffer for `find-file' etc. (defalias 'eli-electric-file-minibuffer-setup #[nil "\306=\205: \203\301\307!\210\310 d\311\n \"\312\f!\f \232\204)\n |\210 c\210,\313!\210\314\315 \"\210\316!\207" [minibuffer-completion-table file-name-shadow-mode beg end cur abbrev read-file-name-internal -1 minibuffer-prompt-end buffer-substring-no-properties abbreviate-file-name set-syntax-table set-keymap-parent current-local-map use-local-map eli-electric-file-minibuffer-syntax-table eli-electric-file-minibuffer-mode-map] 3 (#$ . 120864)]) (byte-code "\306\307\310\"\210\311\312!\210\313\312!\210\314\312!\210\315\211\316\315\316\317\320\312!\210\321\322@\323\324\325#A\326\323\324\325#\327\330\323\331\325#\332\323\333\325#\334\335\323\336\325#\337\340A\341BD\342A\343BD\323\344\325#\257B\323\345\325@#\323\346\325#\347\350\325\351\352\353\354C\257\355\347\356\352\353\325\357\354D\257\323\360\325\361\352\353\354\362\363\364\"&\323\365\325#\323\366\325@#\323\324\325#\257 E\311\313\367\323\370\354F\352\353\325\371&D\367\323\372\354F\352\353\325\373&DEC\313\367\323\374\354F\352\353\325\375&DDCE\323\324\325#\367\323\376\354F\352\353\325\377&D\314\367\323\201H\354F\352\353\325\201I&DDFG\201J\201KB\"\210\201J\337E\"\210\201J\334G\"\210.\315\207" [display-time-default-load-average display-time-load-average display-time-use-mail-icon display-time-day-and-date display-time-24hr-format display-time-format add-hook minibuffer-setup-hook eli-electric-file-minibuffer-setup line-number-mode 1 column-number-mode size-indication-mode nil t "%H:%M-" display-time-mode "mouse-1: Select (drag to resize)\nmouse-2: Make current window occupy the whole frame\nmouse-3: Remove current window from display" "Recursive edit, type C-M-c to get out" propertize "-" help-echo "%e" mode-line-mule-info mode-line-modified ">" mode-line-buffer-identification " " mode-line-position (vc-mode vc-mode) " " mode-line-modes which-func-mode (which-func-format) global-mode-string (global-mode-string) "%-" "%[" "(" :propertize (#1="" mode-name) "Major mode\nmouse-1: Display major mode menu\nmouse-2: Show help for major mode\nmouse-3: Toggle minor modes" mouse-face mode-line-highlight local-map (#1# mode-line-process) (#1# minor-mode-alist) "Minor mode\nmouse-1: Display minor mode menu\nmouse-2: Show help for minor mode\nmouse-3: Toggle minor modes" "%n" "mouse-2: Remove narrowing from the current buffer" make-mode-line-mouse-map mouse-2 mode-line-widen ")" "%]" 0 "%l/%c" "Line number and Column number\nmouse-1: Display Line and Column Mode Menu" "L%l" "Line Number\nmouse-1: Display Line and Column Mode Menu" "C%c" "Column number\nmouse-1: Display Line and Column Mode Menu" "%p" "Location in buffer\nmouse-1: Display Line and Column Mode Menu" recursive-edit-help-echo dashes standard-mode-line-format mode-line-major-mode-keymap mode-line-minor-mode-keymap standard-mode-line-modes mode-line-column-line-number-mode-map standard-mode-line-position "/%I" "Size indication mode\nmouse-1: Display Line and Column Mode Menu" set-default mode-line-format] 18) #@70 When a macro-key is recorded this is the key vector, null otherwise. (defvar macro-key-record-key nil (#$ . 124006)) #@74 When a macro-key is recorded this is the keymap it should be defined in. (defvar macro-key-record-keymap nil (#$ . 124129)) #@53 When a macro-key is recorded, this is the key name. (defvar macro-key-record-name nil (#$ . 124259)) #@68 When a macro-key is recorded, this is 'global, 'local, or 'append. (defvar macro-key-record-mode nil (#$ . 124366)) #@70 When a macro-key is being recorded, this holds its previous binding. (defvar macro-key-saved-binding nil (#$ . 124488)) #@73 When a macro-key is being recorded, this saves `last-kbd-macro's value. (defvar macro-key-saved-last-kbd-macro nil (#$ . 124614)) #@58 Last (key . mode) that we attempted to make a macro key. (defvar macro-key-last-key+mode nil (#$ . 124750)) (defalias 'macro-key-start-recording #[(key mode) "\306!\n\307=\203\310 \202\n\311=\203\312 \202\313\211\203'\314 \"\202*\315!\211\203V\316\f!\204V\f\317=\204V !=\203K\nB\"\232\204V\nB\"\320\321 \f#\210\n\322=\203g\316\f!\204g\320\323 \"\210 \204\212\314\310 \"\203x\310 \202\211\314\312 \"\203\205\312 \202\211\320\324 \"\313\"# $ %\n&\f'()\n\322=\205\247\f(\325 \326#\210\327\330\331\"\210\n\322=\203\302\332\333\211\"\210\202\306\332\313!\210\334\335\n\307=\203\322\336\202\343\n\311=\203\334\337\202\343\n\322=\205\343\340 #+\207" [key keyname mode keymap binding this-command key-description local current-local-map global current-global-map nil lookup-key key-binding arrayp self-recording-macro-key error "`%s' is bound to `%s', repeat to rebind." append "`%s' is not bound to a macro." "Could not find the binding of `%s'," define-key end-kbd-macro add-hook post-command-hook macro-key-post-command start-kbd-macro t message "%s macro key `%s'..." "Recording local" "Recording global" "Appending to" last-command macro-key-last-key+mode macro-key-record-key macro-key-record-name macro-key-record-keymap macro-key-record-mode macro-key-saved-binding last-kbd-macro macro-key-saved-last-kbd-macro] 5]) (defalias 'macro-key-post-command #[nil "?\205\301 \207" [defining-kbd-macro macro-key-done-recording] 1]) (defalias 'macro-key-done-recording #[nil "\306\307\310\"\210\205\n ?\n\311 \206#\210\312\f\2034\313\314!\210\315\316 \"\210\317 \210\320\321!\202U\315\322=\203@\323\202S\324=\203K\325\202S\326=\205S\327 \"*\207" [last-kbd-macro macro-key-record-key macro-key-record-name name errorp macro-key-record-keymap remove-hook post-command-hook macro-key-post-command define-key nil sit-for 1 message "Macro %s aborted!" beep sleep-for 0.2 local "Local macro key `%s' recorded." global "Macro key `%s' recorded." append "Appended to `%s' macro key." macro-key-saved-binding macro-key-saved-last-kbd-macro macro-key-record-mode] 4]) (defalias 'macro-key-get-key+macro #[(for-what) "\304\305\306\"!\307 !\211?\205\310 !\311\n\206 !\204%\312\313\314 !\"\210 \n\2030\315\nB\2023\316 B+B\207" [for-what key lval gval eli-get-key format "Keyboard macro to %s: " local-key-binding global-key-binding arrayp error "`%s' is not bound to a keyboard macro" key-description local-set-key global-set-key] 5]) (autoload 'edmacro-format-keys "edmacro") (defalias 'macro-key-save-macro #[(key mac) "\303\304!rq\210\305 \210\306c\210\307\310\311 !\312\313\n!P#c\210)\314!)\207" [buf key mac get-buffer-create "*Macro*" erase-buffer ";; Grab this definition and put it somewhere like \"~/.emacs\"\n" format "(global-set-key (kbd %S) (read-kbd-macro %S))" edmacro-format-keys "\n " format-kbd-macro display-buffer] 6]) (defalias 'macro-key-menu #[nil "\306\307!\211\310\232\203\311\202/\312\232\203\313\202/\314\232\203\"\315\202/\316\232\203,\317\202/\320\321!\322!\211@ A\211@ A\323\324!\210\323\325!\210\311\232\203U\326\n\311\"\202\221\317\232\203b\327\n\f\"\202\221\313\232\203z\f\330\331\332\333 \n\334BBE#\202\221\315\232\203\216\f\335\336!\210 \n \")\202\221\320\321!.\207" [op x key set mac last-kbd-macro eli-get-key "[a]ppend [e]dit [d]ebug [s]ave " [97] append [101] edit [100] debug [115] save error "Unknown choice" macro-key-get-key+macro require kmacro edmacro macro-key-start-recording macro-key-save-macro edit-kbd-macro call-last-kbd-macro lambda nil (last-kbd-macro) call-interactively kmacro-step-edit-macro current-prefix-arg] 9]) #@157 Start a macro key recording for the key that invoked this. Stop recording if this key is being recorded. The macro key that gets recorded is always global. (defalias 'self-recording-macro-key #[nil "\301\302 \"\207" [current-prefix-arg macro-key-start-recording this-single-command-keys] 3 (#$ . 128445) nil]) #@57 Main entry point for recording and managing macro keys. (defalias 'macro-key #[nil "\203\306 \207 \203\307\310!\207\n\311\312\313 \203\314\202\315\"! \316\f!=\203-\317 \2029\320\f \2037\321\2028\322\"*\207" [defining-kbd-macro executing-kbd-macro current-prefix-arg localp key this-command end-kbd-macro error "Cannot use `macro-key' from macros." eli-get-key format "%s to record (repeat for options): " "Local key" "Key" key-binding macro-key-menu macro-key-start-recording local global] 4 (#$ . 128762) nil]) (byte-code "\301\302\303\304#\210\305B\306\305!\204\307\305\310\311\312\"\"\210\301\207" [current-load-list add-hook emacs-startup-hook #[nil "\303\304\236 A\n\240*\207" [minor-mode-alist x indicator (macro-key-record-name (" Def:" macro-key-record-name) " Def") defining-kbd-macro] 3] t eli-markers default-boundp set-default make-hash-table :test equal] 5) (defalias 'eli-marker-get-key #[(prompt) "\302\303\"\211\205\f\304 !)\207" [prompt key eli-get-key t key-description] 4]) (defalias 'eli-marker-set-frameconf #[nil "\302\303\304!\211\203\305\306\"\210\307\310 C #\210)\207" [key eli-markers nil eli-marker-get-key "Key to save marker+windows+frames: " message "Setting marker key `%s' to this position+windows+frames." puthash current-frame-configuration] 5]) (defalias 'eli-marker-set-winconf #[nil "\302\303!\211\204\304 \202\305\306 #\210\307\310\"\210\305\311 \306#\312 C\244 #\210)\207" [key eli-markers eli-marker-get-key "Key to save marker+windows (again to save frames): " eli-marker-set-frameconf puthash nil message "Setting marker key `%s' to this position+windows." gethash current-window-configuration] 7]) (defalias 'eli-marker-set-marker #[nil "\302\303!\211\204\304 \202\305\306 #\210\307\310\"\210\305\311 \306#\312 C\244 #)\207" [key eli-markers eli-marker-get-key "Key to save marker (again to save windows): " eli-marker-set-winconf puthash nil message "Setting marker key `%s' to this position." gethash point-marker] 7]) (defalias 'eli-marker-copy #[(beg end) "\304\305!\306\307\"\210\310 \n{ #)\207" [key beg end eli-markers eli-marker-get-key "Key to save region to: " message "Setting marker key `%s' to this text." puthash] 4 nil "r"]) #@95 Jump to a marker, possibly restoring window and/or frame configuration; or set such a marker. (defalias 'eli-marker #[nil "\306\307!\211\204 \310 \202\221\311 \"\312\211\204\313\314\"\210 ;\203, c\210\315\316\"\202\220 \312\211\203\206 @\317\f!\203W\320\f!\204H\313\321\"\210\322\320\f!!\210\323 \210\fb\210\202\324\f!\203j\325\f!\210\n\204\326\202\327\f!\203y\330\f!\210\331\202\313\332\f#\210 A\211\2044*\315\333\n\206\217\334#*)\207" [key eli-markers more data d #1=#:--cl-dolist-temp-- eli-marker-get-key "Marker to jump to (repeat to set a marker): " eli-marker-set-marker gethash nil error "No `%s' marker set." message "Inserted `%s'." markerp marker-buffer "The `%s' marker's buffer no longer exists." switch-to-buffer push-mark window-configuration-p set-window-configuration " (restored windows)" frame-configuration-p set-frame-configuration " (restored windows/frames)" "Bad data in `%s' marker: %S." "Jumped to `%s'%s." ""] 6 (#$ . 131007) nil]) (byte-code "\306\307!\210\310\211\310\311\312\310\311.\310/\3110\3131\310\21123\3104\3115\3146\3157\310\21189\316:\310;\317<\320=\321>\322?\323\324\325\326#\210\323\327\325\326#\210\323\330\331\332#\210\323\333\331\332#\210\323\334\331\332#\210\323\335\331\332#\210\323\336\331\332#\210\323\337\331\332#\210\323\340\331\332#\210\323\341\331\332#\210\323\342\331\310#\210\323\343\331\310#\210\323\344\331\332#\210\323\345\331\310#\210\323\346\331\310#\210\347\350!\210\351@B@\352\351!\204\265\353\351\354\"\210\355\351!\207" [cua-enable-cua-keys cua-remap-control-v cua-remap-control-z cua-highlight-region-shift-only cua-prefix-override-inhibit-delay cua-delete-selection require cua-base t nil 0.5 not-ctrl-u [(shift return)] meta 0.3 "yellow" "orangered1" "green" "cyan" put forward-page CUA move backward-page kill-word delete-selection supersede delete-word kill-sexp delete-sexp backward-kill-word backward-delete-word backward-kill-sexp backward-delete-sexp skeleton-pair-insert-maybe sh-maybe-here-document comint-delchar-or-maybe-eof completion-separator-self-insert-command completion-separator-self-insert-autofilling cua-mode 1 eli-override-cua-set-rectangle-mark default-boundp set-default cua-set-rectangle-mark make-variable-buffer-local cua-keep-region-after-copy cua-toggle-set-mark cua-auto-mark-last-change cua-enable-register-prefix cua-delete-copy-to-register-0 cua-paste-pop-rotate-temporarily cua-virtual-rectangle-edges cua-auto-tabify-rectangles cua-rectangle-mark-key cua-rectangle-modifier-key cua-enable-rectangle-auto-help cua-global-mark-keep-visible cua-global-mark-blink-cursor-interval cua-enable-cursor-indications cua-normal-cursor-color cua-read-only-cursor-color cua-overwrite-cursor-color cua-global-mark-cursor-color current-load-list] 5) #@137 Calls `eli-override-cua-set-rectangle-mark' which normally holds `cua-set-rectangle-mark'. The indirection is so it can be overridden. (defalias 'eli-cua-set-rectangle-mark #[nil "\301!\207" [eli-override-cua-set-rectangle-mark call-interactively] 2 (#$ . 133813) nil]) (define-key cua-global-keymap [(shift return)] 'eli-cua-set-rectangle-mark) #@51 The last prefix argument scroll was invoked with. (defvar SIP-last-scroll-arg nil (#$ . 134167)) #@60 The column we were moved to as a consequence of scrolling. (defvar SIP-scroll-column nil (#$ . 134270)) #@71 The last command used to scroll, and the group of commands it was in. (defvar SIP-last-scroll-command+group nil (#$ . 134380)) #@223 A (buffer-local) list of remembered positions. Holds (UPWARD-POSNS DOWNWARD-POSNS) with a list of positions upward from the current position, and downward from it. See `SIP-get-scroll-posn' for the format of a position. (defvar SIP-scroll-posns nil (#$ . 134514)) (byte-code "\303\304!\210\305\306\211\203) @\307\310\311\"!\312\n!\204!\nKM\210) A\211\204\f*\306\207" [std #:--cl-dolist-temp-- saved make-variable-buffer-local SIP-scroll-posns (scroll-up scroll-down) nil intern format "SIP-orig-%s" fboundp] 5) #@178 Get the current scroll position, a list of values. Currently contains the cursor position and the window row/column, but may change to include more (or different) information. (defalias 'SIP-get-scroll-posn #[nil "`\300 \301 E\207" [window-start window-hscroll] 3 (#$ . 135044)]) #@75 Set the scroll position. POSN is in the format of `SIP-get-scroll-posn'. (defalias 'SIP-set-scroll-posn #[(posn) "@b\210\301\302A@\303#\210\304\302\3058\"\207" [posn set-window-start nil t set-window-hscroll 2] 4 (#$ . 135331)]) #@66 Figure out which column to place the cursor on during scrolling. (defalias 'SIP-set-visual-column #[nil "\304 \211A@\305=\203\306 S\202&\307 8)@\211\205%\310\311\n!\312 \245!)\211)\207" [posn position x SIP-scroll-column posn-at-point right-fringe window-width 2 truncate float frame-char-width] 4 (#$ . 135570)]) #@56 Go to the column suggested by the `SIP-scroll-column'. (defalias 'SIP-goto-visual-column #[nil "\205 \301\302B!\207" [SIP-scroll-column vertical-motion 0] 3 (#$ . 135899)]) (defalias 'SIP-do-scroll-internal #[(arg isdown group orig) "@ =\205A\n=\205 \306>\f\nB\211\203\202'\307 \210\211\2032\310\2023\311\312=\204E\313!\314W\203K[\202M\211\314V\203Y\315\202Z\316\317\211 \320 ! \203o\"\204t\317\211D\"\316=\203\207\" \"A\202\220\"\"A @:\203\245!\211#@@)\232\204\257!@B\240\210 @:\203\322! \211#@@)\232\203\322 \211#\211@A)\240\210\202\257 @:\203\366 \211#@@)$ \211#\211@A)\240\210\321$!)\202\\\316=\203o\202m\203 \317\202\\\322\316=\203e\202d!\204!\317\323\324\217\205\\\250\203O\325%!\326\327&'\316=\203B\327\330!!\202H\331\330!!\210\332 +\202\\\316=\203Ze\202[db.\207" [SIP-last-scroll-command+group last-command group current-prefix-arg this-command repeated (nil -) SIP-set-visual-column -1 1 - prefix-numeric-value 0 down up nil SIP-get-scroll-posn SIP-set-scroll-posn pos-visible-in-window-p (byte-code " !\210\303 \210\n\304=\203\305d!\203\212db\210\306\307!\210)\310\207" [orig arg direction SIP-goto-visual-column down pos-visible-in-window-p recenter -1 nil] 2) (((beginning-of-buffer end-of-buffer) t)) float t previous-line abs next-line SIP-goto-visual-column SIP-last-scroll-arg arg isdown direction past-box future-box curpos SIP-scroll-posns x posn SIP-scroll-column line-move-visual temporary-goal-column] 4]) #@259 If this is nil, `scroll-in-place' functionality is disabled. The main way for controlling `scroll-in-place' is via `scroll-preserve-screen-position', but this variable is also used for older packages that expect to disable changing scrolling when it is nil. (defvar scroll-in-place t (#$ . 137473)) #@524 Scroll, endeavouring to keep the cursor in the same place on the screen. Keeps the cursor position only if `scroll-preserve-screen-position' is bound to `in-place', otherwise does a plain scroll (eg, using `scroll-up'). `scroll-in-place' is also checked, since there are some packages that use that and expect to avoid different scroll behavior. ARG is the number of lines to scroll; ISDOWN is t if this is a downward scroll; GROUP designates a group of interrelated scrolling commands that should cancel each other out. (defalias 'SIP-do-scroll #[(arg isdown group) "\203\306\202 \307\n\310=\203 \203\311\f $\202#\312 \f!)\207" [isdown orig scroll-preserve-screen-position scroll-in-place arg group SIP-orig-scroll-down SIP-orig-scroll-up in-place SIP-do-scroll-internal nil SIP-last-scroll-command+group] 5 (#$ . 137779)]) #@442 A macro to generate up/down scrolling commands. NAME-PAT is the name of the group of up/down scrolling commands being defined, with the up/down portion replaced with `XX'. INTER is the interactive specification of the scrolling command. KEEP is T if the cursor should not be moved, only the screen. OTHER is T if the scrolling should be performed on the "other" window. DOCSTR is the function's docstring, with `XX' replaced appropriately. (defalias 'defun-SIP-up/down '(macro . #[(name-pat inter keep other docstr) "\301\302\303\304!\305!\")B\207" [mk #[(downp) "\203\306\202 \307\310\311\312 \313\n!\314$!\311\312 \f\314$\315\316\317D\317\nDF\2035\320\321 \322BBB\2026 \203C\323\324 E\202D \325 \326\f\327D \257\330\317 D\331BB\330\317 D\332BB\330\317 D\333BBF.\207" [downp u/d name-pat name docstr doit "down" "up" intern replace-regexp-in-string "XX" symbol-name t SIP-do-scroll arg quote let ((p (point))) ((when (pos-visible-in-window-p p) (goto-char p))) save-selected-window (select-window (other-window-for-scrolling)) defun (&optional arg) interactive put ('CUA 'move) ('scroll-command t) ('isearch-scroll t) keep other inter] 6] progn append nil t] 5 (#$ . 138627)])) #@194 Wrapper for `scroll-up' that does a scroll-in-place. Also: - when reaching the edge, move the cursor instead of beeping, - consecutive uses with no prefix use the first prefix in the sequence. (defalias 'SIP-scroll-up #[(&optional arg) "\301\302\303#\207" [arg SIP-do-scroll nil SIP-scroll-XX] 4 (#$ . 139840) "^P"]) (byte-code "\300\301\302\303#\210\300\301\304\305#\210\300\301\306\305#\207" [put SIP-scroll-up CUA move scroll-command t isearch-scroll] 4) #@196 Wrapper for `scroll-down' that does a scroll-in-place. Also: - when reaching the edge, move the cursor instead of beeping, - consecutive uses with no prefix use the first prefix in the sequence. (defalias 'SIP-scroll-down #[(&optional arg) "\301\302\303#\207" [arg SIP-do-scroll t SIP-scroll-XX] 4 (#$ . 140306) "^P"]) (byte-code "\300\301\302\303#\210\300\301\304\305#\210\300\301\306\305#\207" [put SIP-scroll-down CUA move scroll-command t isearch-scroll] 4) #@93 Like `scroll-up', but for the other window. (See `other-window-for-scrolling' for details.) (defalias 'SIP-scroll-other-window-up #[(&optional arg) "\303 \304\305\306 \"r\307\216\310\311 !\210\312\n\313\314#,\207" [save-selected-window-alist save-selected-window-window arg selected-window mapcar #[(frame) "\301!B\207" [frame frame-selected-window] 3] frame-list ((byte-code "\304\211\203(\n@\305 @!\203!\306 A!\203!\307 @ A\310#\210\nA\211\204*\306 !\2034\311 \310\"\210\304\207" [save-selected-window-alist elt #1=#:--cl-dolist-temp-- save-selected-window-window nil frame-live-p window-live-p set-frame-selected-window norecord select-window] 5)) select-window other-window-for-scrolling SIP-do-scroll nil SIP-scroll-other-window-XX] 4 (#$ . 140775) "^P"]) (byte-code "\300\301\302\303#\210\300\301\304\305#\210\300\301\306\305#\207" [put SIP-scroll-other-window-up CUA move scroll-command t isearch-scroll] 4) #@95 Like `scroll-down', but for the other window. (See `other-window-for-scrolling' for details.) (defalias 'SIP-scroll-other-window-down #[(&optional arg) "\303 \304\305\306 \"r\307\216\310\311 !\210\312\n\313\314#,\207" [save-selected-window-alist save-selected-window-window arg selected-window mapcar #[(frame) "\301!B\207" [frame frame-selected-window] 3] frame-list ((byte-code "\304\211\203(\n@\305 @!\203!\306 A!\203!\307 @ A\310#\210\nA\211\204*\306 !\2034\311 \310\"\210\304\207" [save-selected-window-alist elt #1=#:--cl-dolist-temp-- save-selected-window-window nil frame-live-p window-live-p set-frame-selected-window norecord select-window] 5)) select-window other-window-for-scrolling SIP-do-scroll t SIP-scroll-other-window-XX] 4 (#$ . 141711) "^P"]) (byte-code "\300\301\302\303#\210\300\301\304\305#\210\300\301\306\305#\207" [put SIP-scroll-other-window-down CUA move scroll-command t isearch-scroll] 4) #@46 Like `scroll-up' with a default of one line. (defalias 'scroll-up-1 #[(&optional arg) "\301\302\303#\207" [arg SIP-do-scroll nil scroll-XX-1] 4 (#$ . 142651) "^p"]) (byte-code "\300\301\302\303#\210\300\301\304\305#\210\300\301\306\305#\207" [put scroll-up-1 CUA move scroll-command t isearch-scroll] 4) #@48 Like `scroll-down' with a default of one line. (defalias 'scroll-down-1 #[(&optional arg) "\301\302\303#\207" [arg SIP-do-scroll t scroll-XX-1] 4 (#$ . 142962) "^p"]) (byte-code "\300\301\302\303#\210\300\301\304\305#\210\300\301\306\305#\207" [put scroll-down-1 CUA move scroll-command t isearch-scroll] 4) #@48 Like `scroll-up-1' but stay in the same place. (defalias 'scroll-up-1-stay #[(&optional arg) "`\302 \303\304#\210\305!\205b)\207" [p arg SIP-do-scroll nil scroll-XX-1-stay pos-visible-in-window-p] 4 (#$ . 143277) "^p"]) (byte-code "\300\301\302\303#\210\300\301\304\305#\210\300\301\306\305#\207" [put scroll-up-1-stay CUA move scroll-command t isearch-scroll] 4) #@50 Like `scroll-down-1' but stay in the same place. (defalias 'scroll-down-1-stay #[(&optional arg) "`\302 \303\304#\210\305!\205b)\207" [p arg SIP-do-scroll t scroll-XX-1-stay pos-visible-in-window-p] 4 (#$ . 143652) "^p"]) (byte-code "\306\307\310\311#\210\306\307\312\313#\210\306\307\314\313#\210\315\316\211\203u @\317\316\211\203m @\320\n\203>\321\322\323=\2039\324\202:\325\"\202B\321\326\"!\320\321\327\n\203O\330\202P\324#!\331\f!!\f KM\210\306\f\332!#\210+ A\211\204%* A\211\204*\333\334!\210\335\336!\203\204\337\340!\210\333\336!\207" [dir #:--cl-dolist-temp-- other #:--cl-dolist-temp-- std replace put scroll-down-1-stay CUA move scroll-command t isearch-scroll (up down) nil (nil t) intern format "scroll-other-window%s" up "" "-down" "scroll-%s" "SIP-scroll%s-%s" "-other-window" documentation function-documentation provide scroll-in-place featurep filladapt error "filladapt cannot be loaded twice in the same Emacs session." old-doc] 7) #@31 Version string for filladapt. (defvar filladapt-version "2.12" (#$ . 144643)) (byte-code "\300\301\302\217\210\303\304!\203\305\306!\204\307\310\311\"\210\307\312\313\"\210\314\315\300\316\317\320%\207" [nil (byte-code "\300\301!\207" [require custom] 2) ((error)) featurep custom fboundp custom-declare-variable defalias defgroup (macro . #[(&rest args) "\300\207" [nil] 1]) defcustom (macro . #[(var value doc &rest args) "\303 \nF\207" [var value doc defvar] 4]) custom-declare-group filladapt "Enhanced filling" :group fill] 6) #@111 Non-nil means that Filladapt minor mode is enabled. Use the filladapt-mode command to toggle the mode on/off. (defvar filladapt-mode nil (#$ . 145187)) (make-variable-buffer-local 'filladapt-mode) #@137 *String to display in the modeline when Filladapt mode is active. Set this to nil if you don't want a modeline indicator for Filladapt. (custom-declare-variable 'filladapt-mode-line-string '" Filladapt" '(#$ . -145391) :type 'string :group 'filladapt) #@521 *Tolerate filled paragraph lines ending this far from the fill column. If any lines other than the last paragraph line end at a column less than fill-column - filladapt-fill-column-tolerance, fill-column will be adjusted using the filladapt-fill-column-*-fuzz variables and the paragraph will be re-filled until the tolerance is achieved or filladapt runs out of fuzz values to try. A nil value means behave normally, that is, don't try refilling paragraphs to make filled line lengths fit within any particular range. (custom-declare-variable 'filladapt-fill-column-tolerance 'nil '(#$ . -145650) :type '(choice (const nil) integer) :group 'filladapt) #@183 *Try values from fill-column to fill-column plus this variable when trying to make filled paragraph lines fall with the tolerance range specified by filladapt-fill-column-tolerance. (custom-declare-variable 'filladapt-fill-column-forward-fuzz '5 '(#$ . -146311) :type 'integer :group 'filladapt) #@184 *Try values from fill-column to fill-column minus this variable when trying to make filled paragraph lines fall with the tolerance range specified by filladapt-fill-column-tolerance. (custom-declare-variable 'filladapt-fill-column-backward-fuzz '5 '(#$ . -146614) :type 'integer :group 'filladapt) (byte-code "\301\236\204\f\301\302DB\301\207" [minor-mode-alist filladapt-mode filladapt-mode-line-string] 2) #@483 Table of tokens filladapt knows about. Format is ((REGEXP SYM) ...) filladapt uses this table to build a tokenized representation of the beginning of the current line. Each REGEXP is matched against the beginning of the line until a match is found. Matching is done case-sensitively. The corresponding SYM is added to the list, point is moved to (match-end 0) and the process is repeated. The process ends when there is no REGEXP in the table that matches what is at point. (custom-declare-variable 'filladapt-token-table ''(("^" beginning-of-line) (">+" citation->) ("|+" citation-|) ("\\(\\w\\|[0-9]\\)[^'`\"< \n]*>[ ]*" supercite-citation) (";+" lisp-comment) ("#+" sh-comment) ("%+" postscript-comment) ("///*" c++-comment) ("@c[ ]" texinfo-comment) ("@comment[ ]" texinfo-comment) ("\\\\item[ ]" bullet) ("[0-9]+\\.[ ]" bullet) ("[0-9]+\\(\\.[0-9]+\\)+[ ]" bullet) ("[A-Za-z]\\.[ ]" bullet) ("(?[0-9]+)[ ]" bullet) ("(?[A-Za-z])[ ]" bullet) ("[0-9]+[A-Za-z]\\.[ ]" bullet) ("(?[0-9]+[A-Za-z])[ ]" bullet) ("[-~*+]+[ ]" bullet) ("o[ ]" bullet) ("[  ]+" space) ("$" end-of-line)) '(#$ . 147033) :type '(repeat (list regexp symbol)) :group 'filladapt) #@335 List of regexps that can never be a token. Before trying the regular expressions in filladapt-token-table, the regexps in this list are tried. If any regexp in this list matches what is at point then the token generator gives up and doesn't try any of the regexps in filladapt-token-table. Regexp matching is done case-sensitively. (custom-declare-variable 'filladapt-not-token-table ''("[Ee]\\.?g\\.[ ,]" "[Ii]\\.?e\\.[ ,]" "^$") '(#$ . 148218) :type '(repeat regexp) :group 'filladapt) #@429 Table describing what tokens a certain token will match. To decide whether a line belongs in the current paragraph, filladapt creates a token list for the fill prefix of both lines. Tokens and the columns where tokens end are compared. This table specifies what a certain token will match. Table format is (SYM [SYM1 [SYM2 ...]]) The first symbol SYM is the token, subsequent symbols are the tokens that SYM will match. (custom-declare-variable 'filladapt-token-match-table ''((citation-> citation->) (citation-| citation-|) (supercite-citation supercite-citation) (lisp-comment lisp-comment) (sh-comment sh-comment) (postscript-comment postscript-comment) (c++-comment c++-comment) (texinfo-comment texinfo-comment) (bullet) (space bullet space) (beginning-of-line beginning-of-line)) '(#$ . 148717) :type '(repeat (repeat symbol)) :group 'filladapt) #@265 List of tokens that can match multiple tokens. If one of these tokens appears in a token list, it will eat all matching tokens in a token list being matched against it until it encounters a token that doesn't match or a token that ends on a greater column number. (custom-declare-variable 'filladapt-token-match-many-table ''(space) '(#$ . 149584) :type '(repeat symbol) :group 'filladapt) #@189 List of tokens that indicate the start of a paragraph. If parsing a line generates a token list containing one of these tokens, then the line is considered to be the start of a paragraph. (custom-declare-variable 'filladapt-token-paragraph-start-table ''(bullet) '(#$ . 149981) :type '(repeat symbol) :group 'filladapt) #@438 Table that specifies how to convert a token into a fill prefix. Table format is ((SYM . HOWTO) ...) SYM is the symbol naming the token to be converted. HOWTO specifies how to do the conversion. `exact' means copy the token's string directly into the fill prefix. `spaces' means convert all characters in the token string that are not a TAB or a space into spaces and copy the resulting string into the fill prefix. (custom-declare-variable 'filladapt-token-conversion-table ''((citation-> . exact) (citation-| . exact) (supercite-citation . exact) (lisp-comment . exact) (sh-comment . exact) (postscript-comment . exact) (c++-comment . exact) (texinfo-comment . exact) (bullet . spaces) (space . exact) (end-of-line . exact)) '(#$ . 150308) :type '(repeat (cons symbol (choice (const exact) (const spaces)))) :group 'filladapt) #@70 Table containing the old function definitions that filladapt usurps. (defvar filladapt-function-table (byte-code "\301\211KB\302\211KB\303\211KB\304\211KBF\305\306!\203 \306\211KBC\244\210)\207" [assoc-list fill-paragraph fill-region fill-region-as-paragraph do-auto-fill fboundp lisp-fill-paragraph] 5) (#$ . 151164)) #@48 Hooks run after filladapt runs fill-paragraph. (custom-declare-variable 'filladapt-fill-paragraph-post-hook 'nil '(#$ . 151493) :type 'hook :group 'filladapt) #@260 Non-nil if the filladapt version of a fill function executing. Currently this is only checked by the filladapt version of fill-region-as-paragraph to avoid this infinite recursion: fill-region-as-paragraph -> fill-paragraph -> fill-region-as-paragraph ... (defvar filladapt-inside-filladapt nil (#$ . 151659)) #@409 Non-nil means filladapt debugging is enabled. Use the filladapt-debug command to turn on debugging. With debugging enabled, filladapt will a. display the proposed indentation with the tokens highlighted using filladapt-debug-indentation-face-1 and filladapt-debug-indentation-face-2. b. display the current paragraph using the face specified by filladapt-debug-paragraph-face. (custom-declare-variable 'filladapt-debug 'nil '(#$ . 151979) :type 'boolean :group 'filladapt) (byte-code "\203 \301\302\303\"\210\301\207" [filladapt-debug add-hook post-command-hook filladapt-display-debug-info-maybe] 3) #@65 Face used to display the indentation when debugging is enabled. (defvar filladapt-debug-indentation-face-1 'highlight (#$ . 152619)) #@73 Another face used to display the indentation when debugging is enabled. (defvar filladapt-debug-indentation-face-2 'secondary-selection (#$ . 152758)) #@71 Face used to display the current paragraph when debugging is enabled. (defvar filladapt-debug-paragraph-face 'bold (#$ . 152915)) (byte-code "\301B\302\301!\204\303\301\304\"\210\305\301!\210\306B\302\306!\204\"\303\306\304\"\210\305\306!\207" [current-load-list filladapt-debug-indentation-extents default-boundp set-default nil make-variable-buffer-local filladapt-debug-paragraph-extent] 3) (defalias 'do-auto-fill #[nil "\300\301\215\207" [done (byte-code "\203+ \204+\214\306\211\211\307\211\306\211 \310\306\211\"\203)\311\312!\313\314\n\"\210.\311\312!\207" [filladapt-mode fill-prefix retval filladapt-inside-filladapt comment-multi-line adaptive-fill-regexp nil t filladapt-adapt filladapt-funcall do-auto-fill throw done adaptive-fill-mode paragraph-ignore-fill-prefix] 7)] 2]) (defalias 'filladapt-fill-paragraph #[(function &rest args) "\300\301\215\207" [done (byte-code "\203\330 \204\330\214\306\211\211\307\306\211\310\307\306\"\203\326\203\306Z\\Z\306\311\312\204\256\313\"\314 \203`\315\211\202JT[_\\X\203\243W\204\214V\203\243T[_\\\202tV\211\203M\315=\204\301\313\").\202\315\313\"\316\317!\210\320\321\n\"\210.\313\"\207" [filladapt-mode fill-prefix retval comment-multi-line adaptive-fill-regexp adaptive-fill-mode nil t filladapt-adapt 1 0 filladapt-funcall* filladapt-paragraph-within-fill-tolerance success run-hooks filladapt-fill-paragraph-post-hook throw done paragraph-ignore-fill-prefix filladapt-fill-column-tolerance fill-column filladapt-fill-column-backward-fuzz low filladapt-fill-column-forward-fuzz high old-fill-column lim sign delta function args] 7)] 2]) #@407 Fill paragraph at or after point. Prefix arg means justify as well. (This function has been overloaded with the `filladapt' version.) If `sentence-end-double-space' is non-nil, then period followed by one space does not end a sentence, so don't break a line there. If `fill-paragraph-function' is non-nil, we call it (passing our argument to it), and if it returns non-nil, we simply return its value. (defalias 'fill-paragraph #[(&optional justify region) "\303\304\305 \n#)\207" [filladapt-inside-filladapt justify region t filladapt-fill-paragraph fill-paragraph] 4 (#$ . 154674) (progn (barf-if-buffer-read-only) (list (if current-prefix-arg 'full) t))]) #@285 Like \[fill-paragraph], but handle Emacs Lisp comments. (This function has been overloaded with the `filladapt' version.) If any of the current line is a comment, fill the comment or the paragraph of it that point is in, preserving the comment's indentation and initial semicolons. (defalias 'lisp-fill-paragraph #[(&optional justify) "\302\303\304 \")\207" [filladapt-inside-filladapt justify t filladapt-fill-paragraph lisp-fill-paragraph] 3 (#$ . 155345) "P"]) #@908 Fill the region as one paragraph. (This function has been overloaded with the `filladapt' version.) It removes any paragraph breaks in the region and extra newlines at the end, indents and fills lines between the margins given by the `current-left-margin' and `current-fill-column' functions. It leaves point at the beginning of the line following the paragraph. Normally performs justification according to the `current-justification' function, but with a prefix arg, does full justification instead. From a program, optional third arg JUSTIFY can specify any type of justification. Fourth arg NOSQUEEZE non-nil means not to make spaces between words canonical before filling. Fifth arg SQUEEZE-AFTER, if non-nil, means don't canonicalize spaces before that position. If `sentence-end-double-space' is non-nil, then period followed by one space does not end a sentence, so don't break a line there. (defalias 'fill-region-as-paragraph #[(beg end &optional justify nosqueeze squeeze-after) "\203c \204c\214\n }\210\306\307\211\nb\210`f\310\232\203$\311\312!\210\202\307\210\313\307y!\203U\314\315 !@\211\203D`\316\fA@!\210 `|\210`Sb\210\317c\210\311\312!\210\307\210\202'\nb\210\320\307\"\210+db)\207\307\321\322\217\207" [filladapt-mode filladapt-inside-filladapt beg end last-token line-start t nil 10 delete-char 1 zerop filladapt-tail filladapt-parse-prefixes move-to-column " " fill-paragraph (byte-code "\305\306 \n \f&\207" [beg end justify nosqueeze squeeze-after filladapt-funcall fill-region-as-paragraph] 7) ((wrong-number-of-arguments (byte-code "\300\301\302\217\207" [nil (byte-code "\304\305 \n %\207" [beg end justify nosqueeze filladapt-funcall fill-region-as-paragraph] 6) ((wrong-number-of-arguments (byte-code "\303\304 \n$\207" [beg end justify filladapt-funcall fill-region-as-paragraph] 5)))] 3))) justify] 3 (#$ . 155819) "*r\nP"]) #@563 Fill each of the paragraphs in the region. (This function has been overloaded with the `filladapt' version.) Prefix arg (non-nil third arg, if called from program) means justify as well. Noninteractively, fourth arg NOSQUEEZE non-nil means to leave whitespace other than line breaks untouched, and fifth arg TO-EOP non-nil means to keep filling to the end of the paragraph (or next hard newline, if `use-hard-newlines' is on). If `sentence-end-double-space' is non-nil, then period followed by one space does not end a sentence, so don't break a line there. (defalias 'fill-region #[(beg end &optional justify nosqueeze to-eop) " ^ ]\211\n*\f\203\206 \204\206\214 }\210\306\307b\210m?\205\204`m\2049\310 \2049\311y\210\202*`\232\204a\214`}\210\312`%\210db\210)n\204am\204a\311y\210\310 \203\"\214\313\306\211\"\210\314\307\"\210db\210)n\204\"m\204\"\311y\210\202\"+\207\307\315\316\217\207" [beg end newend newbeg filladapt-mode filladapt-inside-filladapt t nil filladapt-parse-prefixes 1 fill-region filladapt-adapt fill-paragraph (byte-code "\305\306 \n \f&\207" [beg end justify nosqueeze to-eop filladapt-funcall fill-region] 7) ((wrong-number-of-arguments (byte-code "\300\301\302\217\207" [nil (byte-code "\304\305 \n %\207" [beg end justify nosqueeze filladapt-funcall fill-region] 6) ((wrong-number-of-arguments (byte-code "\303\304 \n$\207" [beg end justify filladapt-funcall fill-region] 5)))] 3))) start justify nosqueeze to-eop] 7 (#$ . 157711) "*r\nP"]) #@307 Toggle Filladapt minor mode. With arg, turn Filladapt mode on iff arg is positive. When Filladapt mode is enabled, auto-fill-mode and the fill-paragraph command are both smarter about guessing a proper fill-prefix and finding paragraph boundaries when bulleted and indented lines and paragraphs are used. (defalias 'filladapt-mode #[(&optional arg) "\303 \203\304 !\305V\206 ?\205\n?\306\307!\203\307 \207\310\311 !\207" [zmacs-region-stays arg filladapt-mode t prefix-numeric-value 0 fboundp force-mode-line-update set-buffer-modified-p buffer-modified-p] 2 (#$ . 159233) "P"]) #@63 Unconditionally turn on Filladapt mode in the current buffer. (defalias 'turn-on-filladapt-mode #[nil "\300\301!\207" [filladapt-mode 1] 2 (#$ . 159829)]) #@64 Unconditionally turn off Filladapt mode in the current buffer. (defalias 'turn-off-filladapt-mode #[nil "\300\301!\207" [filladapt-mode -1] 2 (#$ . 159990)]) #@67 Call the old definition of a function that filladapt has usurped. (defalias 'filladapt-funcall #[(function &rest args) "\303\304 \"A\n\"\207" [function filladapt-function-table args apply assoc] 4 (#$ . 160154)]) #@67 Call the old definition of a function that filladapt has usurped. (defalias 'filladapt-funcall* #[#'args "\303\304 \"A\n\"\207" [function filladapt-function-table args apply assoc] 4 (#$ . 160374)]) #@131 Returns non-nil if LIST contains a paragraph starting token. LIST should be a token list as returned by filladapt-parse-prefixes. (defalias 'filladapt-paragraph-start #[(list) "\300\301\215\207" [done (byte-code "\205@@ >\203\302\303\304\"\210A\211\204\305\207" [list filladapt-token-paragraph-start-table throw done t nil] 4)] 2 (#$ . 160581)]) #@323 Parse all the tokens after point and return a list of them. The tokens regular expressions are specified in filladapt-token-table. The list returned is of this form ((SYM COL STRING) ...) SYM is a token symbol as found in filladapt-token-table. COL is the column at which the token ended. STRING is the token's text. (defalias 'filladapt-parse-prefixes #[nil "\212\306\211`\306\211\211\211\305\307\215\210\237.\207" [moved not-token-table token-table case-fold-search old-point done nil (byte-code "\204_ \211\203\306\n@!\203\307\300\310\"\210\nA\211\204\n \310\f\203\306\f@@!\2044\fA\211\202\"\311\225b\210\f@A@i\311\224\311\225{E B`\n=?\211 ?\205T\fA ?`\n\202!\306\207" [done filladapt-not-token-table not-token-table filladapt-token-table token-table token-list looking-at throw t 0 old-point moved] 5) token-list] 7 (#$ . 160944)]) #@837 Compare two token lists and return non-nil if they match, nil otherwise. The lists are walked through in lockstep, comparing tokens. When two tokens A and B are compared, they are considered to match if 1. A appears in B's list of matching tokens or B appears in A's list of matching tokens and 2. A and B both end at the same column or A can match multiple tokens and ends at a column > than B or B can match multiple tokens and ends at a column > than A In the case where the end columns differ the list pointer for the token with the greater end column is not moved forward, which allows its current token to be matched against the next token in the other list in the next iteration of the matching loop. All tokens must be matched in order for the lists to be considered matching. (defalias 'filladapt-tokens-match-p #[(list1 list2) "\306\307\204\366\n\203\366 \203\366\n@@\211 >\f \236A\n\n@A@ @@\211\f > \f \236A @A@\f>\206J\f\n>\211\204W\307\306\202\361\203\206 \203\206 U\203r\nA A\202\361 W\203\200\nA\202\361 A\202\361\203\261 U\203\234\nA A\202\361 W\203\253\307\306\202\361 A\202\361 \203\334 U\203\307\nA A\202\361 W\203\326\307\306\202\361\nA\202\361 U\203\355\nA A\202\361\307\306. \202 \205\n?\205 ?*\207" [done matched list1 list2 token1 filladapt-token-match-many-table t nil token1-matches-many-p filladapt-token-match-table token1-matches token1-endcol token2 token2-matches-many-p token2-matches token2-endcol tokens-match] 3 (#$ . 161828)]) #@100 Build a fill-prefix for a token LIST. filladapt-token-conversion-table specifies how this is done. (defalias 'filladapt-make-fill-prefix #[(list) "\304\211\n\2035\n@@ \236A\211\305=\203!\306\307\n@8! B\202.\310=\203.\307\n@8 B\nA\211\204\311\312 \237\"*\207" [conversion-spec prefix-list list filladapt-token-conversion-table nil spaces filladapt-convert-to-spaces 2 exact apply concat] 4 (#$ . 163453)]) (defalias 'filladapt-paragraph-within-fill-tolerance #[nil "\300\301\215\207" [done (byte-code "\212 Z\304eb\210m\204'\n\203\305\306\304\"\210\202\n\304\210i W\307y\210\202\n+\310\207" [fill-column filladapt-fill-column-tolerance shortline low nil throw done 1 t] 3)] 2]) #@77 Return a copy of STRING, with all non-tabs and non-space changed to spaces. (defalias 'filladapt-convert-to-spaces #[(string) "\305\306\307G\310!\f W\203'\fH >\204 \f\nI\210\fT\211\202,\207" [string lim space space-list i 0 (32 9) 32 copy-sequence] 5 (#$ . 164159)]) #@282 Set fill-prefix based on the contents of the current line. If the first arg PARAGRAPH is non-nil, also set a clipping region around the current paragraph. If the second arg DEBUGGING is non-nil, don't do the kludge that's necessary to make certain paragraph fills work properly. (defalias 'filladapt-adapt #[(paragraph debugging) "\212\306 \210\307 \310\211\211\205\316\311\n!\f\203\315\310\211\312\n!\203(`\202b\212\310\204a\313y\314U\204>\315`\202+\316\n\307 \211\"\204S\317y\210\315`\202+\312 !\203+\315`\202+)\212\310\204\230\310\210\317y\314U\204z\315`\202e\316\n\307 \211\"\204\213\315`\202e\312 !\203e\315`\202e) }\210\f\203\314\204\314\310\320\n!@A@eb\210\321!\210e`{e`|\210 c\210\322\323\324\"\210)*\315,\207" [done curr-list token-list fill-prefix paragraph end beginning-of-line filladapt-parse-prefixes nil filladapt-make-fill-prefix filladapt-paragraph-start -1 0 t filladapt-tokens-match-p 1 filladapt-tail move-to-column add-hook filladapt-fill-paragraph-post-hook filladapt-cleanup-kludge-at-point-min beg debugging col filladapt-old-line-prefix] 5 (#$ . 164448)]) #@57 Cleanup the paragraph fill kludge. See filladapt-adapt. (defalias 'filladapt-cleanup-kludge-at-point-min #[nil "\212eb\210c\210\302 G!\210\303\304\305\")\207" [filladapt-old-line-prefix fill-prefix delete-char remove-hook filladapt-fill-paragraph-post-hook filladapt-cleanup-kludge-at-point-min] 3 (#$ . 165600)]) #@32 Returns the last cons in LIST. (defalias 'filladapt-tail #[(list) "\205A:\203A\211\202\207" [list] 2 (#$ . 165921)]) (defalias 'filladapt-delete-extent #[(e) "\301\302!\203\n\302!\207\303!\207" [e fboundp delete-extent delete-overlay] 2]) (defalias 'filladapt-make-extent #[(beg end) "\302\303!\203 \303 \"\207\304 \"\207" [beg end fboundp make-extent make-overlay] 3]) (defalias 'filladapt-set-extent-endpoints #[(e beg end) "\303\304!\203\f\304 \n#\207\305 \n#\207" [e beg end fboundp set-extent-endpoints move-overlay] 4]) (defalias 'filladapt-set-extent-property #[(e prop val) "\303\304!\203\f\304 \n#\207\305 \n#\207" [e prop val fboundp set-extent-property overlay-put] 4]) #@58 Toggle filladapt debugging on/off in the current buffer. (defalias 'filladapt-debug #[nil "\303\300!\210?\211\204\304\305 \"\210\n\203\306\n!\210\307\310\311\312\"\207" [filladapt-debug filladapt-debug-indentation-extents filladapt-debug-paragraph-extent make-local-variable mapc #[(e) "\301\302\211#\207" [e filladapt-set-extent-endpoints 1] 4] filladapt-delete-extent nil add-hook post-command-hook filladapt-display-debug-info-maybe] 4 (#$ . 166631)]) (defalias 'filladapt-display-debug-info-maybe #[nil "\204\306\207 \203\f\306\207\n\204*\307\310\211\"\311 \312\306#\210\311 \313\306#\210\311 \314\f#\210 )\212\214 \n\306\211\f\315\316\211\"\204_\317\310\211#\210\205\352\317@\310\211#\210A\211\202K\317ed#\210\320 \210\321 \322\323\324\325\326#\"\210\203\323\203\215@A\202\242\307\310\211\"\311 \312\306#\210\311 \313\306#\210 B\311 \314\f#\210\317 `\327@A@!\210`#\210\f=\203\306\f\202\312\fA\211\204|\205\352\317@\310\211#\210A\211\204\330\306.\207" [filladapt-debug fill-prefix filladapt-debug-paragraph-extent e filladapt-debug-paragraph-face filladapt-debug-indentation-extents nil filladapt-make-extent 1 filladapt-set-extent-property detachable evaporate face filladapt-adapt t filladapt-set-extent-endpoints beginning-of-line filladapt-parse-prefixes message "(%s)" mapconcat #[(q) "\301@!\207" [q symbol-name] 2] " " move-to-column filladapt-debug-indentation-face-1 token-list ep ei-list filladapt-debug-indentation-face-2] 7]) (byte-code "\305\306\307\"\210\305\310\311\"\210\312\313\314\315\316\317\320\321\322\323\324\325\326\327\330\331\332\333\334\335\336\337\340\341\342\343\344\345\346\347\350\351\352\353\354\355\356\357\360\361\362\363\364\365\366\367\315\370\371\372\373\374\375\376\377\201@ \201A\315\201B\201C\201D\201E\201F\201G\201H\201I\201J\201K\201L\201M\201N\201O\201P\201Q\201R\201S\201T\201U\201V\201W\201X\201Y\201Z\201[\201\\\201]\201^\201_\201`\201a\201b\201c\201d\201e\201f\201g\201h\201i\201j\201k\201l\201m\201n\201o\201p\201q\201r\201s\201t\315\201u\201v\201w\315\201x\201y\201z\201{\201|\201}\201~\201\315\201\200\n\205\201\201\201\202\201\203\201\204\201\205\201\206\201\207\201\210\315\201\211\201\212\201\213\315\201\214\201\215\201\216\201\217\315\201\220\201\221\201\222\201\223 \201\224\201\225\201\226\201\227\201\230\201\231\201\232\201\233\201\234\201\235\201\236\201\237\201\240\201\241\201\242\201\243\201\244\201\245\201\246\201\247\201\250\315\201\251\201\252\201\253\201\254\201\255\201\256\315\201\257\201\260\315\201\261\201\262\201\263\315\201\264\201\265\201\266\201\267\n?\205\303\201\270\201\271\201\272\201\273\201\274\201\275\201\276\201\277\201\300\201\301\201\302\201\303\201\304\201\305\201\306\201\307\201\310\315\201\311\201\312\201\313\201\314\201\315\201\316&\324\210\201\317\201\320\201\321\"\210\201\317\201\322\201\323\"\210\201\317\201\324\201\325\"\210\201\317\201\326\201\327\"\210\201\317\201\330\201\331\"\210\201\332\f\201\333P!\203X\201\334\f\201\335P\307\211#\210\311\207" [lisp-mode-shared-map read-expression-map window-system isearch-mode-map eli-dir set-default filladapt-mode t filladapt-mode-line-string nil define-keys help-map ("e" eliemacs-quickref) global ([(left)] backward-char) ([(control left)] backward-word) ([(meta left)] backward-sexp) ([(right)] forward-char) ([(control right)] forward-word) ([(meta right)] forward-sexp) ([(up)] eli-previous-line) ([(control up)] scroll-down-1-stay) ([(meta up)] backward-paragraph) ([(down)] eli-next-line) ([(control down)] scroll-up-1-stay) ([(meta down)] forward-paragraph) ([(home)] eli-beginning-of-line) ([(control home)] beginning-of-buffer) ([(meta home)] backward-sentence) ([(control meta home)] beginning-of-line) ([(control 99) (home)] beginning-of-line) ([(end)] eli-end-of-line) ([(control end)] end-of-buffer) ([(meta end)] forward-sentence) ([(prior)] scroll-down) ([(control prior)] scroll-down-1) ([(meta prior)] backward-page) ([(next)] scroll-up) ([(control next)] scroll-up-1) ([(meta next)] forward-page) ([(insert)] overwrite-mode) ([(shift insert)] yank) ([(control insert)] kill-ring-save) ([(meta insert)] yank-pop) ([(control shift insert)] eli-yank-really-pop) ([(meta shift insert)] eli-yank-really-pop) ([(delete)] delete-char) ([(shift delete)] eli-kill-region) ([(control delete)] kill-word) ([(meta delete)] kill-sexp) ([(control shift delete)] delete-word) ([(meta shift delete)] delete-sexp) ([(127)] eli-backward-delete-char-unindent) (backward-delete-char-untabify eli-backward-delete-char-unindent) ([(127)] eli-backward-delete-char-unindent) (backward-delete-char-untabify eli-backward-delete-char-unindent) ([(control backspace)] backward-kill-word) ([(meta backspace)] backward-kill-sexp) ([(control shift backspace)] backward-delete-word) ([(meta shift backspace)] backward-delete-sexp) ([(control tab)] eli-other-window) ([(control shift tab)] nil) ([(control meta tab)] indent-region) ([(shift tab)] eli-next-buffer-acyclic) ([(shift iso-lefttab)] eli-next-buffer-acyclic) ([(tab)] lisp-complete-symbol) ([(f1)] find-file) ([(control f1)] electric-buffer-list) ([(shift f1)] find-file-literally) ([(control shift f1)] speedbar-get-focus) ([(f2)] save-buffer) ([(control f2)] save-some-buffers) ([(shift f2)] eli-write-or-move-file) ([(control shift f2)] save-buffers-kill-emacs) ([(f3)] insert-file) ([(control f3)] insert-buffer) ([(shift f3)] insert-file-literally) ([(control shift f3)] insert-register) ([(f4)] eli-shell-command) ([(control f4)] eli-shell) ([(shift f4)] eli-shell-command-on-buffer) ([(control shift f4)] eli-term) ([(f5)] query-replace) ([(control f5)] replace-string) ([(shift f5)] query-replace-regexp) ([(control shift f5)] replace-regexp) ([(f6)] ispell-word) ([(control f6)] ispell-buffer) ([(shift f6)] ispell-region) ([(control shift f6)] ispell-complete-word) ([(control 120) (f6)] flyspell-mode) ([(27) (f6)] flyspell-mode) ([(f7)] isearch-forward) ([(control f7)] isearch-forward-regexp) ([(shift f7)] isearch-backward) ([(control shift f7)] isearch-backward-regexp) ([(f8)] eli-eval-last-sexp-or-region) ([(control 120) (control 101)] eli-eval-last-sexp-or-region) ([(control f8)] eval-buffer) ([(shift f8)] eval-region) ([(control shift f8)] load-file) ([(f9)] apropos) ([(control f9)] mode-compile) ([(shift f9)] grep) ([(control shift f9)] next-error) ([(control 99) (control right)] next-error) ([(control 99) (control left)] previous-error) ([(f10)] kill-buffer) ([(control f10)] kill-save-buffer) ([(shift f10)] tmm-menubar) ([(control shift f10)] kill-some-buffers) ([(f11)] eli-marker) ([(control f11)] eli-marker-copy) ([(f12)] delete-other-windows) ([(control f12)] goto-line) ([(shift f12)] goto-char) ([(control shift f12)] eli-toggle-lines-mode) ([(control 109)] newline-and-indent) ([(control 106)] newline) ([(control 92)] undo) ([(control 120) (end)] split-window-vertically) ([(control 120) (home)] split-window-horizontally) ([(control 120) (up)] shrink-window) ([(control 120) (down)] enlarge-window) ([(control 120) (left)] shrink-window-horizontally) ([(control 120) (right)] enlarge-window-horizontally) ([(control 120) (control left)] previous-buffer) ([(control 120) (control rightt)] next-buffer) ([(meta 40)] eli-insert-pair) ([(meta 91)] eli-insert-pair) ([(meta 123)] eli-insert-pair) ([(meta 60)] eli-insert-pair) ([(meta 34)] eli-insert-pair) ([(meta 39)] eli-insert-pair) ([(meta 96)] eli-insert-pair) ([(meta 42)] eli-insert-pair) ([(meta 95)] eli-insert-pair) ([27 27 61] counter-set) ([27 27 43] counter-increment) ([27 27 42] counter-insert) ([(control 84)] transpose-chars-backward) ([(meta 84)] transpose-words-backward) ([(control 120) (control 84)] transpose-lines-backward) ([(control meta 84)] transpose-sexps-backward) ([(meta 115)] isearch-forward-regexp) ([(meta 114)] isearch-backward-regexp) ([(meta 83)] isearch-backward-regexp) ([(control 83)] isearch-backward) ([(meta 115)] isearch-repeat-forward) ([(meta 83)] isearch-repeat-backward) ([(control 83)] isearch-repeat-backward) ([(f7)] isearch-repeat-forward) ([(control f7)] isearch-repeat-forward) ([(shift f7)] isearch-repeat-backward) ([(control shift f7)] isearch-repeat-backward) ([(meta 97)] isearch-highlight-regexp) ([(meta 119)] isearch-toggle-word) ([(meta 114)] isearch-toggle-regexp) ([(f5)] isearch-query-replace) ([(shift f5)] isearch-query-replace-regexp) ([(control 119)] isearch-yank-word) ([(control 102)] isearch-yank-char) ([(control 107)] isearch-yank-line) ([(control 121)] isearch-yank-kill) ([(control 116)] isearch-toggle-case-fold) ([(control 94)] isearch-edit-string) ([(127)] isearch-delete-char) ([(delete)] isearch-delete-char) ([(shift backspace)] isearch-del-char) ([(control 99) 107] global-set-key) ([(control 99) 108] local-set-key) ([(control 99) 98] buffer-local-set-key) ([(control 99) 75] global-unset-key) ([(control 99) 76] local-unset-key) ([(control 99) 66] buffer-local-unset-all) ([(control 99) 115] set-variable) ([(control 99) (control 115)] set-variable) ([(meta 122)] macro-key) ([(control 96)] self-recording-macro-key) ([(control 126)] self-recording-macro-key) ([(control 120) (f1)] eli-logo) ([(control 120) (f2)] maze) ([(control 120) (f12)] widen) ([(control return)] calculator) ([(meta control 109)] calculator) ([(meta 106)] eli-join-line) ([(control 59)] eli-toggle-comment-line) ([(meta shift 99)] eli-compare-two-buffers) ([(control shift 99)] compare-windows) ([(control 99) (control 110)] browse-url-at-point) ([(control 60)] eli-use-smaller-font) ([(control 62)] eli-use-larger-font) ([(control shift 102)] font-lock-mode) ([(control shift 108)] font-lock-fontify-buffer) ([(control shift 97)] add-color-pattern) ([(control shift 114)] remove-added-color-pattern) ([(control 120) (control shift 97)] set-regexp-face) ([(control 120) (control shift 114)] remove-set-face-overlays) ([(control 120) (control shift 111)] set-region-face) ([(meta 111) 111] set-region-face) ([(meta 111) (meta 111)] set-region-face) ([(shift down-mouse-1)] nil) ([(shift mouse-1)] mouse-save-then-kill) ([(mouse-3)] nil) ([(down-mouse-3)] mouse-major-mode-menu) ([(shift mouse-3)] nil) ([(shift down-mouse-3)] mouse-appearance-menu) eval-after-load "dired" (define-keys dired-mode-map '([(114)] wdired-change-to-wdired-mode) '([(119)] wdired-change-to-wdired-mode) '([(87)] dired-copy-filename-as-kill)) "info" (define-keys Info-mode-map '([(108)] Info-history-back) '([(127)] Info-history-back) '([(shift tab)] nil) '([(meta 115)] nil) '([(32)] Info-scroll-up) '([(shift 32)] Info-scroll-down)) "help-mode" (define-keys help-mode-map '([(108)] help-go-back) '([(98)] help-go-back) '([(102)] help-go-forward) '([(backspace)] help-go-back) '([(shift tab)] nil)) "cus-edit" (define-keys custom-mode-map '([(shift tab)] nil)) "view" (define-keys view-mode-map '([(32)] eli-View-scroll-page-forward) '([(shift 32)] eli-View-scroll-page-backward)) file-accessible-directory-p "extras" load "extras/extras"] 213) #@62 *The delay between steps in the display of the "Maze!" logo. (defvar eli-logo-delay (byte-code "\301\302!\211\205\f\303\304\")\203\305\207\306\207" [d getenv "DISPLAY" string-match "^:[0-9]+\\(.[0-9]+\\)?$" 0.1 0.5] 4) (#$ . -177761)) (byte-code "\302B\303\304\305\306\305\307\305\310\311\312\313\314\315\316\317\320\321\322\323\324\325\326\323\327\320\330\315\331\312\331\307\305\304\332 \333Q\334BBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBB!\207" [current-load-list eli-version MAZE-SCREEN (lambda (#1=#:defconst-tmp-var) (defconst MAZE-SCREEN #1#)) yellow/red4-bold #2="" " -----=====#####>>> Eli Barzilay: Maze is Life! <<<#####=====----- " */purple4 " MMM MMM AAA ZZZZZZZZZZZZZZ EEEEEEEEEEEEE !!! " " MMMM MMMM AAAAA ZZZZZZZZZZZZZZ EEEEEEEEEEEEE !!! " */purple3 " MMMMMM MMMMMM AAA AA ZZZ EEE !!! " " MMMMMMM MMMMMMM AAA AAA ZZZ EEE !!! " */purple2 " MMM MMMMM MMMMM MMM AAA AAA ZZZZ EEE !!! " " MMM MMM MMMM MMM AAA AA ZZZZ EEE !!! " */purple1 " MMM MMMM MMM AAAAAAAAAAAAA ZZZZ EEEEEEEEEE !!! " " MMM MM MMM AAAAAAAAAAAAA ZZZZ EEEEEEEEEE !!! " white/violet "...MMM..............MMM..AAA.......AAA.....ZZZZ.........EEE............!!!....." white/pink "...MMM..............MMM..AAA.......AAA...ZZZZ...........EEE............!!!....." "..MMM..............MMM..AAA.......AAA...ZZZ............EEE....................." " MMM MMM AAA AAA ZZZ EEE " " MMM MMM AAA AAA ZZZZZZZZZZZZZZ EEEEEEEEEEEEE !!! " " Eli's Emacs Environment " " " (" -----=====#####>>>---------------------------------<<<#####=====----- " #2# bold)] 36) (defalias 'eli-logo-draw #[(&optional msg) "\306\307!\310!\210\311 \210\312\313\211\313\314\315 \210\313\"\316 \317]#$$\203p$\211A$@\211%9\203A\320%!\202l%\321\322#%G\323#%\324\232\203W\325\202]%\211GSH\"\326Q%\327%\330#c\210))\202%&\203~\327&\330#c\210+\331\332\333\"\210\331\334\335\"\210\331\336\337\"\210\340\313!\210\341\313!\210eb)\207" [buf mode-line-format show-trailing-whitespace indicate-empty-lines indicate-buffer-boundaries truncate-lines get-buffer-create " *Welcome!* " switch-to-buffer delete-other-windows "-%-" nil t erase-buffer window-width 80 simple-make-face make-string - 1 "" 32 "\n" propertize face set-regexp-face " ---.*--- " yellow/red2-bold " Eli's.*Environment.*\\] " yellow/red2-bold-underline "\\([ .]\\)\\(\\([MAZE!]\\)\\3*\\)\\(\\3\\)" ((1 . yellow3/yellow3) (2 . yellow/yellow) (4 . white/white)) set-buffer-modified-p message MAZE-SCREEN w lines line msg] 7]) #@15 Maze is Life! (defalias 'eli-logo #[(&optional msg) "\306!\210p\307\310\216 \204H\311\307eb\210\312y\210\fS\211\313V\2037``T{\314\315!\210\307\210 c\210\307y\210)\202\316\307!\210eb\210\317\307\211 #*\202\n) *\207" [msg key buf c i eli-logo-delay eli-logo-draw nil ((byte-code "\301!\210\302\303!\207" [buf kill-buffer message nil] 2)) 15 4 0 delete-char 1 set-buffer-modified-p read-event] 4 (#$ . 180630) nil]) (defalias 'eli-use-desktop #[(load-buffers) "\306\307!\210\204\310\311M\210\312\313\314\"\210\315\316\317\320\321\316\211\322\323\244\324\244\325\326\327!\207" [load-buffers desktop-save desktop-load-locked-desktop desktop-path desktop-missing-file-warning desktop-file-name-format require desktop desktop-create-buffer #[(&rest _) "\300\207" [nil] 1] remove-hook kill-emacs-hook desktop-kill ask-if-new t ("." "~") nil absolute 5 ((extended-command-history . 60) (file-name-history . 100) (grep-history . 30) (minibuffer-history . 50) (query-replace-history . 60) (read-expression-history . 60) (regexp-history . 60) (shell-command-history . 50) (yes-or-no-p-history . 2) (faces-history . 40)) (word-wrap line-move-visual) "\\(^[ ]\\|^.completions$\\|\\(?:^/[^/:]*:\\)\\)" desktop-save-mode 1 desktop-restore-eager desktop-lazy-verbose desktop-lazy-idle-delay desktop-globals-to-save desktop-locals-to-save desktop-buffers-not-to-save] 4]) (byte-code "\300\301\302\"\210\300\301\303\304#\207" [add-hook emacs-startup-hook #[nil "\303\235\203 \304\303\"\211\207A?\211\203/\305\306!\211\250\203\"\n\202%\307\n!\211\310>\203.\311*\312 !\210\313 \210\314\311!)\207" [command-line-args load-buffers key "--fast" delete eli-logo "Hit any key to continue, escape/right-click: don't load previous desktop." event-basic-type (27 escape mouse-3) nil eli-use-desktop desktop-read message] 4] #[nil "\303 \204'\304\305Q\211\306 E\211\203&\307\n@!\210\310\311\312\"\205!\nA\211\204*\307\313!\207" [eli-version eli-msg msgs input-pending-p "---===###>>> Eli Barzilay: Maze is Life! " " <<<###===---" "Use `C-h e' for a quick reference." message sit-for 3 t nil] 4] t] 4)