diff options
| -rw-r--r-- | emacs/ChangeLog | 8 | ||||
| -rwxr-xr-x | emacs/gds-scheme.el | 3 |
2 files changed, 11 insertions, 0 deletions
diff --git a/emacs/ChangeLog b/emacs/ChangeLog index 21c354c7b..fabe42310 100644 --- 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 134e80592..29a54a574 100755 --- 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) |