# HG changeset patch # User Juri Linkov # Date 1135374961 0 # Node ID 6f62623c8c61bd759637a680688fae07e0529cec # Parent 01ba52243e5f2998ed5136ef775314847c5b4e54 (edebug-all-defs, edebug-all-forms): Add autoload cookies. (edebug-outside-d-c-i-n-s-w): New variable. (edebug-display, edebug-outside-excursion): Use it to save the original value of default-cursor-in-non-selected-windows. Set default-cursor-in-non-selected-windows to t while Edebug is active. (edebug-mode, edebug-eval-mode): Doc fix. diff -r 01ba52243e5f -r 6f62623c8c61 lisp/emacs-lisp/edebug.el --- a/lisp/emacs-lisp/edebug.el Fri Dec 23 21:53:29 2005 +0000 +++ b/lisp/emacs-lisp/edebug.el Fri Dec 23 21:56:01 2005 +0000 @@ -570,6 +570,7 @@ ;; Compatibility with old versions. (defalias 'edebug-all-defuns 'edebug-all-defs) +;;;###autoload (defun edebug-all-defs () "Toggle edebugging of all definitions." (interactive) @@ -578,6 +579,7 @@ (if edebug-all-defs "on" "off"))) +;;;###autoload (defun edebug-all-forms () "Toggle edebugging of all forms." (interactive) @@ -2516,6 +2518,7 @@ (defvar edebug-outside-o-a-p) ; outside overlay-arrow-position (defvar edebug-outside-o-a-s) ; outside overlay-arrow-string (defvar edebug-outside-c-i-e-a) ; outside cursor-in-echo-area +(defvar edebug-outside-d-c-i-n-s-w) ; outside default-cursor-in-non-selected-windows (defvar edebug-eval-list nil) ;; List of expressions to evaluate. @@ -2557,11 +2560,13 @@ (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)) + (edebug-outside-c-i-e-a cursor-in-echo-area) + (edebug-outside-d-c-i-n-s-w default-cursor-in-non-selected-windows)) (unwind-protect (let ((overlay-arrow-position overlay-arrow-position) (overlay-arrow-string overlay-arrow-string) (cursor-in-echo-area nil) + (default-cursor-in-non-selected-windows t) ;; any others?? ) (if (not (buffer-name edebug-buffer)) @@ -2767,7 +2772,8 @@ (setq 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) + cursor-in-echo-area edebug-outside-c-i-e-a + default-cursor-in-non-selected-windows edebug-outside-d-c-i-n-s-w) ))) @@ -3580,6 +3586,7 @@ (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) + (default-cursor-in-non-selected-windows edebug-outside-d-c-i-n-s-w) ) (unwind-protect (save-excursion ; of edebug-buffer @@ -3618,6 +3625,7 @@ 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 + edebug-outside-d-c-i-n-s-w default-cursor-in-non-selected-windows ) ;; Restore the outside saved values; don't alter @@ -3897,7 +3905,7 @@ specific commands. E.g. `edebug-step-mode' is bound to \\[edebug-step-mode] in the Edebug buffer and \\\\[edebug-step-mode] in any buffer. -Also see bindings for the eval list buffer, *edebug*. +Also see bindings for the eval list buffer *edebug* in `edebug-eval-mode'. The edebug buffer commands: \\{edebug-mode-map} @@ -4054,7 +4062,7 @@ Eval list buffer commands: \\{edebug-eval-mode-map} -Global commands prefixed by global-edebug-prefix: +Global commands prefixed by `global-edebug-prefix': \\{global-edebug-map}") ;;; Interface with standard debugger.