;ELC   
;;; compiled by jwz@thalidomide on Fri Apr  8 00:24:19 1994
;;; from file /th/jwz/emacs19/lisp/electric/electric.el
;;; emacs version 19.10 Lucid (beta12).
;;; bytecomp version 2.23; 22-dec-93.
;;; 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")))
    (error "This file was compiled for Emacs 19."))

(byte-code "ÀÁ!ˆÂÃMˆÄÅM‡" [provide electric Electric-command-loop #[(return-tag &optional prompt inhibit-quit loop-function loop-state) "¬‚ÁÂ‰Å;«ƒª‚ !¬„‰GSH	Ê	!¬ŒË	!¬†Ì	!­‚	Ì	!«„	ªƒÎ!‰Â¬‰Ð!=«¢ÂÂÔ GÕU¬„¬× ˆØÙ!ˆÚÂ\"ˆª‚Â«‡ÝÞßˆªƒ× ˆ ƒ	  !\"ˆ‚	 " [prompt "->" nil err cmd read-key-sequence prefix-arg this-command last-command last-command-event button-press-event-p button-release-event-p menu-event-p current-mouse-event key-binding quit-flag event-to-character last-input-event interrupt-char unread-command-event this-command-keys 1 inhibit-quit ding message "Quit" throw return-tag current-prefix-arg conditions (byte-code "À	!«“pÃ	!ˆ\np=¬…Äp\"ˆ)ª„Æ	!ˆ	Ê	¬‰Ë!=«˜Ê¬ŽÐ ˆÑÒ!ˆÄÊ\"ˆªƒÐ ˆÊ‡" [eventp cmd b dispatch-event throw return-tag command-execute this-command last-command quit-flag nil event-to-character last-input-event interrupt-char unread-command-event inhibit-quit ding message "Quit"] 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] Electric-pop-up-window #[(buffer &optional max-height) "À	!®‚Â Ä	!ÆÇ!Ç	ÊÊ¬†ÍÎ	\"ªíŠqˆÏed\"«ˆT^ªƒT]Ò‹^)Ó!=«†Ô!ˆªŸ«—Õ!bˆÖ	!ˆÂ ×Ø!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]] 2)