diff options
Diffstat (limited to 'emacs/.emacs.d/lisp/my/my-prog.el')
| -rw-r--r-- | emacs/.emacs.d/lisp/my/my-prog.el | 11 |
1 files changed, 11 insertions, 0 deletions
diff --git a/emacs/.emacs.d/lisp/my/my-prog.el b/emacs/.emacs.d/lisp/my/my-prog.el index d93c745..faf20b6 100644 --- a/emacs/.emacs.d/lisp/my/my-prog.el +++ b/emacs/.emacs.d/lisp/my/my-prog.el @@ -442,6 +442,17 @@ overlay arrow in source buffer." ;; (accept-process-output (get-buffer-process gud-comint-buffer) .1))) ;; (gud-gdb-completions-1 gud-gdb-fetched-lines))) +(defun my-gud-print-expr (expr) + (with-current-buffer gud-comint-buffer + (insert "p " expr) + (comint-send-input))) + +(defun my-gud-print-expr-region (b e) + (interactive "r") + (if (eq (gdb-get-source-buffer) (current-buffer)) + (my-gud-print-expr (buffer-substring b e)) + (error "Not in the source buffer"))) + ;;; which-func (defun my-copy-which-func () (interactive) |