procyberian/emacs
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(edebug-kill-buffer): New function.

Browse source 
(edebug-mode): Add the hook.
(edebug-recursive-edit): Remove the hook on exiting.
This commit is contained in:
Richard M. Stallman 2007-03-04 17:53:03 +00:00
parent dad757bc24
commit e20e4a4836
1 changed files with 11 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

11
lisp/emacs-lisp/edebug.el
View file

@ -2939,6 +2939,7 @@ MSG is printed after `::::} '."
(edebug-overlay-arrow)) (edebug-overlay-arrow))
(setq buffer-read-only edebug-buffer-read-only) (setq buffer-read-only edebug-buffer-read-only)
(use-local-map edebug-outside-map) (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 ;; gotta have a buffer to let its buffer local variables be set
(get-buffer-create " bogus edebug buffer")) (get-buffer-create " bogus edebug buffer"))
@ -3942,8 +3943,18 @@ edebug-on-signal
edebug-unwrap-results edebug-unwrap-results
edebug-global-break-condition 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)) (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 ;;; edebug eval list mode
;; A list of expressions and their evaluations is displayed in *edebug*. ;; A list of expressions and their evaluations is displayed in *edebug*.