comparison lisp/emacs-lisp/edebug.el @ 67780:6f62623c8c61

(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.

67779:01ba52243e5f

;; Compatibility with old versions.
(defalias 'edebug-all-defuns 'edebug-all-defs)

(defun edebug-all-defs ()
  "Toggle edebugging of all definitions."
  (interactive)
  (setq edebug-all-defs (not edebug-all-defs))
  (message "Edebugging all definitions is %s."
	   (if edebug-all-defs "on" "off")))


(defun edebug-all-forms ()
  "Toggle edebugging of all forms."
  (interactive)
  (setq edebug-all-forms (not edebug-all-forms))
  (message "Edebugging all forms is %s."

(defvar edebug-outside-windows) ; outside window configuration
(defvar edebug-eval-buffer) ; for the evaluation list.
(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-eval-list nil) ;; List of expressions to evaluate.

(defvar edebug-previous-result nil) ;; Last result returned.

	edebug-trace-window
	edebug-trace-window-start

	(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))
    (unwind-protect
	(let ((overlay-arrow-position overlay-arrow-position)
	      (overlay-arrow-string overlay-arrow-string)
	      (cursor-in-echo-area nil)
	      ;; any others??
	      )
	  (if (not (buffer-name edebug-buffer))
	      (let ((debug-on-error nil))
		(error "Buffer defining %s not found" edebug-function)))

      (with-timeout-unsuspend edebug-with-timeout-suspend)
      ;; Reset global variables to outside values in case they were changed.
      (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)
      )))


(defvar edebug-number-of-recursions 0)
;; Number of recursive edits started by edebug.

	   ;; See edebug-display
	   (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
	   (save-excursion		; of edebug-buffer
	     (set-buffer edebug-outside-buffer)
	     (goto-char edebug-outside-point)

	  edebug-outside-defining-kbd-macro defining-kbd-macro

	  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
	  )

	 ;; Restore the outside saved values; don't alter
	 ;; the outside binding loci.
	 (setcdr edebug-outside-pre-command-hook pre-command-hook)

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':

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}")

;;; Interface with standard debugger.

;; (setq debugger 'edebug) ; to use the edebug debugger

67780:6f62623c8c61

;; Compatibility with old versions.
(defalias 'edebug-all-defuns 'edebug-all-defs)

;;;###autoload
(defun edebug-all-defs ()
  "Toggle edebugging of all definitions."
  (interactive)
  (setq edebug-all-defs (not edebug-all-defs))
  (message "Edebugging all definitions is %s."
	   (if edebug-all-defs "on" "off")))


;;;###autoload
(defun edebug-all-forms ()
  "Toggle edebugging of all forms."
  (interactive)
  (setq edebug-all-forms (not edebug-all-forms))
  (message "Edebugging all forms is %s."

(defvar edebug-outside-windows) ; outside window configuration
(defvar edebug-eval-buffer) ; for the evaluation list.
(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.

(defvar edebug-previous-result nil) ;; Last result returned.

	edebug-trace-window
	edebug-trace-window-start

	(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))
    (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))
	      (let ((debug-on-error nil))
		(error "Buffer defining %s not found" edebug-function)))

      (with-timeout-unsuspend edebug-with-timeout-suspend)
      ;; Reset global variables to outside values in case they were changed.
      (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
       default-cursor-in-non-selected-windows edebug-outside-d-c-i-n-s-w)
      )))


(defvar edebug-number-of-recursions 0)
;; Number of recursive edits started by edebug.

	   ;; See edebug-display
	   (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
	     (set-buffer edebug-outside-buffer)
	     (goto-char edebug-outside-point)

	  edebug-outside-defining-kbd-macro defining-kbd-macro

	  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
	 ;; the outside binding loci.
	 (setcdr edebug-outside-pre-command-hook pre-command-hook)

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* in `edebug-eval-mode'.

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

Global commands prefixed by `global-edebug-prefix':

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}")

;;; Interface with standard debugger.

;; (setq debugger 'edebug) ; to use the edebug debugger