;ELC ;;; compiled by jimb@geech.gnu.ai.mit.edu on Mon Jul 5 22:55:46 1993 ;;; from file /gd/gnu/emacs/19.0/lisp/electric.el ;;; emacs version 19.15.16. ;;; 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"))) (error "This file was compiled for Emacs 19")) (byte-code "\"\"!" [defalias Electric-command-loop #[(return-tag &optional prompt inhibit-quit loop-function loop-state) "‰; !GSH !  5\n=Z  GUHX !\"Z  jُm \n \"\n" [prompt "->" nil err cmd read-key-sequence last-command-char key-binding this-command 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 =. + !\". Ň" [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] Electric-pop-up-window #[(buffer &optional max-height) " !  !!   & \" qed\" > T^A T]ҋ^ ) ! =Y !zv !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 electric] 3)