mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-27 07:37:33 +00:00
Code Issues Releases Activity

(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
Show Stats 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))
(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"))
@ -3942,8 +3943,18 @@ 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*.