;ELC ;;; Compiled by pot@pot.cnuce.cnr.it on Tue Mar 18 15:38:48 2003 ;;; from file /home/pot/gnu/emacs-pretest.new/lisp/electric.el ;;; in Emacs version 21.3 ;;; with bytecomp version 2.85.4.1 ;;; 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\306\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\313\n\204#\314\315\"\202\223\212\nq\210\316ed\"\203;T^\202>T]\317\213^)\320 !\n=\203U\321 !\210\202t \203p\322 !b\210\323!\210\307 \324 \325 !Z!\210\202t\326\n!\210\204\217 \325\307 !V\203\217\322 !b\210\324 \325 !Z!\210eb\210 .\207" [buffer win buf one-window pop-up-windows target-height get-buffer-window selected-window get-buffer one-window-p t nil error "Buffer %s does not exist" count-lines ((byte-code "\300 \210\301\302 !S\207" [delete-other-windows window-height selected-window] 2)) window-buffer select-window window-start pop-to-buffer enlarge-window window-height switch-to-buffer lines max-height window-min-height] 4]) (provide 'electric)