1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-04-30 03:40:34 +02:00

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.
This commit is contained in:
Neil Jerram 2009-09-22 00:00:59 +01:00
parent b77afe82a4
commit e8e655e21b
2 changed files with 5 additions and 2 deletions

1
THANKS
View file

@ -85,6 +85,7 @@ For fixes or providing information which led to a fix:
Peter O'Gorman Peter O'Gorman
Pieter Pareit Pieter Pareit
Jack Pavlovsky Jack Pavlovsky
Derek Peschel
Arno Peters Arno Peters
Ron Peterson Ron Peterson
David Pirotte David Pirotte

View file

@ -424,11 +424,13 @@ through the code."
(map (make-sparse-keymap))) (map (make-sparse-keymap)))
(define-key map [mouse-1] 'gds-show-last-stack) (define-key map [mouse-1] 'gds-show-last-stack)
(define-key map "\C-m" '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) (add-text-properties beg (point)
(list 'keymap map (list 'keymap map
'mouse-face 'highlight)) 'mouse-face 'highlight))
(insert "\n"))) (insert "\n")
(add-text-properties (1- (point)) (point)
(list 'keymap map))))
(goto-char (point-min)) (goto-char (point-min))
(gds-associate-buffer client)) (gds-associate-buffer client))
(pop-to-buffer buf) (pop-to-buffer buf)