;ELC   
;;; compiled by rms@mole.gnu.ai.mit.edu on Fri Apr  5 16:12:03 1996
;;; from file /gd/gnu/emacs/19.0/lisp/electric.el
;;; emacs version 19.30.95.1.
;;; bytecomp version FSF 2.10
;;; optimization is on.
;;; this file uses opcodes which do not exist in Emacs 18.

(if (and (boundp 'emacs-version)
	 (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) "À‰		;„ 	À=„ 	Å=„ 	 \n;„, \nÅ=ƒ* À‚, ÆÇ\n!‰‰GSHÉ\fÊ\"‰ÌÀ„Q Ð=ƒv ÀÀÓ GÔU„d „t Ö ˆ×Ø!ˆÙÀ\"ˆ‚v À\fƒ† ÜÝÞ�ˆ‚‰ Ö ˆƒ  \"ˆ‚ " [nil prompt prompt-string err cmd noprompt "->" read-key-sequence last-command-char key-binding t this-command 0 universal-argument-num-events quit-flag last-input-char 7 unread-command-events prefix-arg this-command-keys 1 inhibit-quit ding message "Quit" throw return-tag current-prefix-arg conditions (byte-code "À	!ˆ\n\fÅ„ Ç=ƒ. Å	„+ Ê ˆËÌ!ˆÍÅ\"ˆ‚. Ê ˆÅ‡" [command-execute cmd this-command last-command quit-flag nil last-input-char 7 unread-command-events inhibit-quit ding message "Quit" throw return-tag] 3) ((buffer-read-only (byte-code "ƒ	 	‚ Ã ˆÄÅ!ˆÆÇ!ˆÃ‡" [loop-function conditions err ding message "Buffer is read-only" sit-for 2] 2)) (beginning-of-buffer (byte-code "ƒ	 	‚ Ã ˆÄÅ!ˆÆÇ!ˆÃ‡" [loop-function conditions err ding message "Beginning of Buffer" sit-for 2] 2)) (end-of-buffer (byte-code "ƒ	 	‚ Ã ˆÄÅ!ˆÆÇ!ˆÃ‡" [loop-function conditions err ding message "End of Buffer" sit-for 2] 2)) (error (byte-code "ƒ	 	‚$ Ã ˆÄÅ	@Æ=ƒ 	A@‚ Ç	!\"ˆÈÉ!ˆÃ‡" [loop-function conditions err ding message "Error: %s" error prin1-to-string sit-for 2] 4))) loop-function loop-state] 4])
(defalias 'Electric-pop-up-window #[(buffer &optional max-height) "À	!† Â Ä	!ÆÇ!Ç	ÊÊ\f„& ÍÎ	\"‚› ŠqˆÏed\"\fƒ> \fT^‚A \fT]Ò‹^)Ó!=ƒY Ô!ˆ‚z ƒv Õ!bˆÖ	!ˆÂ ×Ø!Z!ˆ‚z Ù!ˆ„— ØÂ !Vƒ— Õ!bˆ×Ø!Z!ˆebˆ.‡" [get-buffer-window buffer selected-window win get-buffer buf one-window-p t one-window pop-up-windows nil target-height lines error "Buffer %s does not exist" count-lines max-height window-min-height ((byte-code "À ˆÁÂ !S‡" [delete-other-windows window-height selected-window] 2)) window-buffer select-window window-start pop-to-buffer enlarge-window window-height switch-to-buffer] 4])
(provide (quote electric))
