;ELC   
;;; compiled by kwzh@hal.gnu.ai.mit.edu on Fri Aug 26 23:30:50 1994
;;; from file /gd/gnu/emacs/19.0/lisp/edebug.el
;;; emacs version 19.25.94.8.
;;; 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 "`/gd/gnu/emacs/19.0/lisp/edebug.el' was compiled for Emacs 19"))

(byte-code "ААВГ	\"Д•O)ЖЗ!€ИЙ!„ ЙКM€Л\fВ‡" ["$Revision: 3.5.1.10 $" raw-version string-match "[0-9.]*" 0 edebug-version require backquote fboundp defalias fset "liberte@cs.uiuc.edu" edebug-maintainer-address] 4)
(defalias 'edebug-submit-bug-report #[nil "АБ!€ВГ!…! ДЖPИЙКЛМНОПРСТУФХЇ#‡" [require reporter y-or-n-p "Do you really want to submit a report on edebug? " reporter-submit-bug-report edebug-maintainer-address "edebug.el " edebug-version edebug-setup-hook edebug-all-defs edebug-all-forms edebug-eval-macro-args edebug-stop-before-symbols edebug-save-windows edebug-save-displayed-buffer-points edebug-initial-mode edebug-trace edebug-test-coverage edebug-continue-kbd-macro edebug-print-length edebug-print-level edebug-print-circle] 17 "\
Submit, via mail, a bug report on edebug." nil])
(defvar edebug-setup-hook nil "\
*Functions to call before edebug is used.
Each time it is set to a new value, Edebug will call those functions
once and then `edebug-setup-hook' is reset to nil.  You could use this
to load up Edebug specifications associated with a package you are
using but only when you also use Edebug.")
(defvar edebug-all-defs nil "\
*If non-nil, evaluation of any defining forms will instrument for Edebug.
This applies to `eval-defun', `eval-region', `eval-buffer', and
`eval-current-buffer'.  `eval-region' is also called by
`eval-last-sexp', and `eval-print-last-sexp'.

You can use the command `edebug-all-defs' to toggle the value of this
variable.  You may wish to make it local to each buffer with
(make-local-variable 'edebug-all-defs) in your
`emacs-lisp-mode-hook'.")
(defvar edebug-all-forms nil "\
*Non-nil evaluation of all forms will instrument for Edebug.
This doesn't apply to loading or evaluations in the minibuffer.
Use the command edebug-all-forms to toggle the value of this option.")
(defvar edebug-eval-macro-args nil "\
*Non-nil means all macro call arguments may be evaluated.  
If this variable is nil, the default, edebug will *not* wrap
macro call arguments as if they will be evaluated.  
For each macro, a edebug-form-spec overrides this option.
So to specify exceptions for macros that have some arguments evaluated
and some not, you should specify an edebug-form-spec.

This option is going away soon.")
(defvar edebug-stop-before-symbols nil "\
*Non-nil causes Edebug to stop before symbols as well as after.  
In any case, a breakpoint or interrupt may stop before a symbol.

This option is going away soon.")
(defvar edebug-save-windows t "\
*If non-nil, Edebug saves and restores the window configuration.
That takes some time, so if your program does not care what happens to
the window configurations, it is better to set this variable to nil.

If the value is a list, only the listed windows are saved and
restored.  

`edebug-toggle-save-windows' may be used to change this variable.")
(defvar edebug-save-displayed-buffer-points nil "\
*If non-nil, save and restore point in all displayed buffers.

Saving and restoring point in other buffers is necessary if you are
debugging code that changes the point of a buffer which is displayed
in a non-selected window.  If Edebug or the user then selects the
window, the buffer's point will be changed to the window's point.

Saving and restoring point in all buffers is expensive, since it
requires selecting each window twice, so enable this only if you need
it.")
(defvar edebug-initial-mode (quote step) "\
*Initial execution mode for Edebug, if non-nil.  If this variable
is non-@code{nil}, it specifies the initial execution mode for Edebug
when it is first activated.  Possible values are step, next, go,
Go-nonstop, trace, Trace-fast, continue, and Continue-fast.")
(defvar edebug-trace nil "\
*Non-nil means display a trace of function entry and exit.
Tracing output is displayed in a buffer named `*edebug-trace*', one
function entry or exit per line, indented by the recursion level.  

You can customize by replacing functions `edebug-print-trace-before'
and `edebug-print-trace-after'.")
(defvar edebug-test-coverage nil "\
*If non-nil, Edebug tests coverage of all expressions debugged.
This is done by comparing the result of each expression
with the previous result. Coverage is considered OK if two different
results are found.

Use `edebug-display-freq-count' to display the frequency count and
coverage information for a definition.")
(defvar edebug-continue-kbd-macro nil "\
*If non-nil, continue defining or executing any keyboard macro.
Use this with caution since it is not debugged.")
(defvar edebug-print-length 50 "\
*Default value of print-length to use while printing results in edebug.")
(defvar edebug-print-level 50 "\
*Default value of print-level to use while printing results in edebug.")
(defvar edebug-print-circle t "\
*Default value of print-circle to use while printing results in edebug.")
(defvar edebug-unwrap-results nil "\
*Non-nil if Edebug should unwrap results of expressions.
This is useful when debugging macros where the results of expressions
are instrumented expressions.  But don't do this when results might be
circular or an infinite loop will result.")
(defvar edebug-on-error t "\
*Value bound to `debug-on-error' while Edebug is active.

If `debug-on-error' is non-nil, that value is still used.

If the value is a list of signal names, Edebug will stop when any of
these errors are signaled from Lisp code whether or not the signal is
handled by a `condition-case'.  This option is useful for debugging
signals that *are* handled since they would otherwise be missed.
After execution is resumed, the error is signaled again.")
(defvar edebug-on-quit t "\
*Value bound to `debug-on-quit' while Edebug is active.")
(defvar edebug-global-break-condition nil "\
*If non-nil, an expression to test for at every stop point.
If the result is non-nil, then break.  Errors are ignored.")
(defalias 'def-edebug-spec '(macro . #[(symbol spec) "АБ\nDГБ\fDF‡" [put quote symbol (quote edebug-form-spec) spec] 5 "\
Set the edebug-form-spec property of SYMBOL according to SPEC.
Both SYMBOL and SPEC are unevaluated. The SPEC can be 0, t, a symbol
(naming a function), or a list."]))
(defalias 'def-edebug-form-spec '(macro . #[(symbol spec-form) "АБ!€ВГДЕ#‡" [message "Obsolete: use def-edebug-spec instead." put symbol edebug-form-spec (eval spec-form)] 4 "\
For compatibility with old version.  Use def-edebug-spec instead."]))
(byte-code "АБВ\"€ГД!„ ЕЖ!„ ЗИЖЙК#€ДЛM€А‡" [defalias get-edebug-spec #[(symbol) "БNВ‰9ѓ 	БN‰ѓ ‰‚ 	*‡" [symbol edebug-form-spec nil indirect] 3] fboundp gensym boundp *gensym-index* 0 put variable-documentation "Integer used by gensym to produce new names." #[(&optional prefix) "„ БВГ„' PЗ\\И\f!„\n Й\f!‰ѓ *‡" [prefix "G" nil "" newname newsymbol *gensym-index* 1 intern-soft make-symbol] 3 "Generate a fresh uninterned symbol.\nThere is an  optional argument, PREFIX.  PREFIX is the\nstring that begins the new name. Most people take just the default,\nexcept when debugging needs suggest otherwise."]] 4)
(defalias 'lambda-list-keywordp #[(object) "9…\f Б!ВHГU‡" [object symbol-name 0 38] 2 "\
Return t if OBJECT is a lambda list keyword.
A lambda list keyword is a symbol that starts with "])
(defalias (quote edebug-last-sexp) #[nil "АЉБВ!€`)`{!@‡" [read-from-string forward-sexp -1] 3])
(defalias 'edebug-window-list #[nil "А ‰CГ	!‰	=„ \f\nBГ\f!‰‚ \nџ+‡" [selected-window first-window window-list next-window next] 3 "\
Return a list of windows, in order of next-window."])
(defalias 'edebug-window-live-p #[(window) "А В	Г\"‰=„ \f	=„ В\fГ\"‰‚	 \f*=‡" [selected-window first-window next-window t next window] 4 "\
Return non-nil if WINDOW is visible."])
(byte-code "АБВ\"€ГБДЕ#‡" [defalias edebug-lookup-function #[(object) "9ѓ Б!ѓ K‰‚ ‡" [object fboundp] 3] put byte-optimizer byte-compile-inline-expand] 4)
(defalias 'edebug-macrop #[(object) "‰9ѓ Б!ѓ K‰‚ )‰<…+ @В=…+ ГA!…+ ‡" [object fboundp macro edebug-functionp] 4 "\
Return the macro named by OBJECT, or nil if it is not a macro."])
(defalias 'edebug-functionp #[(object) "‰9ѓ Б!ѓ K‰‚ )В!„0 <…1 @Г=…1 A@<…1 ‡" [object fboundp subrp lambda] 4 "\
Returns the function named by OBJECT, or nil if it is not a function."])
(defalias (quote edebug-sort-alist) #[(alist function) "А	В\"‡" [sort alist #[(e1 e2) "	@\n@\"‡" [function e1 e2] 3]] 3])
(defconst edebug-trace-buffer "*edebug-trace*" "\
Name of the buffer to put trace info in.")
(byte-code "АБВ\"€АГД\"€АЕЖ\"€АЗИ\"€АЙК\"€АЛМ\"€АНО\"€АПР\"€СТУ\"€ФХ!„9 АХЦK\"€А‡" [defalias edebug-pop-to-buffer #[(buffer &optional window) "А	!ѓ В	!ѓ Г	!\f=ѓ 	‚) ГЕ !\f=ѓ& Е ‚) Ж\f!‰ѓ5 З	!€‚L И ѓ= Й €К!М =„L ЗМ !€НЕ \f\"€ОЕ П\"‡" [windowp window edebug-window-live-p window-buffer buffer selected-window edebug-get-buffer-window select-window one-window-p split-window get-buffer-window edebug-trace-buffer next-window set-window-buffer set-window-hscroll 0] 4] edebug-get-displayed-buffer-points #[nil "ЉА В	!ДД	=„* З!‰q€`BBВ!‰‚ -‡" [selected-window first-window next-window next nil buffer-point-list buffer window-buffer] 3] edebug-set-buffer-points #[(buffer-points) "pБВ\"€q)‡" [current-buffer mapcar #[(buf-point) "А	@!… 	@q€	Ab‡" [buffer-name buf-point] 2] buffer-points] 3] edebug-current-windows #[(which-windows) "<ѓ\n БВ\"‡Г ‡" [which-windows mapcar #[(window) "А	!… 	В	!Г	!Д	!Е	!Ї‡" [edebug-window-live-p window window-buffer window-point window-start window-hscroll] 6] current-window-configuration] 3] edebug-set-windows #[(window-info) "<ѓ\n БВ\"‡Г!‡" [window-info mapcar #[(one-window-info) "… БВ\"‡" [one-window-info apply #[(window buffer point start hscroll) "А	!… В	\"€Д	\"€Ж	\"€И		\"‡" [edebug-window-live-p window set-window-buffer buffer set-window-point point set-window-start start set-window-hscroll hscroll] 3]] 3] set-window-configuration] 3] edebug-get-buffer-window get-buffer-window edebug-sit-for sit-for edebug-input-pending-p input-pending-p require eval-reg "eval-reg" fboundp edebug-original-read read] 3)
(defalias 'edebug-read #[(&optional stream) "„ 	p=ѓ В ‡Г!‡" [stream standard-input edebug-read-and-maybe-wrap-form edebug-original-read] 2 "\
Read one Lisp expression as text from STREAM, return as Lisp object.
If STREAM is nil, use the value of `standard-input' (which see).
STREAM or the value of `standard-input' may be:
 a buffer (read from point and advance it)
 a marker (read from where it points and advance it)
 a function (call it with no arguments for each character,
     call it with a char as argument to push a char back)
 a string (takes text from string, starting at the beginning)
 t (read text line using minibuffer and use it).

This version, from Edebug, maybe instruments the expression. But the
STREAM must be the current buffer to do so.  Whether it instuments is
also dependent on the values of `edebug-all-defs' and
`edebug-all-forms'."])
(byte-code "АБ!„\f ВБГK\"€А‡" [fboundp edebug-original-eval-defun defalias eval-defun] 3)
(defalias 'edebug-eval-defun #[(edebug-it) "?	?=?ВЕ\f	?=З *!\f„! И!‚\" *‡" [edebug-it edebug-all-defs nil edebug-result edebugging eval edebug-all-forms edebug-read-top-level-form princ] 4 "\
Evaluate the top-level form containing point, or after point.

This version, from Edebug, has the following differences: With a
prefix argument instrument the code for Edebug.  If `edebug-all-defs' is
non-nil, then the code is instrumented *unless* there is a prefix
argument.  If instrumenting, it prints: \"Edebug: <function name>\".
Otherwise, it prints in the minibuffer." "P"])
(defalias (quote edebug-defun) (quote edebug-eval-top-level-form))
(defalias 'edebug-eval-top-level-form #[nil "АБ‰Д *!‡" [eval t edebug-all-defs edebug-all-forms edebug-read-top-level-form] 3 "\
Evaluate a top level form, such as a defun or defmacro.
This is like `eval-defun', but the code is always instrumented for Edebug.
Print its name in the minibuffer and leave point where it is,
or if an error occurs, leave point after it with mark at the original
point." nil])
(byte-code "АБВ\"€АГД\"‡" [defalias edebug-read-top-level-form #[nil "`Б €В €Г b€)‡" [starting-point end-of-defun beginning-of-defun edebug-read-and-maybe-wrap-form] 2] edebug-all-defuns edebug-all-defs] 3)
(defalias 'edebug-all-defs #[nil "?БВѓ Г‚ Д\"‡" [edebug-all-defs message "Edebugging all definitions is %s." "on" "off"] 3 "\
Toggle edebugging of all definitions." nil])
(defalias 'edebug-all-forms #[nil "?БВѓ Г‚ Д\"‡" [edebug-all-forms message "Edebugging all forms is %s." "on" "off"] 3 "\
Toggle edebugging of all forms." nil])
(byte-code "АБВ\"€АГД\"€ЕЖ!€ЗАИЙ\"€АКЛ\"€МКНО#€АПР\"€МПНО#€АСТ\"€МСНО#€АУФ\"€МУНО#€АХЦ\"€АЧШ\"€АЩЪ\"€АЫЬ\"€АЭЮ\"€Яаб\"в#$#еWѓ{ $#жI€#T‰#‚f $зиI€$йкI€$лмI€$ноI€$прI€$стI€$уфI€$хцI€$чшI€$*9Аъы\"€Аьэ\"€Аюя\"€З@ЗAЗBЗCАЃD ЃE \"€МЃD НО#€АЃF ЃG \"€АЃH ЃI \"€АЃJ ЃK \"€МЃL ЃM ЃN #€МЃL ЃO ЃP #€АЃL ЃQ \"€ЃR SАЃT ЃU \"€АЃV ЃW \"€АЃX ЃY \"€АЃZ Ѓ[ \"€АЃ\\ Ѓ] \"€АЃ^ Ѓ_ \"€АЃ` Ѓa \"€Ѓb Ѓc !„oЗcАЃd Ѓe \"€АЃf Ѓg \"€МЃf НО#€АЃh Ѓi \"€МЃh НО#€АЃj Ѓk \"€МЃj НО#€АЃl Ѓm \"€МЃl НО#€АЃn Ѓo \"€МЃn НО#€АЃp Ѓq \"€АЃr Ѓs \"€МЃr НО#€АЃt Ѓu \"€АЃv Ѓw \"€АЃx Ѓy \"€Ѓb Ѓz !„ЗzЗ{З|З}З~АЃ ЃЂ \"€АЃЃ Ѓ‚ \"€АЃѓ Ѓ„ \"‡" [defalias edebug-install-read-eval-functions #[nil "АKБ=?… В €ГАБ\"€ГДЕ\"‡" [read edebug-read elisp-eval-region-install defalias eval-defun edebug-eval-defun] 3 nil nil] edebug-uninstall-read-eval-functions #[nil "А €БВГK\"€БДЕK\"‡" [elisp-eval-region-uninstall defalias read edebug-original-read eval-defun edebug-original-eval-defun] 3 nil nil] make-variable-buffer-local edebug-form-data nil edebug-make-form-data-entry #[(symbol begin end) "	\nE‡" [symbol begin end] 3] edebug-form-data-name #[(entry) "@‡" [entry] 1] put byte-optimizer byte-compile-inline-expand edebug-form-data-begin #[(entry) "A@‡" [entry] 1] edebug-form-data-end #[(entry) "А	8‡" [2 entry] 2] edebug-set-form-data-entry #[(entry name begin end) "	 €A@\nГ“€Д8Г“‡" [entry name begin nil 2 end] 3] edebug-get-form-data-entry #[(pnt &optional end-point) "БВѓb ЖWѓb @‰‰A@)	Z\nAЖ\nXѓ^ \nWѓ^ ѓI М8)Uѓ^ 	М8)Xѓ^ \n+‚ \f+‡" [edebug-form-data nil 999999 closest-dist closest-entry rest 0 entry begin pnt dist end-point 2] 4] edebug-form-data-symbol #[nil "А`!‰@)† ВГ!‡" [edebug-get-form-data-entry entry error "Not inside instrumented form"] 3] edebug-make-top-form-data-entry #[(new-entry) "А	!€	\nB‰‡" [edebug-clear-form-data-entry new-entry edebug-form-data] 2] edebug-clear-form-data-entry #[(entry) "…\n Б\n\"‰‡" [entry delq edebug-form-data] 3] edebug-syntax-error #[(&rest args) "АБ\n\"‡" [signal invalid-read-syntax args] 3] make-vector 256 symbol 0 i table 33 space 40 lparen 41 rparen 39 quote 34 string 63 char 91 lbracket 93 rbracket 46 dot 35 hash edebug-read-syntax-table edebug-next-token-class #[nil "А €	gH‡" [edebug-skip-whitespace edebug-read-syntax-table] 2] edebug-skip-whitespace #[nil "АБw€gВU… ГБw€АБw€‚ ‡" [" 	\n\f" nil 59 "^\n"] 2] edebug-read-sexp #[nil "А ‰В=ѓ Гp!\fhHВ=„B Еu€‚B 	Ж=ѓ/ Гp!hЗU„B Еu€‚B 	И=ѓ? Йu€ИК D‚B Гp!)‡" [edebug-next-token-class class symbol edebug-original-read edebug-read-syntax-table -1 string 34 quote 1 edebug-read-sexp] 4] edebug-offsets edebug-offsets-stack edebug-current-offset edebug-read-dotted-list edebug-initialize-offsets #[nil "А‰‡" [nil edebug-current-offset] 2] edebug-store-before-offset #[(point) "C\nѓ \n	\nABЎ€‚ 	ДД	B	‰)‡" [point new-offset edebug-current-offset edebug-offsets nil edebug-offsets-stack edebug-read-dotted-list] 3] edebug-store-after-offset #[(point) "„ 	‰AџЎ€‚ В	‰AAџ	A@A¤Ў€	¤\fA‰@‰‡" [edebug-read-dotted-list edebug-current-offset nil point edebug-offsets-stack] 4] edebug-ignore-offset #[nil "‰AAЎ‡" [edebug-current-offset] 2] edebug-storing-offsets edebug-form-spec (form body) lisp-indent-hook 1 (macro . #[(point &rest body) "АБВD\fBBЕBB‡" [unwind-protect progn edebug-store-before-offset point body ((edebug-store-after-offset (point)))] 4]) ((symbol . edebug-read-symbol) (lparen . edebug-read-list) (string . edebug-read-string) (quote . edebug-read-quote) (lbracket . edebug-read-vector) (hash . edebug-read-function)) edebug-read-alist edebug-read-storing-offsets #[(stream) "А Б‰ЕЋЖ`!€\fћ‰ѓ A!‚\" Й!,‡" [edebug-next-token-class nil edebug-read-dotted-list func class ((byte-code "А`!‡" [edebug-store-after-offset] 2)) edebug-store-before-offset edebug-read-alist stream edebug-original-read] 3] edebug-read-symbol #[(stream) "А	!\nhHГ=„ Дu€‡" [edebug-original-read stream edebug-read-syntax-table symbol -1] 3] edebug-read-string #[(stream) "А	!hВU„\f Гu€‡" [edebug-original-read stream 34 -1] 3] edebug-read-quote #[(stream) "Аu€БЋВ`!€)ГД!D‡" [1 ((byte-code "А`!‡" [edebug-store-after-offset] 2)) edebug-store-before-offset quote edebug-read-storing-offsets stream] 3] edebug-read-function #[(stream) "Аu€gБU„ ВГ!€Аu€ДЋЕ`!€ЖЗ!ѓ  И‚! Й)К!D‡" [1 39 edebug-syntax-error "Bad char" ((byte-code "А`!‡" [edebug-store-after-offset] 2)) edebug-store-before-offset featurep cl function* function edebug-read-storing-offsets stream] 3] edebug-read-list #[(stream) "Аu€БГ Д>„ Е!\nB‚ \nџГ З=ѓB БАu€Е!\n¤€Г Й=„< КЛ!€<\f)\n)Аu€‡" [1 nil elements edebug-next-token-class (rparen dot) edebug-read-storing-offsets stream dot dotted-form rparen edebug-syntax-error "Expected `)'" edebug-read-dotted-list] 2] edebug-read-vector #[(stream) "Аu€БГ Д=„ Е!\nB‚ ЗИ\nџ\")Аu€‡" [1 nil elements edebug-next-token-class rbracket edebug-read-storing-offsets stream apply vector] 3] boundp edebug-dotted-spec edebug-new-cursor #[(expressions offsets) "А	!ѓ В	Г\"	\fB‡" [vectorp expressions append nil offsets] 3] edebug-set-cursor #[(cursor expressions offsets) "	 €\nЎ€‡" [cursor expressions offsets] 2] edebug-cursor-expressions #[(cursor) "@‡" [cursor] 1] edebug-cursor-offsets #[(cursor) "A‡" [cursor] 1] edebug-empty-cursor #[(cursor) "@?‡" [cursor] 1] edebug-top-element #[(cursor) "@@‡" [cursor] 1] edebug-top-element-required #[(cursor &rest error) "ѓ	 Б\nГ\"€\n‰@)„ ДБ\n#€\n‰@@)‡" [edebug-dotted-spec edebug-no-match cursor "Dot expected." apply error] 5] edebug-top-offset #[(cursor) "A@‡" [cursor] 1] edebug-move-cursor #[(cursor) "‰@)„ БВ\"€‰@A €‰AAЎ€‡" [cursor edebug-no-match "Not enough arguments."] 4] edebug-before-offset #[(cursor) "‰A)‰:ѓ 	@@‚ 	S)‡" [cursor offset] 2] edebug-after-offset #[(cursor) "‰A@)‰:ѓ 	A‰‚ 	)‡" [cursor offset] 2] edebug-gate edebug-def-name edebug-old-def-name edebug-error-point edebug-best-error edebug-read-and-maybe-wrap-form #[nil "АБ!€ВВ‰‰‰‰‰‰‰‰Д\\Ж\\	\n\fЗРЌ‰ѓ8 СТ\"€.‡" [run-hooks edebug-setup-hook nil max-lisp-eval-depth 800 max-specpdl-size 2000 no-match edebug-error-point edebug-best-error edebug-gate edebug-&rest edebug-&optional edebug-def-name edebug-top-window-data result (byte-code "А В‡" [edebug-read-and-maybe-wrap-form1 result nil] 1) apply edebug-syntax-error] 13] edebug-read-and-maybe-wrap-form1 #[nil "А‰‰‰‰‰‰ЉИ Й=ѓU Кu€И Л=ѓU Мp!‰9…0 Н!‰<…< @О=‰…T A@П=…T И Л=…T Мp!)ѓ• „d ѓ‰ ТУp!CC\"ХЦ!Ч!SШ!ABC$@)‚· Щ\fЪЫ #€Ь ‚· ѓµ ТУp!CC\"ХЦ!Ч!А$)‚· Ь .‡" [nil edebug-current-offset edebug-offsets-stack edebug-offsets def-name defining-form-p def-kind spec edebug-next-token-class lparen 1 symbol edebug-original-read get-edebug-spec &define name edebug-all-defs edebug-all-forms edebug-new-cursor edebug-read-storing-offsets cursor edebug-make-form-wrapper edebug-before-offset edebug-after-offset symbol-name put edebug point-marker edebug-read-sexp] 8] edebug-interactive-p-name #[nil "АБВ\"!‡" [intern format "edebug-%s-interactive-p" edebug-def-name] 4]] 5)
(defalias 'edebug-wrap-def-body #[(forms) "ѓ БВ ГBCД!E‡Д!‡" [edebug-def-interactive let edebug-interactive-p-name ((interactive-p)) edebug-make-enter-wrapper forms] 4 "\
Wrap the FORMS of a definition body."])
(byte-code "АБВ\"€АГД\"€АЕЖ\"€АЗИ\"‡" [defalias edebug-make-enter-wrapper #[(forms) "† 	† ВГ!ДЕD… ЗџBЙКЛ\fBBDF‡" [edebug-def-name edebug-old-def-name gensym "edebug-anon" edebug-enter quote edebug-inside-func list edebug-def-args function lambda nil forms] 7] edebug-inc-offset #[(offset) "	\nZBT‡" [edebug-offset-index offset edebug-form-begin-marker edebug-offset-list] 3] edebug-make-before-and-after-form #[(before-index form after-index) "АБ\nD\fF‡" [edebug-after edebug-before before-index after-index form] 4] edebug-make-after-form #[(form after-index) "АБ\nF‡" [edebug-after 0 after-index form] 4]] 3)
(defalias 'edebug-unwrap #[(sexp) ":ѓ2 @Б=ѓ В8‡@Г=ѓ0 В8A@AA‰GЕVѓ, Ж\fB‚. \f@)‡‡‡" [sexp edebug-after 3 edebug-enter forms 1 progn] 3 "\
Return the unwrapped SEXP or return it as is if it is not wrapped.
The SEXP might be the result of wrapping a body, which is a list of 
expressions; a `progn' form will be returned enclosing these forms."])
(defalias 'edebug-unwrap* #[(sexp) "А	!	\n=„ \nА	!‚ \n:ѓ ГД\n\"‚  \n)‡" [edebug-unwrap sexp new-sexp mapcar edebug-unwrap*] 3 "\
Return the sexp recursively unwrapped."])
(byte-code "АБВ\"€АГД\"€АЕЖ\"€АЗИ\"€АЙК\"€АЛМ\"€НЛОП#€АРС\"€НРОП#€АТУ\"€НТОП#€АФХ\"€ЦЧ!„H ШЦЩ!„Q ЪЫАЭЮ\"€АЯа\"€Абв\"€Агд\"€ежз\"€Аий\"€Акл\"€Амн\"€Аом\"€Апр\"€НпОП#€Аст\"€Ауф\"€Ахц\"€Ачш\"€Ащъ\"€Аыь\"€Нэюя#€АяЃ@ \"€АЃA ЃB \"€АЃC ЃD \"€АЃE ЃF \"€АЃG ЃH \"€АЃI ЃJ \"€АЃK ЃL \"€АЃM ЃN \"€АЃO ЃP \"€АЃQ ЃR \"€АЃS ЃT \"€АЃU ЃV \"€АЃW ЃX \"€АЃY ЃZ \"‡" [defalias edebug-defining-form #[(cursor form-begin form-end speclist) "‰‰@)‰A)A‰\n €	Ў€+Г\fS$‡" [cursor offsets expressions edebug-make-form-wrapper form-begin form-end speclist] 6] edebug-make-form-wrapper #[(cursor form-begin form-end &optional speclist) "А	\n\"‰ѓ ‰A@)‚ Е 	Ж“ЖИЖ‰@)Ж‰‰‰	\n\fѓC Т\"‚J ФХ!C!\f†Y †Y ЦЧ!\f„n Ш\fЕ \nЖ“#‚ђ \f	\n‰ €\fA@Ж“€Ь\f8Ж“€,Э!€ЮЯ\f\"€аџ!б\f!€в\f!€#„Г дp!†ё е ‰&з&!B#)и\fйЖ#F#€.\n‡" [edebug-get-form-data-entry form-begin form-end form-data-entry entry make-marker nil edebug-form-begin-marker 0 edebug-inside-func edebug-def-interactive edebug-def-args edebug-def-name edebug-old-def-name result edebug-offset-index edebug-offset-list speclist edebug-match cursor edebug-make-enter-wrapper edebug-form gensym "edebug-anon" edebug-make-form-data-entry end begin name 2 edebug-make-top-form-data-entry message "Edebug: %s" vconcat edebug-clear-frequency-count edebug-clear-coverage edebug-top-window-data get-buffer-window selected-window window window-start put edebug] 9] edebug-clear-frequency-count #[(name) "А	ВГ\fGЕ\"#‡" [put name edebug-freq-count make-vector edebug-offset-list 0] 6] edebug-clear-coverage #[(name) "А	ВГ\fGЕ\"#‡" [put name edebug-coverage make-vector edebug-offset-list unknown] 6] edebug-form #[(cursor) "А	В\"	‰A@):ѓi @Е=ѓ ‚ў @‰9…) З!Й\f\"\n:ѓS @Л=ѓS М\n\f@Н	!О!AB$‚e ПР\f@!С\n!Р\n‰A)!#+‚ў 9ѓЎ Т>„Ђ УФ!ѓ„ Ф!ѓ„ ‚ў ѓ— ПР\f@!Р\fA!#‚ў ЦР\fA!\"‚ў Ч	!€*‡" [edebug-top-element-required cursor "Expected form" form offset quote head get-edebug-spec spec edebug-new-cursor new-cursor &define edebug-defining-form edebug-after-offset symbol-name edebug-make-before-and-after-form edebug-inc-offset edebug-list-form (t nil) fboundp keywordp edebug-stop-before-symbols edebug-make-after-form edebug-move-cursor] 7] edebug-forms #[(cursor) "А	В\"‡" [edebug-match cursor (&rest form)] 3] put byte-optimizer byte-compile-inline-expand edebug-sexps #[(cursor) "А	В\"‡" [edebug-match cursor (&rest sexp)] 3] edebug-list-form-args #[(head cursor) "А	!‰ѓL \n:ѓ Г‰Ж\n\"*‚{ \nИ=ѓ- ЙК\")‚{ \nЛ=ѓ@ ЙМ\")‚{ \n9…{ \n!‚{ Н	!ѓq ѓd ЙК\")‚{ ЙМ\")‚{ ЙК\"))‡" [get-edebug-spec head spec nil edebug-error-point edebug-best-error edebug-match-sublist cursor t edebug-match (&rest form) 0 (&rest sexp) edebug-macrop edebug-eval-macro-args] 4] edebug-list-form #[(cursor) "А	В\"ГД‰	‰‰@)	‰A)A	\n‰\n €		Ў€+„3 Д‚ 9ѓЪ „D ЛМ!‚ Н=ѓW ОР	!€С ‚ ‰Р	!Т!‰ѓ® :ѓ Д‰Ц	\"*‚Х Г=ѓђ 	Ч	Ш\")‚Х Щ=ѓЎ 	Ч	Ъ\")‚Х 9…Х 	!‚Х Ы!ѓО ѓД 	Ч	Ш\")‚Х 	Ч	Ъ\")‚Х 	Ч	Ш\")+B‚ :ѓэ <ѓх @Э=ѓх Ч	Ю\"‚ Я	аЯ#‚ Лб!,‡" [edebug-top-element-required cursor "Expected elements" t nil edebug-&rest edebug-&optional edebug-gate head offsets expressions edebug-syntax-error "nil head" interactive-p check-it edebug-def-interactive edebug-move-cursor edebug-interactive-p-name get-edebug-spec spec edebug-error-point edebug-best-error edebug-match-sublist edebug-match (&rest form) 0 (&rest sexp) edebug-macrop edebug-eval-macro-args \, (("," def-form) body) edebug-match-specs (lambda-expr body) "Head of list form must be a symbol or lambda expression."] 6] boundp edebug-after-dotted-spec nil edebug-matching-depth 0 150 edebug-max-depth edebug-no-match #[(cursor &rest edebug-args) "† Б\n!† \fѓ# „# ѓ b€ЗИ\f\"‡ЙК\f\"‡" [edebug-error-point edebug-before-offset cursor edebug-best-error edebug-args edebug-gate edebug-&optional apply edebug-syntax-error throw no-match] 3] edebug-match #[(cursor specs) "А‰‰‰	ЖЖ#-‡" [nil edebug-gate edebug-error-point edebug-best-error edebug-&rest edebug-&optional edebug-match-specs cursor specs] 5] edebug-match-one-spec #[(cursor spec) "9ѓ\n Б\n\"‡Г!ѓ Д\nЕЖ\"\"‡;ѓ\" З\n\"‡<…+ И\n\"‡" [spec edebug-match-symbol cursor vectorp edebug-match append nil edebug-match-string edebug-match-list] 5] edebug-match-specs #[(cursor specs remainder-handler) "	Vѓ\f ВГ!‚ T\f„ Е‚Р \f:„+ ЖИ	\fC\n#)‚Р 	‰	@)<„{ „A Л	М\"€Е	‰	@)	‰	A)	C‰	 €	Ў€+И	\f\n#@+‚Р \f@Е9…Ћ У!ФH‰Ц=ѓў Ч!	\fA\"‚Е Ш=ѓ» \fAAЧ!	\fA@\"‚Е \fAЩ	\"\n	\n#¤+)‡" [edebug-matching-depth edebug-max-depth error "too deep - perhaps infinite loop in spec?" specs nil t edebug-dotted-spec edebug-match-specs cursor remainder-handler edebug-no-match "Dotted spec required." this-offset this-form offsets expressions spec rest symbol-name 0 first-char 38 get-edebug-spec 58 edebug-match-one-spec] 6] mapcar #[(pair) "А	@В	A#‡" [put pair edebug-form-spec] 4] ((&optional . edebug-match-&optional) (&rest . edebug-match-&rest) (&or . edebug-match-&or) (form . edebug-match-form) (sexp . edebug-match-sexp) (body . edebug-match-body) (&define . edebug-match-&define) (name . edebug-match-name) (:name . edebug-match-colon-name) (arg . edebug-match-arg) (def-body . edebug-match-def-body) (def-form . edebug-match-def-form) (lambda-expr . edebug-match-lambda-expr) (&not . edebug-match-&not) (&key . edebug-match-&key) (place . edebug-match-place) (gate . edebug-match-gate)) edebug-match-symbol #[(cursor symbol) "А	!‰ѓ \n:ѓ Г\f\n\"‚a \n\f!‚a 	„$ Е\f!‚a Ж	!ѓ] З\fИ	#‰	<ѓE 	@К=ѓE Г\fЛ\"‚Y 		!„R М\f	Н#€О\f!€	C)‚a ПР	\")‡" [get-edebug-spec symbol spec edebug-match cursor edebug-match-nil fboundp edebug-top-element-required "Expected" sexp \, (("," def-form)) edebug-no-match "failed" edebug-move-cursor error "%s is not a form-spec or function"] 5] edebug-match-sexp #[(cursor) "А	В\"Г	!€C‡" [edebug-top-element-required cursor "Expected sexp" edebug-move-cursor] 3] edebug-match-form #[(cursor) "А	!C‡" [edebug-form cursor] 2] edebug-match-place edebug-match-body #[(cursor) "БВ\")‡" [cursor edebug-match (&rest form)] 3] edebug-match-&optional #[(cursor specs) "А	\nА#‡" [edebug-&optional-wrapper cursor specs] 4] edebug-&optional-wrapper #[(cursor specs remainder-handler) "А	А\n‰@)\n‰A)ИЙЌ„ ‚3 \n\f\n‰ €\n\nЎ€+А-‡" [nil specs cursor this-offset this-form edebug-gate edebug-&optional result no-match (byte-code "А	\n#Е‡" [edebug-match-specs cursor specs remainder-handler result nil] 4) offsets expressions] 6] edebug-&rest-wrapper #[(cursor specs remainder-handler) "„ 	В\f#‡" [specs edebug-&rest edebug-&optional-wrapper cursor remainder-handler] 4] edebug-match-&rest #[(cursor specs) "Б‰ЕЕ#+‡" [specs nil edebug-error-point edebug-best-error edebug-&rest edebug-&rest-wrapper cursor] 4] edebug-match-&or #[(cursor specs) "	‰@)	‰A)ЕЖЌ+‡" [specs cursor this-offset this-form original-specs matched (byte-code "ѓ! БВЌ€A\f‰ €Ў€+‚  ИЙК$‡" [specs no-match (byte-code "АБВ‰‰Ж@\"+\"‡" [throw matched nil edebug-error-point edebug-best-error edebug-gate edebug-match-one-spec cursor specs] 5) cursor this-form this-offset offsets expressions apply edebug-no-match "Expected one of" original-specs] 6)] 4] edebug-match-&not #[(cursor specs) "АБЌ„ ВД\"€Е‡" [no-match (byte-code "АЉВ\f\"€*А‡" [nil edebug-gate edebug-match-&or cursor specs] 3) edebug-no-match cursor "Unexpected" nil] 3] &key edebug-form-spec edebug-match-&key #[(cursor specs) "А	ВГД\"B\"‡" [edebug-match-&rest cursor &or mapcar #[(pair) "АБВ@\"A@\"‡" [vector format ":%s" pair] 4] specs] 6] edebug-match-gate #[(cursor) "АВ‡" [t edebug-gate nil] 1] edebug-match-list #[(cursor specs) "ѓ БВ\fВ#)Б‡\f@ЕЖ\f#‰Й=ѓM \fA@‰9ѓE =„9 КЖ#€Л!€М‚I ОП\f\")‚› <ѓi РС‰A@)A\"\f\"CЛ!€‚› Т=ѓ– У!ѓ– РС‰A@)A\"\fA\"Л!€ХТ\")C‚› КЖ\f#*‡" [edebug-dotted-spec nil edebug-match-specs cursor specs edebug-top-element-required "Expected" form spec quote edebug-no-match edebug-move-cursor t edebug-gate error "Bad spec: %s" edebug-match-sublist edebug-new-cursor vector vectorp result apply] 6] edebug-match-sublist #[(cursor specs) "АВ\fВ#‰@)ѓ\" ѓ ЖЗ#€‚\" ЗИ\f#€)‡" [nil edebug-&optional edebug-match-specs cursor specs edebug-best-error apply edebug-no-match "Failed matching"] 6] edebug-match-string #[(cursor spec) "А	В#Е!\f=„ Ж	В#‚ ЗЙ	!€\fC)‡" [edebug-top-element-required cursor "Expected" spec sexp intern edebug-no-match t edebug-gate edebug-move-cursor] 4] edebug-match-nil #[(cursor) "‰@)??… БВ\"‡" [cursor edebug-no-match "Unmatched argument(s)"] 4] edebug-match-function #[(cursor) "АБ!‡" [error "Use function-form instead of function in edebug spec"] 2] edebug-match-&define #[(cursor specs) "А	В	!	‰A)‰:ѓ A‰‚\f )\f$‡" [edebug-make-form-wrapper cursor edebug-before-offset offsets specs] 6] edebug-match-lambda-expr #[(cursor) "А	В\"	‰A@):… @‰9… Ж!И	:ѓI @К=ѓI ЛМ\f\"\f@Н	!О!AB$CП	!€‚M Р	В\"-‡" [edebug-top-element-required cursor "Expected lambda expression" sexp offset head get-edebug-spec spec nil edebug-inside-func &define edebug-defining-form edebug-new-cursor edebug-after-offset symbol-name edebug-move-cursor edebug-no-match] 7] edebug-match-name #[(cursor) "А	В\"‰9„ Д	Е\"€ѓ ЗИЙ#!‚  К	!€)C‡" [edebug-top-element-required cursor "Expected name" name edebug-no-match "Symbol expected for name of definition" edebug-def-name intern format "%s@%s" edebug-move-cursor] 6] edebug-match-colon-name #[(cursor spec) "ѓ БВГ\f#!‚ \fЕ‡" [edebug-def-name intern format "%s@%s" spec nil] 5] edebug-match-arg #[(cursor) "А	В\"‰9ѓ Д!ѓ Е	Ж#€З	!€B)C‡" [edebug-top-element-required cursor "Expected arg" edebug-arg lambda-list-keywordp edebug-no-match "Bad argument:" edebug-move-cursor edebug-def-args] 5] edebug-match-def-form #[(cursor) "АВГ\f!C!)C‡" [nil edebug-inside-func edebug-make-enter-wrapper edebug-form cursor] 3] edebug-match-def-body #[(cursor) "АВДЕ\")!)C‡" [t edebug-inside-func edebug-wrap-def-body cursor edebug-match (&rest form)] 4]] 4)
(defalias 'edebug-spec-p #[(object) "9… БN‡" [object edebug-form-spec] 2 "\
Return non-nil if OBJECT is a symbol with an edebug-form-spec property."])
(byte-code "АБВГ#€АДВЕ#€АЖВЗ#€АИВЙ#€АКВЛ#€АЛВМ#€АНВО#€АПВР#€АСВТ#€АТВУ#€АФВХ#€АЦВЧ#€АШВЩ#€АЪВЫ#€АЬВЭ#€АЮВЯ#€АаВб#€АвВг#€АдВе#€АжВз#€АиВй#€АкВи#€АлВм#€АнВл#€АоВп#€АрВс#€АтВу#€АфВх#€цчт\"€АчВш#€АщВъ#€АыВь#€АэВН#€АюВя#€АЃ@ Вя#€АЃA Вя#€АЃB ВЃC #€АЃD ВЃE #€ЃF ЃG !„ю ЃH GЃG Iћ„ЃG ЃJ DIBIЃF ЃK !„\"ЃH KЃF ЃL !„1ЃM LЃF ЃN !„@ЃH NЃF ЃO !„OЃH OЃP QЃF ЃR !„cЃS RЃF ЃT !„rЃH TЃF ЃU !„ЃЃH UЃF ЃV !„ђЃH VЃW ЃX !„¤цЃX ЃY K\"€ЃH ‡" [put def-edebug-spec edebug-form-spec (&define :name edebug-spec name &or "nil" edebug-spec-p "t" "0" (&rest edebug-spec)) edebug-spec-list ((edebug-spec . [&or nil edebug-spec])) edebug-spec (&or (vector &rest edebug-spec) ("vector" &rest edebug-spec) ("quote" symbolp) edebug-spec-list stringp [lambda-list-keywordp &rest edebug-spec] edebug-spec-p symbolp) quote sexp defconst defvar (symbolp &optional form stringp) defun (&define name lambda-list [&optional stringp] [&optional ("interactive" interactive)] def-body) defmacro (&define name lambda-list def-body) arglist lambda-list (([&rest arg] [&optional ["&optional" arg &rest arg]] &optional ["&rest" arg])) interactive (&optional &or stringp def-form) function-form (&or ([&or "quote" "function"] &or symbolp lambda-expr) form) function (&or symbolp lambda-expr) lambda (&define lambda-list [&optional stringp] [&optional ("interactive" interactive)] def-body) macro (&define "lambda" lambda-list def-body) mapcar (function-form form) mapconcat (function-form form form) mapatoms (function-form &optional form) apply (function-form &rest form) funcall (function-form &rest form) let ((&rest &or (symbolp &optional form) symbolp) body) let* setq (&rest symbolp form) setq-default cond (&rest (&rest form)) condition-case (symbolp form &rest (symbolp body)) \` (backquote-form) backquote-form (&or ([&or "," ",@"] &or ("quote" backquote-form) form) (backquote-form &rest backquote-form) (vector &rest backquote-form) sexp) defalias edebug-\` (def-form) \, (&or ("quote" edebug-\`) def-form) \,@ (&define &or ("quote" edebug-\`) def-form) defsubst dont-compile t eval-when-compile eval-and-compile ad-dolist ((symbolp form &optional form) body) defadvice (&define name (name name &rest sexp) [&optional stringp] [&optional ("interactive" interactive)] def-body) boundp edebug-active nil minor-mode-alist " *Debugging*" edebug-stack edebug-stack-depth -1 edebug-offset-indices edebug-entered edebug edebug-debugger edebug-execution-mode step edebug-next-execution-mode pre-command-hook post-command-hook fboundp edebug-original-signal signal] 4)
(defalias 'edebug-signal #[(edebug-signal-name edebug-signal-data) "<ѓ 	>ѓ ВГ	\fB\"€Е	\f\"‡" [debug-on-error edebug-signal-name edebug error edebug-signal-data edebug-original-signal] 4 "\
Signal an error.  Args are SIGNAL-NAME, and associated DATA.
A signal name is a symbol with an `error-conditions' property
that is a list of condition names.
A handler for any of those names will get to handle this signal.
The symbol `error' should always be one of them.

DATA should be a list.  Its elements are printed as part of the error message.
If the signal is handled, DATA is made available to the handler.
See `condition-case'.

This is the Edebug replacement for the standard `signal'.  It should
only be active while Edebug is.  It checks `debug-on-error' to see
whether it should call the debugger.  When execution is resumed, the
error is signaled again."])
(byte-code "АБВ\"€АГД\"€ЕЖЗИ#‡" [defalias edebug-enter #[(edebug-function edebug-args edebug-body) "„i Б\nГ\\\fЕ\\† 	\nБ\fХЋ…? Ч‰\f†S †S ЧЫЬM€ЭЋЮ !#.‡вN‰#@$еN%жN&з$!()B)к+B+мNѓ¬ нмNо=ѓ¬ пмЧ#€0ѓё с!!‚» ! .‡" [edebug-entered t max-lisp-eval-depth 100 max-specpdl-size 200 edebug-debugger debug-on-error debug-on-quit edebug-on-error edebug-on-quit executing-macro pre-command-hook post-command-hook edebug-outside-post-command-hook edebug-outside-pre-command-hook edebug-outside-executing-macro cl-lexical-debug edebug-outside-debug-on-quit edebug-outside-debug-on-error debugger ((byte-code "\n\fЖ‡" [edebug-outside-executing-macro executing-macro pre-command-hook edebug-outside-pre-command-hook post-command-hook edebug-outside-post-command-hook nil] 1)) edebug-continue-kbd-macro nil edebug-next-execution-mode edebug-initial-mode edebug-execution-mode signal edebug-signal ((byte-code "АБKM‡" [signal edebug-original-signal] 2)) edebug-enter edebug-function edebug-args edebug-body edebug edebug-data edebug-def-mark edebug-freq-count edebug-coverage marker-buffer edebug-buffer edebug-stack 0 edebug-offset-indices edebug-on-entry step temp put edebug-trace edebug-enter-trace] 13] edebug-enter-trace #[(edebug-body) "TБГДЕ#!€ ‰ЙДК\n#!€*‡" [edebug-stack-depth nil edebug-result edebug-print-trace-before format "%s args: %s" edebug-function edebug-args edebug-body edebug-print-trace-after "%s result: %s"] 6] put edebug-tracing edebug-form-spec (form body)] 4)
(defalias 'edebug-tracing '(macro . #[(msg &rest body) "АБВDДЕЖЗBEЙКЛМBBBDEF‡" [let ((edebug-stack-depth (1+ edebug-stack-depth)) edebug-result) edebug-print-trace-before msg prog1 setq edebug-result progn body edebug-print-trace-after format "%s result: %s" (edebug-result)] 10 "\
Print MSG in *edebug-trace* before and after evaluating BODY.
The result of BODY is also printed."]))
(defalias 'edebug-print-trace-before #[(msg) "А	ВГ\fЕ\"$‡" [edebug-trace-display edebug-trace-buffer "%s{ %s" make-string edebug-stack-depth 58 msg] 6 "\
Function called to print trace info before expression evaluation.
MSG is printed after `::::{ '."])
(defalias 'edebug-print-trace-after #[(msg) "А	ВГ\fЕ\"$‡" [edebug-trace-display edebug-trace-buffer "%s} %s" make-string edebug-stack-depth 58 msg] 6 "\
Function called to print trace info after expression evaluation.
MSG is printed after `::::} '."])
(byte-code "АБВ\"€АГД\"€АЕЖ\"€АЗИ\"€АЙК\"€АЛМ\"€Й €АНО\"€ПР!„/ СПТ!„8 САУФ\"€ПХ!„F СПЦ!„O САЧШ\"€АЩЪ\"€АЫЬ\"€ПЭ!„g ЮПЯ!„p ЮПа!„y б Пв!„‚ С\"Пг!„‹ С#Пд!„” С$Пе!„ќ С%Пж!„¦ С&Пз!„Ї С'Пи!„ё С(Айк\"€Алм\"‡" [defalias edebug-slow-before #[(edebug-before-index) "	 €\n	\n	HTI€Д>ѓ Е ѓ Ж	ЗИ#€	‡" [edebug-offset-indices edebug-before-index edebug-freq-count edebug-execution-mode (Go-nonstop next) edebug-input-pending-p edebug-debugger before nil] 4] edebug-fast-before (lambda (edebug-before-index)) edebug-slow-after #[(edebug-before-index edebug-after-index edebug-value) "	 €\n	\n	HTI€ѓ Д €Ж=ѓ! З „! ‡Й	К#‡" [edebug-offset-indices edebug-after-index edebug-freq-count edebug-test-coverage edebug-update-coverage edebug-execution-mode Go-nonstop edebug-input-pending-p edebug-value edebug-debugger after] 4] edebug-fast-after (lambda (edebug-before-index edebug-after-index edebug-value) edebug-value) edebug-run-slow #[nil "АБВ\"€АГД\"‡" [defalias edebug-before edebug-slow-before edebug-after edebug-slow-after] 3] edebug-run-fast #[nil "АБВ\"€АГД\"‡" [defalias edebug-before edebug-fast-before edebug-after edebug-fast-after] 3] edebug-update-coverage #[nil "	H‰Г=†\" \nД=ѓ 	I‚\" \n=?…\" 	ГI)‡" [edebug-coverage edebug-after-index old-result ok-coverage unknown edebug-value] 4] boundp edebug-break-result nil edebug-global-break-result edebug-debugger #[(edebug-offset-index edebug-arg-mode edebug-value) "A@\n	ћ‰A@… ЖЗИЏ	Ж\n	†- …- \f?†- Л\f!‰\f‰\nѓD Н8ѓD О	\"AABЎ€Р>ѓU \n„U С ѓX Т €-‡" [edebug-data edebug-breakpoints edebug-offset-index edebug-break-data edebug-break-condition edebug-global-break-condition nil (byte-code "А	!‰‡" [eval edebug-global-break-condition edebug-global-break-result] 2) ((error)) edebug-global-break edebug-break eval edebug-break-result 2 delq edebug-execution-mode (go continue Continue-fast) edebug-input-pending-p edebug-display edebug-value] 5] edebug-eval-list edebug-previous-result edebug-mark mark edebug-mark-marker mark-marker edebug-display #[nil "АБ\nГ\f8H\\БЖ\f8З p`И Б‰‰	… К Б‰\f\nЯЋ\fБ\fа!!„g Б\"гд%\"€)&з=ѓs и)!€*ѓ~ л*!,ѓ‡ н о!@\"€З  €п\n!€р@!€!q€`b€&с=ѓВ gт>„В Б\"гу%\"€)фA!Ў€х ѓЩ ц7АЭ €ш €&г=ѓц7ш €щ €)@ъ=ѓы ыь!€‚Dэ)!€‚D>ѓ>?ѓыЃ@ AB#€‚DCѓ,ыЃD CE#€‚D7ЃF =„DыЃG !€‚DыЃH !€&з=ѓf>ѓa7ЃF =„aЃI ЃJ !€ЃK  €>ѓ™7ЃL =ѓЃM ЃJ !€‚ѕ7ЃF =ѓ“ЃM ЃN !€‚ѕА‚ѕ7ЃO =ѓ­ЃM ЃJ !€‚ѕ7ЃP =ѓѕЃM ЃN !€ЃQ Ћ„Ч7ЃR >„Ч&г=ѓЬЃS  €)pT!q€b€Tq.‡" [t nil edebug-def-mark 2 edebug-data edebug-offset-index 3 selected-window edebug-mark edebug-eval-list edebug-eval-result-list overlay-arrow-position overlay-arrow-string cursor-in-echo-area edebug-outside-c-i-e-a edebug-outside-o-a-s edebug-outside-o-a-p edebug-trace-window-start edebug-trace-window edebug-eval-buffer edebug-buffer-points edebug-outside-windows edebug-outside-mark edebug-outside-point edebug-outside-buffer edebug-outside-window edebug-window-data edebug-buffer-outside-point edebug-point edebug-stop edebug-active ((byte-code "\n\fЖ‡" [edebug-outside-o-a-p overlay-arrow-position edebug-outside-o-a-s overlay-arrow-string edebug-outside-c-i-e-a cursor-in-echo-area nil] 1)) buffer-name edebug-buffer debug-on-error error "Buffer defining %s not found" edebug-function edebug-arg-mode after edebug-compute-previous-result edebug-value edebug-save-windows edebug-current-windows edebug-save-displayed-buffer-points edebug-get-displayed-buffer-points edebug-pop-to-buffer edebug-eval-display select-window before (40 35 96) "Source has changed - reevaluate definition of %s" edebug-adjust-window edebug-input-pending-p step edebug-execution-mode edebug-overlay-arrow beep quit message "Quit" edebug-report-error edebug-break edebug-global-break "Global Break: %s => %s" edebug-global-break-condition edebug-global-break-result edebug-break-condition "Break: %s => %s" edebug-break-result Continue-fast "Break" "" sit-for 1 edebug-previous-result continue edebug-sit-for 0 trace Trace-fast ((byte-code "А 	=ѓ\f В ‚ Г	!‰ѓ \f €Ж\f!Ў€)З!‰	ѓ4 	…2 Ж	!\nѓs М!€ѓH П!€	ѓT С	\n\"€@‰ѓo Т\f!ѓo А 	=ѓo С\fAУ#€)‚ Т!ѓ Х!€q€	=„Ћ b€ШЩ !ѓњ Щ Ы“€Ы‡" [window-buffer edebug-buffer selected-window edebug-get-buffer-window window edebug-window-data window-start get-buffer-window edebug-trace-buffer edebug-trace-window edebug-trace-window-start edebug-save-windows edebug-set-windows edebug-outside-windows edebug-save-displayed-buffer-points edebug-set-buffer-points edebug-buffer-points set-window-start edebug-window-live-p no-force edebug-outside-window select-window edebug-outside-buffer edebug-outside-point marker-buffer edebug-mark-marker edebug-outside-mark nil] 5)) (step next) edebug-recursive-edit current-buffer] 18] edebug-number-of-recursions 0 edebug-recursion-depth unread-command-char -1 unread-command-event last-input-event last-command-event unread-command-events last-event-frame last-nonmenu-event track-mouse edebug-recursive-edit #[nil "Љ	q€В )Г Д‰‰‰Е 	\n\f !\"#$%&'()*+мЋ	\n\fнД‰‰‰‰‰‰./0…y 12\f\n	уф!ѓ  ф €5ц=ѓІ 7ш>„І щъ!€ыьэKM€ю €яЋЃ@  .(‡" [buffer-read-only edebug-outside-buffer match-data recursion-depth nil current-local-map standard-output standard-input defining-kbd-macro last-command-char last-command this-command last-input-char unread-command-char last-input-event last-command-event unread-command-event unread-command-events last-event-frame last-nonmenu-event track-mouse edebug-outside-track-mouse edebug-outside-last-nonmenu-event edebug-outside-last-event-frame edebug-outside-unread-command-events edebug-outside-unread-command-event edebug-outside-last-command-event edebug-outside-last-input-event edebug-outside-unread-command-char edebug-outside-last-input-char edebug-outside-this-command edebug-outside-last-command edebug-outside-last-command-char edebug-outside-defining-kbd-macro edebug-outside-standard-input edebug-outside-standard-output edebug-outside-map edebug-inside-windows edebug-backtrace-buffer edebug-interactive-p edebug-entered edebug-recursion-depth edebug-outside-match-data edebug-buffer-read-only ((byte-code "\n\f	\n\fЮ‡" [edebug-outside-last-command-char last-command-char edebug-outside-last-command-event last-command-event edebug-outside-last-command last-command edebug-outside-this-command this-command edebug-outside-unread-command-char unread-command-char edebug-outside-unread-command-event unread-command-event edebug-outside-unread-command-events unread-command-events edebug-outside-last-input-char last-input-char edebug-outside-last-input-event last-input-event edebug-outside-last-event-frame last-event-frame edebug-outside-last-nonmenu-event last-nonmenu-event edebug-outside-track-mouse track-mouse edebug-outside-standard-output standard-output edebug-outside-standard-input standard-input edebug-outside-defining-kbd-macro defining-kbd-macro nil] 1)) -1 edebug-outside-debug-on-error edebug-outside-debug-on-quit edebug-continue-kbd-macro debug-on-quit debug-on-error fboundp zmacs-deactivate-region edebug-execution-mode go edebug-arg-mode (after error) message "Break" t signal edebug-original-signal edebug-mode ((byte-code "АБM€\nѓ\f Г\n!€\fѓ Г\f!€Е!€З!ѓ: q€	К>ѓ. Л €\fО!€‚> РС!€А‡" [signal edebug-signal edebug-backtrace-buffer kill-buffer edebug-eval-buffer store-match-data edebug-outside-match-data buffer-name edebug-buffer edebug-execution-mode (go Go-nonstop) edebug-overlay-arrow edebug-buffer-read-only buffer-read-only use-local-map edebug-outside-map get-buffer-create " bogus edebug buffer"] 2)) recursive-edit] 23] edebug-adjust-window #[(old-start) "А „1 	ѓ ВГ 	\"€А „1 ВГ Љ`Д Wѓ# Е‚( Ж ЗҐ[y€Иy€`)\"€Д ‡" [pos-visible-in-window-p old-start set-window-start selected-window window-start -1 window-height 2 0] 4]] 3)
(defconst edebug-arrow-alist (quote ((Continue-fast . "=") (Trace-fast . "-") (continue . ">") (trace . "->") (step . "=>") (next . "=>") (go . "<>") (Go-nonstop . ".."))) "\
Association list of arrows for each edebug mode.")
(defalias (quote edebug-overlay-arrow) #[nil "ЉАy€`)\nћAЕ ‰	p“)‡" [0 pos edebug-execution-mode edebug-arrow-alist overlay-arrow-string make-marker overlay-arrow-position] 4])
(defalias 'edebug-toggle-save-all-windows #[nil "?‰ѓ Б!‰ДЕѓ Ж‚ З\"‡" [edebug-save-windows edebug-current-windows edebug-outside-windows edebug-inside-windows message "Window saving is %s for all windows." "on" "off"] 4 "\
Toggle the saving and restoring of all windows.
Also, each time you toggle it on, the inside and outside window
configurations become the same as the current configuration." nil])
(defalias (quote edebug-changing-windows) (quote (macro . #[(&rest body) "АБВГДЖ\"BBBB‡" [let ((window (selected-window))) (setq edebug-inside-windows (edebug-current-windows t)) (edebug-set-windows edebug-outside-windows) append body ((setq edebug-outside-windows (edebug-current-windows edebug-save-windows)) (edebug-set-windows edebug-inside-windows))] 7])))
(defalias 'edebug-toggle-save-selected-window #[nil "Б=ѓ% В ДБ!Ж!€ИЙ \"Д!Ж!€)‚Z В >ѓ@ ИВ ћ\"ИВ \"‚Z В ДБ!Ж!€BД!Ж!€)КЛВ >ѓg М‚h НВ #‡" [edebug-save-windows t selected-window window edebug-current-windows edebug-inside-windows edebug-set-windows edebug-outside-windows delq edebug-window-list message "Window saving is %s for %s." "on" "off"] 4 "\
Toggle the saving and restoring of the selected window. 
Also, each time you toggle it on, the inside and outside window
configurations become the same as the current configuration." nil])
(defalias 'edebug-toggle-save-windows #[(arg) "ѓ Б ‡В ‡" [arg edebug-toggle-save-selected-window edebug-toggle-save-all-windows] 1 "\
Toggle the saving and restoring of windows.
With prefix, toggle for just the selected window.
Otherwise, toggle for all windows." "P"])
(defalias 'edebug-where #[nil "„ БВ!€Г\f!€b‡" [edebug-active error "Edebug is not active" edebug-pop-to-buffer edebug-buffer edebug-point] 2 "\
Show the debug windows and where we stopped in the program." nil])
(defalias 'edebug-view-outside #[nil "„ БВ!€Г\f!Ж!€b€ЙКЛМ!\"‡" [edebug-active error "Edebug is not active" edebug-current-windows edebug-save-windows edebug-inside-windows edebug-set-windows edebug-outside-windows edebug-outside-point message "Window configuration outside of Edebug.  Return with %s" substitute-command-keys "\\<global-map>\\[edebug-where]"] 4 "\
Change to the outside window configuration." nil])
(defalias 'edebug-bounce-point #[(arg) "„ БВ!€ЉГ‹)‡" [edebug-active error "Edebug is not active" ((byte-code "А	!€\nb€ГДp`ЕЖ !ѓ ЗЖ !‚ И$€Й\n!€А\f@\"‡" [edebug-pop-to-buffer edebug-outside-buffer edebug-outside-point message "Current buffer: %s Point: %s Mark: %s" marker-buffer edebug-mark-marker marker-position "<not set>" edebug-sit-for arg edebug-buffer edebug-window-data] 6))] 2 "\
Bounce the point in the outside current buffer.
If prefix arg is supplied, sit for that many seconds before returning.
The default is one second." "p"])
(defalias (quote edebug-find-stop-point) #[nil "А ‰ВN‰ѓ Д!ѓ ЕЖ	\"€)‰@Й8\nЉЛМ!ѓ/ НОx€`)ZОО\nGТТWѓ_ \nHVѓ_ T‰‚E Wѓy \nHXѓy 	B‚} УФ	\".‡" [edebug-form-data-symbol edebug-def-name edebug data markerp error "%s is not instrumented for Edebug" edebug-data edebug-def-mark 2 offset-vector looking-at "[ 	]" " 	" nil offset len i 0 message "Point is not on an expression in %s."] 4])
(defalias 'edebug-next-breakpoint #[nil "А ‰…€ 	@	A\nДN‰@A@И8	К„- МН!‚† ‰ѓG @@XѓG A‰„5 ѓR @‚U @	@H\\b€МИ8ѓn П‚o РA@ѓ‚ СТУA@!\"‚ѓ РP!).)‡" [edebug-find-stop-point edebug-stop-point edebug-def-name index edebug edebug-data edebug-def-mark edebug-breakpoints 2 offset-vector nil breakpoint message "No breakpoints in this function." breaks "Temporary " "" format "Condition: %s" edebug-safe-prin1-to-string] 7 "\
Move point to the next breakpoint, or first if none past point." nil])
(defalias 'edebug-modify-breakpoint #[(flag &optional condition temporary) "А ‰…{ 	@	A\nДN‰@A@И8	КћМ\"ѓZ ОEBС\"ѓR ТУ\n#€‚k ТФ\n\"€‚k ѓg ТХ\n\"€‚k ТЦ!€A €	H\\b.)‡" [edebug-find-stop-point edebug-stop-point edebug-def-name index edebug edebug-data edebug-def-mark edebug-breakpoints 2 offset-vector nil present delq flag edebug-sort-alist condition temporary < message "Breakpoint set in %s with condition: %s" "Breakpoint set in %s" "Breakpoint unset in %s" "No breakpoint here"] 5 "\
Modify the breakpoint for the form at point or after it according
to FLAG: set if t, clear if nil.  Then move to that point.
If CONDITION or TEMPORARY are non-nil, add those attributes to
the breakpoint.  "])
(defalias 'edebug-set-breakpoint #[(arg) "АБВ#‡" [edebug-modify-breakpoint t nil arg] 4 "\
Set the breakpoint of nearest sexp.
With prefix argument, make it a temporary breakpoint." "P"])
(defalias 'edebug-unset-breakpoint #[nil "АБ!‡" [edebug-modify-breakpoint nil] 2 "\
Clear the breakpoint of nearest sexp." nil])
(defalias 'edebug-set-conditional-breakpoint #[(arg condition) "АБ\n#‡" [edebug-modify-breakpoint t condition arg] 4 "\
Set a conditional breakpoint at nearest sexp.
The condition is evaluated in the outside context.
With prefix argument, make it a temporary breakpoint." (list current-prefix-arg (let ((edebug-stop-point (edebug-find-stop-point))) (if edebug-stop-point (let* ((edebug-def-name (car edebug-stop-point)) (index (cdr edebug-stop-point)) (edebug-data (get edebug-def-name (quote edebug))) (edebug-breakpoints (car (cdr edebug-data))) (edebug-break-data (assq index edebug-breakpoints)) (edebug-break-condition (car (cdr edebug-break-data)))) (read-minibuffer (format "Condition in %s: " edebug-def-name) (if edebug-break-condition (format "%s" edebug-break-condition) (format "")))))))])
(byte-code "АБВ\"€АГД\"€АЕЖ\"‡" [defalias edebug-set-global-break-condition #[(expression) "‰‡" [expression edebug-global-break-condition] 2 nil (list (read-minibuffer "Global Condition: " (format "%s" edebug-global-break-condition)))] edebug-set-mode #[(mode shortmsg msg) "TБ =ѓ \nД!€Ж ‡\nД!‡" [edebug-recursion-depth recursion-depth mode edebug-execution-mode message shortmsg exit-recursive-edit edebug-next-execution-mode msg] 2] edebug-step-through-mode edebug-step-mode] 3)
(defalias 'edebug-step-mode #[nil "АБВГ#‡" [edebug-set-mode step "" "Edebug will stop at next stop point."] 4 "\
Proceed to next stop point." nil])
(defalias 'edebug-next-mode #[nil "АБВГ#‡" [edebug-set-mode next "" "Edebug will stop after next eval."] 4 "\
Proceed to next `after' stop point." nil])
(defalias 'edebug-go-mode #[(arg) "ѓ БВ!€ГДЕЖ#‡" [arg edebug-set-breakpoint t edebug-set-mode go "Go..." "Edebug will go until break."] 4 "\
Go, evaluating until break.
With prefix ARG, set temporary break at current point and go." "P"])
(defalias 'edebug-Go-nonstop-mode #[nil "АБВГ#‡" [edebug-set-mode Go-nonstop "Go-Nonstop..." "Edebug will not stop at breaks."] 4 "\
Go, evaluating without debugging." nil])
(defalias 'edebug-trace-mode #[nil "АБВГ#‡" [edebug-set-mode trace "Tracing..." "Edebug will trace with pause."] 4 "\
Begin trace mode." nil])
(defalias 'edebug-Trace-fast-mode #[nil "АБВГ#‡" [edebug-set-mode Trace-fast "Trace fast..." "Edebug will trace without pause."] 4 "\
Trace with no wait at each step." nil])
(defalias 'edebug-continue-mode #[nil "АБВГ#‡" [edebug-set-mode continue "Continue..." "Edebug will pause at breakpoints."] 4 "\
Begin continue mode." nil])
(defalias 'edebug-Continue-fast-mode #[nil "АБВГ#‡" [edebug-set-mode Continue-fast "Continue fast..." "Edebug will stop and go at breakpoints."] 4 "\
Trace with no wait at each step." nil])
(defalias 'edebug-goto-here #[nil "АБ!‡" [edebug-go-mode t] 2 "\
Proceed to this stop point." nil])
(defalias 'edebug-stop #[nil "АБ!‡" [message "Stop"] 2 "\
Stop execution and do not continue.
Useful for exiting from trace or continue loop." nil])
(defalias 'edebug-forward-sexp #[(arg) "АБВЏ‡" [nil (byte-code "АВ!€ДА!)‡" [t parse-sexp-ignore-comments forward-sexp arg edebug-go-mode] 2) ((error (edebug-step-out)))] 3 "\
Proceed from the current point to the end of the ARGth sexp ahead.
If there are not ARG sexps ahead, then do edebug-step-out." "p"])
(defalias 'edebug-step-out #[nil "АБВЏ‡" [nil (byte-code "АВГ!€ЉВГ!€)ДА!)‡" [t parse-sexp-ignore-comments up-list 1 edebug-go-mode] 2) ((error (byte-code "`БВ!€`Uѓ Г ‚ ДЕ!)‡" [start-point down-list -1 edebug-step-mode edebug-go-mode t] 2)))] 3 "\
Proceed from the current point to the end of the containing sexp.
If there is no containing sexp that is not the top level defun,
go to the end of the last sexp, or if that is the same point, then step." nil])
(defalias (quote edebug-instrument-function) #[(func) "А\nГNД	!ѓ ЉЕ	!q€	b€Ж €\n)‚1 	:ѓ+ ЗИ\n\"€\n‚1 ЙК\n\"€А)‡" [nil func-marker func edebug markerp marker-buffer edebug-eval-top-level-form message "%s is already instrumented." error "Don't know where %s is defined"] 3])
(defalias 'edebug-instrument-callee #[nil "АБ!„\n ВГ!‡ЉДЕ!€АБ!ѓ  Ж`!‰@)‚# Иp!)	К	!)‡" [looking-at "(" error "You must be before a list form" down-list 1 edebug-get-form-data-entry entry edebug-original-read func edebug-instrument-function] 3 "\
Instrument the definition of the function or macro about to be called.  
Do this when stopped before the form or it will be too late.
One side effect of using this command is that the next time the
function or macro is called, Edebug will be called there as well." nil])
(defalias 'edebug-step-in #[nil "А ‰… В	Г\"€ДЕ!)‡" [edebug-instrument-callee func edebug-on-entry temp edebug-go-mode nil] 4 "\
Step into the definition of the function or macro about to be called.  
This first does `edebug-instrument-callee' to ensure that it is 
instrumented.  Then it does `edebug-on-entry' and switches to `go' mode." nil])
(defalias 'edebug-on-entry #[(function &optional flag) "А	Вѓ Д‚\f Е#‡" [put function edebug-on-entry flag temp t] 4 "\
Cause Edebug to stop when FUNCTION is called.
With prefix argument, make this temporary so it is automatically
cancelled the first time the function is entered." "aEdebug on entry to: \nP"])
(byte-code "АБВ\"€ГД!„ ДЕKM€А‡" [defalias cancel-edebug-on-entry #[(function) "А	ВГ#‡" [put function edebug-on-entry nil] 4 nil "aEdebug on entry to: "] fboundp edebug-original-debug-on-entry debug-on-entry] 3)
(defalias 'edebug-top-level-nonstop #[nil "АВ ‡" [Go-nonstop edebug-execution-mode top-level] 1 "\
Set mode to Go-nonstop, and exit to top-level.
This is useful for exiting even if unwind-protect code may be executed." nil])
(put (quote edebug-outside-excursion) (quote edebug-form-spec) t)
(defalias 'edebug-outside-excursion '(macro . #[(&rest body) "АБВГДЕЖАЗИЙ\nBBBBЛBBEЇ‡" [save-excursion (if edebug-save-windows (progn (setq edebug-inside-windows (edebug-current-windows edebug-save-windows)) (edebug-set-windows edebug-outside-windows))) (set-buffer edebug-buffer) (store-match-data edebug-outside-match-data) let ((last-command-char edebug-outside-last-command-char) (last-command-event edebug-outside-last-command-event) (last-command edebug-outside-last-command) (this-command edebug-outside-this-command) (unread-command-char edebug-outside-unread-command-char) (unread-command-event edebug-outside-unread-command-event) (unread-command-events edebug-outside-unread-command-events) (last-input-char edebug-outside-last-input-char) (last-input-event edebug-outside-last-input-event) (last-event-frame edebug-outside-last-event-frame) (last-nonmenu-event edebug-outside-last-nonmenu-event) (track-mouse edebug-outside-track-mouse) (standard-output edebug-outside-standard-output) (standard-input edebug-outside-standard-input) (executing-macro edebug-outside-executing-macro) (defining-kbd-macro edebug-outside-defining-kbd-macro) (pre-command-hook edebug-outside-pre-command-hook) (post-command-hook edebug-outside-post-command-hook) (overlay-arrow-position edebug-outside-o-a-p) (overlay-arrow-string edebug-outside-o-a-s) (cursor-in-echo-area edebug-outside-c-i-e-a)) unwind-protect (set-buffer edebug-outside-buffer) (goto-char edebug-outside-point) (if (marker-buffer (edebug-mark-marker)) (set-marker (edebug-mark-marker) edebug-outside-mark)) body ((if edebug-save-windows (edebug-set-windows edebug-inside-windows)) (setq edebug-outside-last-command-char last-command-char edebug-outside-last-command-event last-command-event edebug-outside-last-command last-command edebug-outside-this-command this-command edebug-outside-unread-command-char unread-command-char edebug-outside-unread-command-event unread-command-event edebug-outside-unread-command-events unread-command-events edebug-outside-last-input-char last-input-char edebug-outside-last-input-event last-input-event edebug-outside-last-event-frame last-event-frame edebug-outside-last-nonmenu-event last-nonmenu-event edebug-outside-track-mouse track-mouse edebug-outside-standard-output standard-output edebug-outside-standard-input standard-input edebug-outside-executing-macro executing-macro edebug-outside-defining-kbd-macro defining-kbd-macro edebug-outside-pre-command-hook pre-command-hook edebug-outside-post-command-hook post-command-hook edebug-outside-o-a-p overlay-arrow-position edebug-outside-o-a-s overlay-arrow-string edebug-outside-c-i-e-a cursor-in-echo-area))] 12 "\
Evaluate an expression list in the outside context.
Return the result of the last expression."]))
(byte-code "АБ!„ ВГДЕ\"€ГЖЗ\"€ГИЙ\"€ГКЛ\"€ГМЛ\"‡" [boundp cl-debug-env nil defalias edebug-eval #[(edebug-expr) "ѓ БВ\"!‡Б!‡" [cl-debug-env eval cl-macroexpand-all edebug-expr] 4] edebug-safe-eval #[(edebug-expr) "АБВЏ‡" [edebug-err (edebug-eval edebug-expr) ((error (byte-code "АБ\n@ГN\nA@#‡" [edebug-format "%s: %s" edebug-err error-message] 4)))] 3] edebug-install-custom-print-funcs edebug-install-custom-print edebug-reset-print-funcs edebug-uninstall-custom-print edebug-uninstall-custom-print-funcs] 3)
(defalias 'edebug-install-custom-print #[nil "АБ!€ВГД\"€ВЕЖ\"€ВЗИ\"€ВЙК\"€ВЛМ\"€Н‡" [require cust-print defalias edebug-prin1 custom-prin1 edebug-print custom-print edebug-prin1-to-string custom-prin1-to-string edebug-format custom-format edebug-message custom-message "Installed"] 3 "\
Replace print functions used by Edebug with custom versions." nil])
(defalias 'edebug-uninstall-custom-print #[nil "АБВ\"€АГД\"€АЕЖ\"€АЗИ\"€АЙК\"€Л‡" [defalias edebug-prin1 prin1 edebug-print print edebug-prin1-to-string prin1-to-string edebug-format format edebug-message message "Uninstalled"] 3 "\
Replace edebug custom print functions with internal versions." nil])
(byte-code "А €БВГ\"€ДЕ!„ ЖДЗ!„ ЖБИЙ\"€БКЛ\"‡" [edebug-uninstall-custom-print defalias edebug-report-error #[(edebug-value) "АБ\n@ГN† ДЕ\n@\"ЖЗ\nAИ##‡" [message "%s: %s" edebug-value error-message format "peculiar error (%s)" mapconcat #[(edebug-arg) "А	!‡" [prin1-to-string edebug-arg] 2] ", "] 7] boundp print-level nil print-circle edebug-safe-prin1-to-string #[(value) "А	† \n† \f† З	К!-‡" [t edebug-print-length print-length edebug-print-level print-level edebug-print-circle print-circle nil print-readably print-escape-newlines edebug-prin1-to-string value] 5] edebug-compute-previous-result #[(edebug-previous-value) "§ѓ БWѓ ВYѓ ГДЕ!#‚) ѓ$ З!ИЙ!P‰\n‡" [edebug-previous-value 256 0 format "Result: %s = %s" single-key-description edebug-unwrap-results edebug-unwrap* "Result: " edebug-safe-prin1-to-string edebug-previous-result] 5]] 3)
(defalias 'edebug-previous-result #[nil "АБ\n\"‡" [message "%s" edebug-previous-result] 3 "\
Print the previous result." nil])
(defalias 'edebug-eval-expression #[(edebug-expr) "АЉ	ѓ В	!Д!€q€З!€	\n\f !\"#$%&'()*+,-./012уЋЉ4q€5b€цч !ѓ„ ч 8щ“€ъ;!<B<э<@!.!‡" [princ edebug-save-windows edebug-current-windows edebug-inside-windows edebug-set-windows edebug-outside-windows edebug-buffer store-match-data edebug-outside-match-data edebug-outside-last-command-char edebug-outside-last-command-event edebug-outside-last-command edebug-outside-this-command edebug-outside-unread-command-char edebug-outside-unread-command-event edebug-outside-unread-command-events edebug-outside-last-input-char edebug-outside-last-input-event edebug-outside-last-event-frame edebug-outside-last-nonmenu-event edebug-outside-track-mouse edebug-outside-standard-output edebug-outside-standard-input edebug-outside-executing-macro edebug-outside-defining-kbd-macro edebug-outside-pre-command-hook edebug-outside-post-command-hook edebug-outside-o-a-p edebug-outside-o-a-s edebug-outside-c-i-e-a cursor-in-echo-area overlay-arrow-string overlay-arrow-position post-command-hook pre-command-hook defining-kbd-macro executing-macro standard-input standard-output track-mouse last-nonmenu-event last-event-frame last-input-event last-input-char unread-command-events unread-command-event unread-command-char this-command last-command last-command-event last-command-char ((byte-code "ѓ Б\n!€	\n\f !\"#$%&'()*+,Б‡" [edebug-save-windows edebug-set-windows edebug-inside-windows last-command-char edebug-outside-last-command-char last-command-event edebug-outside-last-command-event last-command edebug-outside-last-command this-command edebug-outside-this-command unread-command-char edebug-outside-unread-command-char unread-command-event edebug-outside-unread-command-event unread-command-events edebug-outside-unread-command-events last-input-char edebug-outside-last-input-char last-input-event edebug-outside-last-input-event last-event-frame edebug-outside-last-event-frame last-nonmenu-event edebug-outside-last-nonmenu-event track-mouse edebug-outside-track-mouse standard-output edebug-outside-standard-output standard-input edebug-outside-standard-input executing-macro edebug-outside-executing-macro defining-kbd-macro edebug-outside-defining-kbd-macro pre-command-hook edebug-outside-pre-command-hook post-command-hook edebug-outside-post-command-hook overlay-arrow-position edebug-outside-o-a-p overlay-arrow-string edebug-outside-o-a-s cursor-in-echo-area edebug-outside-c-i-e-a] 2)) edebug-outside-buffer edebug-outside-point marker-buffer edebug-mark-marker edebug-outside-mark nil edebug-eval edebug-expr values edebug-safe-prin1-to-string] 22 "\
Evaluate an expression in the outside environment.  
If interactive, prompt for the expression.
Print result in minibuffer." "xEval: "])
(defalias 'edebug-eval-last-sexp #[nil "АБ !‡" [edebug-eval-expression edebug-last-sexp] 2 "\
Evaluate sexp before point in the outside environment;
print value in minibuffer." nil])
(defalias 'edebug-eval-print-last-sexp #[nil "А Љ\nѓ Г\n!Е!€q€И	!€\n\f !\"#$%&'()*+,-./0123фЋЉ5q€6b€чш !ѓ‡ ш 9ъ“€ыь	!!.=p'юя!€ю=!€юя!+‡" [edebug-last-sexp edebug-form edebug-save-windows edebug-current-windows edebug-inside-windows edebug-set-windows edebug-outside-windows edebug-buffer store-match-data edebug-outside-match-data edebug-outside-last-command-char edebug-outside-last-command-event edebug-outside-last-command edebug-outside-this-command edebug-outside-unread-command-char edebug-outside-unread-command-event edebug-outside-unread-command-events edebug-outside-last-input-char edebug-outside-last-input-event edebug-outside-last-event-frame edebug-outside-last-nonmenu-event edebug-outside-track-mouse edebug-outside-standard-output edebug-outside-standard-input edebug-outside-executing-macro edebug-outside-defining-kbd-macro edebug-outside-pre-command-hook edebug-outside-post-command-hook edebug-outside-o-a-p edebug-outside-o-a-s edebug-outside-c-i-e-a cursor-in-echo-area overlay-arrow-string overlay-arrow-position post-command-hook pre-command-hook defining-kbd-macro executing-macro standard-input standard-output track-mouse last-nonmenu-event last-event-frame last-input-event last-input-char unread-command-events unread-command-event unread-command-char this-command last-command last-command-event last-command-char ((byte-code "ѓ Б\n!€	\n\f !\"#$%&'()*+,Б‡" [edebug-save-windows edebug-set-windows edebug-inside-windows last-command-char edebug-outside-last-command-char last-command-event edebug-outside-last-command-event last-command edebug-outside-last-command this-command edebug-outside-this-command unread-command-char edebug-outside-unread-command-char unread-command-event edebug-outside-unread-command-event unread-command-events edebug-outside-unread-command-events last-input-char edebug-outside-last-input-char last-input-event edebug-outside-last-input-event last-event-frame edebug-outside-last-event-frame last-nonmenu-event edebug-outside-last-nonmenu-event track-mouse edebug-outside-track-mouse standard-output edebug-outside-standard-output standard-input edebug-outside-standard-input executing-macro edebug-outside-executing-macro defining-kbd-macro edebug-outside-defining-kbd-macro pre-command-hook edebug-outside-pre-command-hook post-command-hook edebug-outside-post-command-hook overlay-arrow-position edebug-outside-o-a-p overlay-arrow-string edebug-outside-o-a-s cursor-in-echo-area edebug-outside-c-i-e-a] 2)) edebug-outside-buffer edebug-outside-point marker-buffer edebug-mark-marker edebug-outside-mark nil edebug-safe-prin1-to-string edebug-safe-eval edebug-result-string princ "\n"] 21 "\
Evaluate sexp before point in the outside environment; 
print value into current buffer." nil])
(byte-code "А	ВГ#€А	ДЕ#€А	ЖЗ#€А	ИЙ#€КЛ!„! М„ЃН	!АОГ#€АПЕ#€АРЗ#€АСТ#€АУФ#€АХЦ#€АЧШ#€АЩЪ#€АЫЬ#€АЭЮ#€АЯа#€Абв#€Агд#€Аеж#€Ази#€Айк#€Алм#€Ано#€Апр#€Аст#€Ауф#€Ахц#€Ачш#€Ащъ#€Аыь#€Аэю#€АяЙ#€АЃ@ ЃA #€АЃB ЃC #€АЃD ЃA #€АЃE ЃF #€АЃG ЃH #€АЃI ЃJ #€АЃK ЃL #€АЃM ЃN #€АЃO Г#€АЃP Е#€АЃQ З#€АЃR о#€АЃS р#€АЃT ЃU #€АЃV Й#€М‡" [define-key emacs-lisp-mode-map "" edebug-step-mode "" edebug-next-mode "" edebug-go-mode "\f" edebug-where boundp edebug-mode-map nil copy-keymap " " "n" "g" "G" edebug-Go-nonstop-mode "t" edebug-trace-mode "T" edebug-Trace-fast-mode "c" edebug-continue-mode "C" edebug-Continue-fast-mode "f" edebug-forward-sexp "h" edebug-goto-here "I" edebug-instrument-callee "i" edebug-step-in "o" edebug-step-out "q" top-level "Q" edebug-top-level-nonstop "a" abort-recursive-edit "S" edebug-stop "b" edebug-set-breakpoint "u" edebug-unset-breakpoint "B" edebug-next-breakpoint "x" edebug-set-conditional-breakpoint "X" edebug-set-global-break-condition "r" edebug-previous-result "e" edebug-eval-expression "" edebug-eval-last-sexp "E" edebug-visit-eval-list "w" "v" edebug-view-outside "p" edebug-bounce-point "P" "W" edebug-toggle-save-windows "?" edebug-help "d" edebug-backtrace "-" negative-argument "=" edebug-temp-display-freq-count "" "" "" " " "" "" #[nil "АБ!‡" [edebug-set-breakpoint t] 2] "\f"] 4)
(defvar global-edebug-prefix "X" "\
Prefix key for global edebug commands, available from any buffer.")
(defvar global-edebug-map nil "\
Global map of edebug commands, available from any buffer.")
(byte-code "„v Б В!€Д\"€ЕЖЗ#€ЕИЙ#€ЕКЛ#€ЕМН#€ЕОП#€ЕРС#€ЕТУ#€ЕФХ#€ЕЦЧ#€ЕШЩ#€ЕЪЫ#€ЕЬЭ#€ЕЮЯ#€Еаб#€Евг#€Еде#€Ежз#€ийк\"‡" [global-edebug-map make-sparse-keymap global-unset-key global-edebug-prefix global-set-key define-key " " edebug-step-mode "g" edebug-go-mode "G" edebug-Go-nonstop-mode "t" edebug-trace-mode "T" edebug-Trace-fast-mode "c" edebug-continue-mode "C" edebug-Continue-fast-mode "b" edebug-set-breakpoint "u" edebug-unset-breakpoint "x" edebug-set-conditional-breakpoint "X" edebug-set-global-break-condition "w" edebug-where "W" edebug-toggle-save-windows "q" top-level "Q" edebug-top-level-nonstop "a" abort-recursive-edit "=" edebug-display-freq-count defalias edebug-help #[nil "АБ!‡" [describe-function edebug-mode] 2 nil nil]] 4)
(defalias 'edebug-mode #[nil "А	!‡" [use-local-map edebug-mode-map] 2 "\
Mode for Emacs Lisp buffers while in Edebug.

In addition to all Emacs Lisp commands (except those that modify the
buffer) there are local and global key bindings to several Edebug
specific commands.  E.g. `edebug-step-mode' is bound to \\[edebug-step-mode] 
in the Edebug buffer and \\<global-map>\\[edebug-step-mode] in any buffer.

Also see bindings for the eval list buffer, *edebug*.

The edebug buffer commands:
\\{edebug-mode-map}

Global commands prefixed by `global-edebug-prefix':
\\{global-edebug-map}

Options:
edebug-setup-hook
edebug-all-defs
edebug-all-forms
edebug-save-windows
edebug-save-displayed-buffer-points
edebug-initial-mode
edebug-trace
edebug-test-coverage
edebug-continue-kbd-macro
edebug-print-length
edebug-print-level
edebug-print-circle
edebug-on-error
edebug-on-quit
edebug-on-signal
edebug-unwrap-results
edebug-global-break-condition
"])
(defalias 'edebug-eval-result-list #[nil "АБДЕ\"*‡" [Go-nonstop nil edebug-trace edebug-execution-mode mapcar edebug-safe-eval edebug-eval-list] 3 "\
Return a list of evaluations of edebug-eval-list"])
(byte-code "АБВ\"€АГД\"‡" [defalias edebug-eval-display-list #[(edebug-eval-result-list) "	ВГДЕ ЖZЗ\"\"	\n	q€Л €\nѓA М\n@!€Н €М@!€Н €П!€\nA\nA‚ Р	!+‡" [edebug-eval-list edebug-eval-buffer format ";%s\n" make-string window-width 2 45 edebug-comment-line standard-output edebug-eval-list-temp erase-buffer prin1 terpri edebug-eval-result-list princ edebug-pop-to-buffer] 7] edebug-create-eval-buffer #[nil "… Б!?… ВГ!‰q€Д ‡" [edebug-eval-buffer buffer-name get-buffer-create "*edebug*" edebug-eval-mode] 2]] 3)
(defalias 'edebug-eval-display #[(edebug-eval-result-list) "…\n Б €В!‡" [edebug-eval-result-list edebug-create-eval-buffer edebug-eval-display-list] 2 "\
Display expressions and evaluations in EVAL-LIST.
It modifies the context by popping up the eval display."])
(defalias 'edebug-eval-redisplay #[nil "А €Љ	ѓ В	!Д!€q€З!€	\n\f !\"#$%&'()*+,-./012уЋЉ4q€5b€цч !ѓ† ч 8щ“€ъы !.‡" [edebug-create-eval-buffer edebug-save-windows edebug-current-windows edebug-inside-windows edebug-set-windows edebug-outside-windows edebug-buffer store-match-data edebug-outside-match-data edebug-outside-last-command-char edebug-outside-last-command-event edebug-outside-last-command edebug-outside-this-command edebug-outside-unread-command-char edebug-outside-unread-command-event edebug-outside-unread-command-events edebug-outside-last-input-char edebug-outside-last-input-event edebug-outside-last-event-frame edebug-outside-last-nonmenu-event edebug-outside-track-mouse edebug-outside-standard-output edebug-outside-standard-input edebug-outside-executing-macro edebug-outside-defining-kbd-macro edebug-outside-pre-command-hook edebug-outside-post-command-hook edebug-outside-o-a-p edebug-outside-o-a-s edebug-outside-c-i-e-a cursor-in-echo-area overlay-arrow-string overlay-arrow-position post-command-hook pre-command-hook defining-kbd-macro executing-macro standard-input standard-output track-mouse last-nonmenu-event last-event-frame last-input-event last-input-char unread-command-events unread-command-event unread-command-char this-command last-command last-command-event last-command-char ((byte-code "ѓ Б\n!€	\n\f !\"#$%&'()*+,Б‡" [edebug-save-windows edebug-set-windows edebug-inside-windows last-command-char edebug-outside-last-command-char last-command-event edebug-outside-last-command-event last-command edebug-outside-last-command this-command edebug-outside-this-command unread-command-char edebug-outside-unread-command-char unread-command-event edebug-outside-unread-command-event unread-command-events edebug-outside-unread-command-events last-input-char edebug-outside-last-input-char last-input-event edebug-outside-last-input-event last-event-frame edebug-outside-last-event-frame last-nonmenu-event edebug-outside-last-nonmenu-event track-mouse edebug-outside-track-mouse standard-output edebug-outside-standard-output standard-input edebug-outside-standard-input executing-macro edebug-outside-executing-macro defining-kbd-macro edebug-outside-defining-kbd-macro pre-command-hook edebug-outside-pre-command-hook post-command-hook edebug-outside-post-command-hook overlay-arrow-position edebug-outside-o-a-p overlay-arrow-string edebug-outside-o-a-s cursor-in-echo-area edebug-outside-c-i-e-a] 2)) edebug-outside-buffer edebug-outside-point marker-buffer edebug-mark-marker edebug-outside-mark nil edebug-eval-display-list edebug-eval-result-list] 21 "\
Redisplay eval list in outside environment.
May only be called from within edebug-recursive-edit."])
(defalias (quote edebug-visit-eval-list) #[nil "А €Б\n!‡" [edebug-eval-redisplay edebug-pop-to-buffer edebug-eval-buffer] 2 nil nil])
(defalias 'edebug-update-eval-list #[nil "`Аeb€Г €m„ ДЕ!€Ж 	BЗИАЙ#ѓ< Еy€КАw€gЛU„ m„ ДЕ!€Ж 	B‚ 	џ\fН €\nb*‡" [nil new-list starting-point edebug-skip-whitespace forward-sexp 1 edebug-last-sexp re-search-forward "^;" t " 	\n" 59 edebug-eval-list edebug-eval-redisplay] 4 "\
Replace the evaluation list with the sexps now in the eval buffer." nil])
(defalias 'edebug-delete-eval-item #[nil "АБВГ#ѓ Дy€`ЕБВГ#€Жy€`|€З ‡" [re-search-backward "^;" nil nofail 1 re-search-forward 0 edebug-update-eval-list] 5 "\
Delete the item under point and redisplay." nil])
(defvar edebug-eval-mode-map nil "\
Keymap for edebug-eval-mode.  Superset of lisp-interaction-mode.")
(byte-code "„& Б\n!ГДЕ#€ГЖЗ#€ГИЙ#€ГКЛ#€ГМН#€Б‡" [edebug-eval-mode-map copy-keymap lisp-interaction-mode-map define-key "" edebug-where "" edebug-delete-eval-item "" edebug-update-eval-list "" edebug-eval-last-sexp "\n" edebug-eval-print-last-sexp] 4)
(defalias 'edebug-eval-mode #[nil "А €БГЕ!‡" [lisp-interaction-mode edebug-eval-mode major-mode "Edebug-Eval" mode-name use-local-map edebug-eval-mode-map] 2 "\
Mode for evaluation list buffer while in Edebug.

In addition to all Interactive Emacs Lisp commands there are local and
global key bindings to several Edebug specific commands.  E.g.
`edebug-step-mode' is bound to \\[edebug-step-mode] in the Edebug
buffer and \\<global-map>\\[edebug-step-mode] in any buffer.

Eval list buffer commands:
\\{edebug-eval-mode-map}

Global commands prefixed by global-edebug-prefix:
\\{global-edebug-map}
"])
(defalias 'edebug #[(&optional edebug-arg-mode &rest debugger-args) "ѓ4 Б \n=ѓ4 @\f@Е‰‰‰?	\n\fО €П=?…1 \f.‡РС\f#‡" [edebug-entered recursion-depth edebug-recursion-depth edebug-offset-indices debugger-args nil edebug-arg-mode edebug-break edebug-global-break edebug-break-condition edebug-break-data edebug-breakpoints edebug-value edebug-offset-index edebug-display error apply debug] 7 "\
Replacement for debug.  
If we are running an edebugged function,
show where we last were.  Otherwise call debug normally."])
(defalias 'edebug-backtrace #[nil "ѓ\n Б!„ ВГ!Б!ђ\fЕЖЗ	\nЛ €q€Е\feb€`НОЗЕ#…\\ Пy€РС!ѓK `Тy€`|€‚, РУ!ѓ, Тy€`|€‚, +‘‡" [edebug-backtrace-buffer buffer-name generate-new-buffer "*Backtrace*" standard-output t 50 nil last-ok-point print-length print-escape-newlines backtrace truncate-lines re-search-forward "^  (?edebug" 0 looking-at "^  (edebug-after" 1 "^  edebug"] 5 "\
Display a non-working backtrace.  Better than nothing..." nil])
(defalias 'edebug-trace-display #[(buf-name fmt &rest args) "А Б\n!ДЖ!€ЗА db€ЙК\f#Н±€ОПР Z!€С`\"€db€Т!€У!€+\n‡" [selected-window get-buffer-create buf-name buffer nil buf-window edebug-pop-to-buffer t truncate-lines apply edebug-format fmt args "\n" vertical-motion 1 window-height set-window-start bury-buffer select-window] 4 "\
In buffer BUF-NAME, display FMT and ARGS at the end and make it visible.
The buffer is created if it does not exist.
You must include newlines in FMT to break lines, but one newline is appended."])
(defalias 'edebug-trace #[(fmt &rest args) "АБ\n\f$‡" [apply edebug-trace-display edebug-trace-buffer fmt args] 5 "\
Convenience call to edebug-trace-display using edebug-trace-buffer"])
(defalias 'edebug-display-freq-count #[nil "А ‰ВN	ДN	ЖN‰@Й8‰\nGSМММММЉТX…л \nH\\b€Тy€`ZТS‰Xѓc \nHX„M Уy€`ФХc€T‰Xѓб HHЉ\nH\\b€igЦUѓќ Т‚ћ УZ)ЪТ`ZZ]Ы\"ТWѓД Ь>„Д Э‚Е ЮUѓС Ю‚Х Я!а±€+‚s бc€‚/ .‡" [edebug-form-data-symbol function edebug-freq-count counts edebug-coverage coverages edebug data def-mark 2 edebug-points i nil last-index first-index start-of-line start-of-count-line last-count 0 1 -1 ";#" 40 col coverage count make-string 32 (unknown ok-coverage) "=" "" int-to-string " " "\n"] 6 "\
Display the frequency count data for each line of the current
definition.  The frequency counts are inserted as comment lines after
each line, and you can undo all insertions with one `undo' command.

The counts are inserted starting under the `(' before an expression
or the `)' after an expression, or on the last char of a symbol.
The counts are only displayed when they differ from previous counts on
the same line.

If coverage is being tested, whenever all known results of an expression
are `eq', the char `=' will be appended after the count
for that expression.  Note that this is always the case for an
expression only evaluated once.

To clear the frequency count and coverage data for a definition,
reinstrument it." nil])
(defalias 'edebug-temp-display-freq-count #[nil "АВ €Г €Д Ж )‡" [nil buffer-read-only undo-boundary edebug-display-freq-count read-char unread-command-char undo] 1 "\
Temporarily display the frequency count data for the current definition.
It is removed when you hit any char." nil])
(byte-code "АБВ\"€ГД!‡" [defalias edebug-toggle #[(variable) "Б!?L€ВГБ!#‡" [variable eval message "%s: %s"] 5] require easymenu] 3)
(defconst edebug-mode-menus (quote ("Edebug" "----" ["Stop" edebug-stop t] ["Step" edebug-step-mode t] ["Next" edebug-next-mode t] ["Trace" edebug-trace-mode t] ["Trace Fast" edebug-Trace-fast-mode t] ["Continue" edebug-continue-mode t] ["Continue Fast" edebug-Continue-fast-mode t] ["Go" edebug-go-mode t] ["Go Nonstop" edebug-Go-nonstop-mode t] "----" ["Help" edebug-help t] ["Abort" abort-recursive-edit t] ["Quit to Top Level" top-level t] ["Quit Nonstop" edebug-top-level-nonstop t] "----" ("Jumps" ["Forward Sexp" edebug-forward-sexp t] ["Step In" edebug-step-in t] ["Step Out" edebug-step-out t] ["Goto Here" edebug-goto-here t]) ("Breaks" ["Set Breakpoint" edebug-set-breakpoint t] ["Unset Breakpoint" edebug-unset-breakpoint t] ["Set Conditional Breakpoint" edebug-set-conditional-breakpoint t] ["Set Global Break Condition" edebug-set-global-break-condition t] ["Show Next Breakpoint" edebug-next-breakpoint t]) ("Views" ["Where am I?" edebug-where t] ["Bounce to Current Point" edebug-bounce-point t] ["View Outside Windows" edebug-view-outside t] ["Previous Result" edebug-previous-result t] ["Show Backtrace" edebug-backtrace t] ["Display Freq Count" edebug-display-freq-count t]) ("Eval" ["Expression" edebug-eval-expression t] ["Last Sexp" edebug-eval-last-sexp t] ["Visit Eval List" edebug-visit-eval-list t]) ("Options" ["Edebug All Defs" edebug-all-defs t] ["Edebug All Forms" edebug-all-forms t] "----" ["Toggle Tracing" (edebug-toggle (quote edebug-trace)) t] ["Toggle Coverage Testing" (edebug-toggle (quote edebug-test-coverage)) t] ["Toggle Window Saving" edebug-toggle-save-windows t] ["Toggle Point Saving" (edebug-toggle (quote edebug-save-displayed-buffer-points)) t]))) "\
Lemacs style menus for Edebug.")
(byte-code "АБВ\"€АГД\"€АЕЖ\"€Е €ЗИ!ѓ  ЙКЛ\"€‚% ЙМН\"€ЗО!ѓ3 ЙКП\"€‚8 ЙРС\"€Т €УФ!‡" [defalias edebug-emacs-19-specific #[nil "АБВ\"€ГДM€ЕЖM€ЗИM€	\n\fН\f@\fA\"П\n!ѓ/ \nC\n\nѓQ Р\n@СТУ\f@!\"\f@B#€\nA‰\n„4 +…_ ХЦЧ	Ш\"\"‡" [defalias edebug-window-live-p window-live-p edebug-mark #[nil "АБ!‡" [mark t] 2] edebug-set-conditional-breakpoint #[(arg condition) "АБ\n#‡" [edebug-modify-breakpoint t condition arg] 4 "Set a conditional breakpoint at nearest sexp.\nThe condition is evaluated in the outside context.\nWith prefix argument, make it a temporary breakpoint." (list current-prefix-arg (let ((edebug-stop-point (edebug-find-stop-point))) (if edebug-stop-point (let* ((edebug-def-name (car edebug-stop-point)) (index (cdr edebug-stop-point)) (edebug-data (get edebug-def-name (quote edebug))) (edebug-breakpoints (car (cdr edebug-data))) (edebug-break-data (assq index edebug-breakpoints)) (edebug-break-condition (car (cdr edebug-break-data))) (edebug-expression-history (if edebug-break-condition (cons edebug-break-condition read-expression-history) read-expression-history))) (prog1 (read-from-minibuffer "Condition: " nil read-expression-map t (quote edebug-expression-history)) (setq read-expression-history edebug-expression-history))))))] edebug-eval-expression #[(edebug-expr) "АЉ	ѓ В	!Д!€q€З!€	\n\f !\"#$%&'()*+,-./012уЋЉ4q€5b€цч !ѓ„ ч 8щ“€ъ;!<B<э<@!.!‡" [princ edebug-save-windows edebug-current-windows edebug-inside-windows edebug-set-windows edebug-outside-windows edebug-buffer store-match-data edebug-outside-match-data edebug-outside-last-command-char edebug-outside-last-command-event edebug-outside-last-command edebug-outside-this-command edebug-outside-unread-command-char edebug-outside-unread-command-event edebug-outside-unread-command-events edebug-outside-last-input-char edebug-outside-last-input-event edebug-outside-last-event-frame edebug-outside-last-nonmenu-event edebug-outside-track-mouse edebug-outside-standard-output edebug-outside-standard-input edebug-outside-executing-macro edebug-outside-defining-kbd-macro edebug-outside-pre-command-hook edebug-outside-post-command-hook edebug-outside-o-a-p edebug-outside-o-a-s edebug-outside-c-i-e-a cursor-in-echo-area overlay-arrow-string overlay-arrow-position post-command-hook pre-command-hook defining-kbd-macro executing-macro standard-input standard-output track-mouse last-nonmenu-event last-event-frame last-input-event last-input-char unread-command-events unread-command-event unread-command-char this-command last-command last-command-event last-command-char ((byte-code "ѓ Б\n!€	\n\f !\"#$%&'()*+,Б‡" [edebug-save-windows edebug-set-windows edebug-inside-windows last-command-char edebug-outside-last-command-char last-command-event edebug-outside-last-command-event last-command edebug-outside-last-command this-command edebug-outside-this-command unread-command-char edebug-outside-unread-command-char unread-command-event edebug-outside-unread-command-event unread-command-events edebug-outside-unread-command-events last-input-char edebug-outside-last-input-char last-input-event edebug-outside-last-input-event last-event-frame edebug-outside-last-event-frame last-nonmenu-event edebug-outside-last-nonmenu-event track-mouse edebug-outside-track-mouse standard-output edebug-outside-standard-output standard-input edebug-outside-standard-input executing-macro edebug-outside-executing-macro defining-kbd-macro edebug-outside-defining-kbd-macro pre-command-hook edebug-outside-pre-command-hook post-command-hook edebug-outside-post-command-hook overlay-arrow-position edebug-outside-o-a-p overlay-arrow-string edebug-outside-o-a-s cursor-in-echo-area edebug-outside-c-i-e-a] 2)) edebug-outside-buffer edebug-outside-point marker-buffer edebug-mark-marker edebug-outside-mark nil edebug-eval edebug-expr values edebug-safe-prin1-to-string] 22 "Evaluate an expression in the outside environment.  \nIf interactive, prompt for the expression.\nPrint result in minibuffer." (list (read-from-minibuffer "Eval: " nil read-expression-map t (quote read-expression-history)))] edebug-mode-map maps edebug-mode-menus menu easy-menu-create-keymaps keymap keymapp define-key vector menu-bar intern window-system x-popup-menu nil lookup-key [menu-bar Edebug]] 7] edebug-lemacs-specific #[nil "АБM€ВГM€ДЕM€ЖИД#‡" [edebug-mark #[nil "АВ )‡" [nil zmacs-regions mark] 1] edebug-mark-marker #[nil "АВ )‡" [nil zmacs-regions mark-marker] 1] edebug-mode-menu #[(event) "А	!‡" [popup-menu edebug-mode-menus] 2 nil "@event"] define-key edebug-mode-map button3] 4] edebug-emacs-version-specific #[nil "АБ\n\"ѓ\n Г ‡ДЕ!ѓ ѓ ЖЗ!‡АИ\n\"?…\" Й ‡" [string-match "Lucid" emacs-version edebug-lemacs-specific boundp epoch::version require edebug-epoch "^18" edebug-emacs-19-specific] 3] featurep cl add-hook edebug-setup-hook #[nil "АБ!‡" [require cl-specs] 2] cl-load-hook #[nil "АБ!‡" [require cl-specs] 2] cl-read #[nil "АБ!‡" [require edebug-cl-read] 2] cl-read-load-hooks #[nil "АБ!‡" [require edebug-cl-read] 2] edebug-install-read-eval-functions provide edebug] 3)