You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
24 lines
831 B
24 lines
831 B
(when (require 'gud)
|
|
(defvar macoy-gud-minor-mode-map
|
|
(let ((map (make-sparse-keymap)))
|
|
(define-key map (kbd "S-<f5>") 'gud-run)
|
|
(define-key map (kbd "C-<f5>") 'gud-run)
|
|
(define-key map (kbd "<f5>") 'gud-cont)
|
|
(define-key map (kbd "<f9>") 'gud-break)
|
|
;; Do not enter functions
|
|
(define-key map (kbd "<f10>") 'gud-next)
|
|
;; Do enter functions
|
|
(define-key map (kbd "<f11>") 'gud-step)
|
|
;; Step out of function
|
|
(define-key map (kbd "S-<f11>") 'gud-finish)
|
|
;; Print at mark
|
|
(define-key map (kbd "C-SPC") 'gud-print)
|
|
(define-key map (kbd "C-S-SPC") 'gud-watch)
|
|
map)
|
|
"macoy-gud-minor-mode keymap.")
|
|
|
|
(define-minor-mode macoy-gud-minor-mode
|
|
"A minor mode for Visual-Studio-like gud keybindings."
|
|
:init-value nil
|
|
:lighter " Macoy-GUD")
|
|
)
|
|
|