comparison lisp/emacs-lisp/edebug.el @ 76298:872a30c0f872

(edebug-kill-buffer): New function. (edebug-mode): Add the hook. (edebug-recursive-edit): Remove the hook on exiting.

76297:35a8988b02f7

		  (set-buffer edebug-buffer)
		  (if (memq edebug-execution-mode '(go Go-nonstop))
		      (edebug-overlay-arrow))
		  (setq buffer-read-only edebug-buffer-read-only)
		  (use-local-map edebug-outside-map)
		  )
	      ;; gotta have a buffer to let its buffer local variables be set
	      (get-buffer-create " bogus edebug buffer"))
	    ));; inner let

edebug-on-quit
edebug-on-signal
edebug-unwrap-results
edebug-global-break-condition
"
  (use-local-map edebug-mode-map))

;;; edebug eval list mode

;; A list of expressions and their evaluations is displayed in *edebug*.

76298:872a30c0f872

		  (set-buffer edebug-buffer)
		  (if (memq edebug-execution-mode '(go Go-nonstop))
		      (edebug-overlay-arrow))
		  (setq buffer-read-only edebug-buffer-read-only)
		  (use-local-map edebug-outside-map)
		  (remove-hook 'kill-buffer-hook 'edebug-kill-buffer t)
		  )
	      ;; gotta have a buffer to let its buffer local variables be set
	      (get-buffer-create " bogus edebug buffer"))
	    ));; inner let

edebug-on-quit
edebug-on-signal
edebug-unwrap-results
edebug-global-break-condition
"
  ;; If the user kills the buffer in which edebug is currently active,
  ;; exit to top level, because the edebug command loop can't usefully
  ;; continue running in such a case.
  (add-hook 'kill-buffer-hook 'edebug-kill-buffer nil t)
  (use-local-map edebug-mode-map))

(defun edebug-kill-buffer ()
  "Used on `kill-buffer-hook' when Edebug is operating in a buffer of Lisp code."
  (let (kill-buffer-hook)
    (kill-buffer (current-buffer)))
  (top-level))

;;; edebug eval list mode

;; A list of expressions and their evaluations is displayed in *edebug*.