;ELC ;;; Compiled by cyd@localhost on Mon Apr 23 22:20:45 2007 ;;; from file /home/cyd/emacs/lisp/electric.el ;;; in Emacs version 22.0.99 ;;; with all optimizations. ;;; This file uses dynamic docstrings, first added in Emacs 19.29. (if (and (boundp 'emacs-version) (< (aref emacs-version (1- (length emacs-version))) ?A) (or (and (boundp 'epoch::version) epoch::version) (string-lessp emacs-version "19.29"))) (error "`electric.el' was compiled for Emacs 19.29 or later")) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (defalias 'Electric-command-loop #[(return-tag &optional prompt inhibit-quit loop-function loop-state) "\306\211;\204\306=\204\307=\204  ;\204, \307=\203*\306\202,\310\311 !\211\211GSH\312 \313\"\211\314\306\204O\315=\203t\306\211\316 G\317U\204b\204r\320 \210\321\322!\210\323\306\"\210\202t\306 \203\204\324\325\326\217\210\202\207\320 \210\203 \n\"\210\202" [prompt prompt-string err cmd last-command-char this-command nil noprompt "->" read-key-sequence key-binding t 0 7 this-command-keys 1 ding message "Quit" throw conditions (byte-code "\306!\210  \307\204\f\310=\203,\307 \204)\311 \210\312\313!\210\314\307\"\210\202,\311 \210\307\207" [cmd this-command last-command quit-flag last-input-char unread-command-events command-execute nil 7 ding message "Quit" throw inhibit-quit return-tag] 3) ((buffer-read-only (byte-code "\203 \202\303 \210\304\305!\210\306\307!\210\303\207" [loop-function conditions err ding message "Buffer is read-only" sit-for 2] 2)) (beginning-of-buffer (byte-code "\203 \202\303 \210\304\305!\210\306\307!\210\303\207" [loop-function conditions err ding message "Beginning of Buffer" sit-for 2] 2)) (end-of-buffer (byte-code "\203 \202\303 \210\304\305!\210\306\307!\210\303\207" [loop-function conditions err ding message "End of Buffer" sit-for 2] 2)) (error (byte-code "\203 \202$\303 \210\304\305 @\306=\203 A@\202\307 !\"\210\310\311!\210\303\207" [loop-function conditions err ding message "Error: %s" error prin1-to-string sit-for 2] 4))) universal-argument-num-events quit-flag last-input-char unread-command-events prefix-arg inhibit-quit return-tag current-prefix-arg loop-function loop-state] 4]) (defalias 'Electric-pop-up-window #[(buffer &optional max-height) "\306!\206\307 \310!\311\312!\312\313\n\204 \314\315\"\202K\316 !\n=\203/\317 !\210\202A \203=\320!\210\307 \202A\321\n!\210\322 \"\210eb\210 -\207" [buffer win buf one-window pop-up-windows pop-up-frames get-buffer-window selected-window get-buffer one-window-p t nil error "Buffer %s does not exist" window-buffer select-window pop-to-buffer switch-to-buffer fit-window-to-buffer max-height] 3]) (provide 'electric)