diff options
| author | Neil Jerram <neil@ossau.uklinux.net> | 2009-09-22 00:00:59 +0100 |
|---|---|---|
| committer | Neil Jerram <neil@ossau.uklinux.net> | 2009-09-22 00:39:57 +0100 |
| commit | e8e655e21bc315a9522b66dd6de1dc76d928ccd5 (patch) | |
| tree | 09b3677b3613af40663a6bf309fddf3febf34c96 /emacs | |
| parent | b77afe82a4205bca706a853d7a62aea4ea9b7eed (diff) | |
GDS usability: operation without a mouse
Derek Peschel provided this patch and described it as follows.
"Most of the time I use Terminal in OS X, rather than xterm. I also don't
bother with the GUI versions of Emacs. So unfortunately I have no mouse
support in Emacs. Also the system I'm testing Guile on thinks my terminal
doesn't support color and I haven't fixed it yet. The attached patch makes
GDS more usable for me.
"With no mouse, the "[click here to show error stack]" design is very
inconvenient. You added a C-M (return) binding at some point. I copied
that, but I also changed the message to show it. And I made the return
work when the cursor is after the right bracket."
* emacs/gds-scheme.el (gds-display-results): Make "click here" message
more helpful for people without mice. Also extend text properties
so that a RET key press works at the end of that line.
Diffstat (limited to 'emacs')
| -rwxr-xr-x | emacs/gds-scheme.el | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/emacs/gds-scheme.el b/emacs/gds-scheme.el index bb605c364..326d15265 100755 --- a/emacs/gds-scheme.el +++ b/emacs/gds-scheme.el @@ -424,11 +424,13 @@ through the code." (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]") + (insert "[click here (or RET) to show error stack]") (add-text-properties beg (point) (list 'keymap map 'mouse-face 'highlight)) - (insert "\n"))) + (insert "\n") + (add-text-properties (1- (point)) (point) + (list 'keymap map)))) (goto-char (point-min)) (gds-associate-buffer client)) (pop-to-buffer buf) |