diff options
| author | Jose Antonio Ortega Ruiz <jao@gnu.org> | 2010-06-15 03:19:03 +0200 |
|---|---|---|
| committer | Jose Antonio Ortega Ruiz <jao@gnu.org> | 2010-06-15 03:19:03 +0200 |
| commit | 6b80b5ade030417ba227d914e01615b06c97c73e (patch) | |
| tree | ac93111a02650543ca8524d066d01a0227166697 | |
| parent | ba49fc948222535f41e2bad5f5fb6df6af601170 (diff) | |
| download | geiser-6b80b5ade030417ba227d914e01615b06c97c73e.tar.gz geiser-6b80b5ade030417ba227d914e01615b06c97c73e.tar.bz2 | |
Menu for debug buffer.
| -rw-r--r-- | elisp/geiser-debug.el | 11 |
1 files changed, 11 insertions, 0 deletions
diff --git a/elisp/geiser-debug.el b/elisp/geiser-debug.el index fb7eeb1..46d4509 100644 --- a/elisp/geiser-debug.el +++ b/elisp/geiser-debug.el @@ -13,6 +13,7 @@ (require 'geiser-impl) (require 'geiser-eval) +(require 'geiser-menu) (require 'geiser-popup) (require 'geiser-base) @@ -37,6 +38,16 @@ (setq major-mode 'geiser-debug-mode) (setq buffer-read-only t)) +(defun geiser-debug--button-p (nextp) + (let ((m (funcall (if nextp 'next-button 'previous-button) (point)))) + (and m (funcall (if nextp '< '>) (point) (marker-position m))))) + +(geiser-menu--defmenu debug geiser-debug-mode-map + ("Next error" "n" forward-button :enable (geiser-debug--button-p t)) + ("Previous error" "p" backward-button :enable (geiser-debug--button-p t)) + -- + ("Quit" nil View-quit)) + ;;; Buffer for displaying evaluation results: |