pestctrl/emacs-config
1
0
Fork 0
mirror of https://github.com/pestctrl/emacs-config.git synced 2026-06-14 04:11:18 +00:00
Code Issues Projects Releases Packages Wiki Activity

Feels weird not to have a y-or-n-p.

Browse source
This commit is contained in:
Benson Chu 2026-05-11 13:47:55 -05:00
parent 7ac690b51e
commit 4bc8acf8e7
1 changed files with 10 additions and 9 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

19
config-programming.org
View file

@ -449,15 +449,16 @@
(defun realgud:rr-reverse-continue ()
(interactive)
(let* ((buffer (current-buffer))
(cmdbuf (realgud-get-cmdbuf))
(cmd "reverse-continue"))
(progn
;; Set flag to know which buffer to jump back to
(with-current-buffer-safe cmdbuf
(realgud-cmdbuf-info-in-srcbuf?= (not (realgud-cmdbuf? buffer))))
;; Run actual command
(realgud-command cmd nil nil nil nil))))
(when (y-or-n-p "Reverse continue? ")
(let* ((buffer (current-buffer))
(cmdbuf (realgud-get-cmdbuf))
(cmd "reverse-continue"))
(progn
;; Set flag to know which buffer to jump back to
(with-current-buffer-safe cmdbuf
(realgud-cmdbuf-info-in-srcbuf?= (not (realgud-cmdbuf? buffer))))
;; Run actual command
(realgud-command cmd nil nil nil nil)))))
(define-key realgud:shortkey-mode-map (kbd "p") #'realgud:rr-reverse-next)
(define-key realgud:shortkey-mode-map (kbd "C") #'realgud:rr-reverse-continue)