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 | 64ba8a37a52e1b07605915931825de399cb5646a (patch) | |
| tree | 76e68a559f4a759f276e8c0a5ed5b662fe667056 | |
| parent | 50669ab30243002035b9637c05b51e6b95397335 (diff) | |
| download | geiser-chez-64ba8a37a52e1b07605915931825de399cb5646a.tar.gz geiser-chez-64ba8a37a52e1b07605915931825de399cb5646a.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: |