diff options
| author | Neil Jerram <neil@ossau.uklinux.net> | 2007-01-17 13:38:17 +0000 |
|---|---|---|
| committer | Neil Jerram <neil@ossau.uklinux.net> | 2007-01-17 13:38:17 +0000 |
| commit | 6d6a3fe26083e37760d5de28198a67903d083d3e (patch) | |
| tree | 5852232638ea3ec19a932c30a411d6766a509f57 /emacs | |
| parent | 8e1973d9abd8a1706d5014e316c0a0fdec6f75da (diff) | |
| download | guile-6d6a3fe26083e37760d5de28198a67903d083d3e.tar.gz | |
(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.
Diffstat (limited to 'emacs')
| -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) |