;ELC   
;;; compiled by jwz@thalidomide on Sat Nov 13 18:00:03 1993
;;; from file /th/jwz/emacs19/lisp/prim/cmdloop1.el
;;; emacs version 19.9 Lucid.
;;; bytecomp version 2.20; 20-oct-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."))

(fset 'recursive-edit #[nil "TБ €pВГ !=?­ЃpЕЋЖЗЌ«…ИЙК\"€+К‡" [command-loop-level redraw-mode-line window-buffer selected-window _buf ((byte-code "«ѓq€Б ‡" [_buf redraw-mode-line] 1)) exit (byte-code "А‰А!€Єz" [t standard-input standard-output command-loop] 2) signal quit nil] 3 "\
Invoke the editor command loop recursively.
To get out of the recursive edit, a command can do `(throw 'exit nil)';
that tells this function to return.
Alternately, `(throw 'exit t)' makes this function signal an error." nil])
(fset 'command-loop #[(_catch_errors) "АВ¬ѓЕ ‡Ж ЗV«€ИЙКЏ­–Єx«…ИМНЏ€ЛОЌ€П ­ѓРВ!‡" [nil prefix-arg t last-command _catch_errors command-loop-1 recursion-depth 0 e (command-loop-1) ((t (command-error e) t)) top-level (byte-code "АБЌ‡" [top-level (eval top-level)] 2) ((t (command-error e))) (byte-code "АБВЏ¬zА‡" [e (command-loop-1) ((t (command-error e) t))] 3) noninteractive kill-emacs] 3 "\
This function is the default value of the variable command-loop."])
(byte-code "АБ‰\"‡" [set-default command-loop] 3)