diff options
author | Yuchen Pei <id@ypei.org> | 2023-08-26 11:46:56 +1000 |
---|---|---|
committer | Yuchen Pei <id@ypei.org> | 2023-08-26 11:46:56 +1000 |
commit | 8e6322c898fa057c367f534b632c37d2261c4600 (patch) | |
tree | 369ccd8d4b2e6f16f560a27539517f8ceb81ef44 /emacs/.emacs.d/lisp/my/my-prog.el | |
parent | 1866ce5fc8eb8b3c4f013744ebc6efdf82f50ebd (diff) |
Fixing a few things
Diffstat (limited to 'emacs/.emacs.d/lisp/my/my-prog.el')
-rw-r--r-- | emacs/.emacs.d/lisp/my/my-prog.el | 9 |
1 files changed, 9 insertions, 0 deletions
diff --git a/emacs/.emacs.d/lisp/my/my-prog.el b/emacs/.emacs.d/lisp/my/my-prog.el index 2bb4745..558117b 100644 --- a/emacs/.emacs.d/lisp/my/my-prog.el +++ b/emacs/.emacs.d/lisp/my/my-prog.el @@ -387,6 +387,15 @@ left and the source buffer on the right. (interactive) (insert (file-name-base (buffer-file-name)) "-")) +;; override `debugger-quit' - delete instead quit window +(defun my-debugger-quit () + "Quit debugging and return to the top level." + (interactive) + (if (= (recursion-depth) 0) + (delete-window) + (top-level))) + +;;; prog-mode (defun my-prog-modes-setup () (setq-local comment-auto-fill-only-comments t) (auto-fill-mode) |