(gds-display-results): Add another binding for

gds-show-last-stack (RET).
(scheme-mode-map): And another: C-h S.
(scheme-mode-map): And an alternative C-h G binding for
gds-apropos, as we probably should not be using C-h C-g.

diff --git a/emacs/ChangeLog b/emacs/ChangeLog
index 21c354c..fabe423 100644 (file)
--- a/emacs/ChangeLog
+++ b/emacs/ChangeLog
@@ -1,3 +1,11 @@
+2007-01-17  Neil Jerram  <neil@ossau.uklinux.net>
+
+       * gds-scheme.el (gds-display-results): Add another binding for
+       gds-show-last-stack (RET).
+       (scheme-mode-map): And another: C-h S.
+       (scheme-mode-map): And an alternative C-h G binding for
+       gds-apropos, as we probably should not be using C-h C-g.
+
 2006-11-02  Neil Jerram  <neil@ossau.uklinux.net>
 
        * gds-scheme.el (gds-choose-client): Change assq to memq, so that

diff --git a/emacs/gds-scheme.el b/emacs/gds-scheme.el
index 134e805..29a54a5 100755 (executable)
--- a/emacs/gds-scheme.el
+++ b/emacs/gds-scheme.el
@@ -404,6 +404,7 @@ region's code."
             (let ((beg (point))
                   (map (make-sparse-keymap)))
               (define-key map [mouse-1] 'gds-show-last-stack)
+              (define-key map "\C-m" 'gds-show-last-stack)
               (insert "[click here to show error stack]")
               (add-text-properties beg (point)
                                    (list 'keymap map
@@ -1007,6 +1008,8 @@ return the one that they chose."
 (define-key scheme-mode-map "\C-c\C-r" 'gds-eval-region)
 (define-key scheme-mode-map "\C-hg" 'gds-help-symbol)
 (define-key scheme-mode-map "\C-h\C-g" 'gds-apropos)
+(define-key scheme-mode-map "\C-hG" 'gds-apropos)
+(define-key scheme-mode-map "\C-hS" 'gds-show-last-stack)
 (define-key scheme-mode-map "\e\t" 'gds-complete-symbol)
 (define-key scheme-mode-map "\C-x " 'gds-set-breakpoint)