[slime-cvs] CVS slime

[trittweiler]

Update of /project/slime/cvsroot/slime
In directory clnet:/tmp/cvs-serv4437

Modified Files:
	slime.el 
Log Message:

* slime.el (slime-repl-mode-map, slime-repl-read-mode),
  (slime-compiler-notes-mode-map, slime-xref-mode-map),
  (sldb-mode-map, slime-connection-list-mode-map),
  (slime-inspector-mode-map): Added bindings for [return] in
  addition to (kbd "RET"). The reason is that pressing enter in X is
  translated to (kbd "RET") only if no binding for [return] is
  active; if [return] is bound to something, pressing enter is
  translated to this key binding henceforth, as was explained to me
  by Pierre Gaston, thanks! This can cause quite confusing behaviour
  as Andreas Davour faced in his post <cs9k5ofqbt7.fsf at Psilocybe.Update.UU.SE> 
  to comp.lang.lisp.


--- /project/slime/cvsroot/slime/slime.el	2007/11/06 13:10:23	1.877
+++ /project/slime/cvsroot/slime/slime.el	2007/11/19 20:18:08	1.878
@@ -2840,6 +2840,7 @@
 
 (slime-define-keys slime-repl-mode-map
   ("\C-m" 'slime-repl-return)
+  ([return] 'slime-repl-return)
   ("\C-j" 'slime-repl-newline-and-indent)
   ("\C-\M-m" 'slime-repl-closing-return)
   ([(control return)] 'slime-repl-closing-return)
@@ -3565,6 +3566,7 @@
   nil
   "[read]"
   '(("\C-m" . slime-repl-return)
+    ([return] . slime-repl-return)
     ("\C-c\C-b" . slime-repl-read-break)
     ("\C-c\C-c" . slime-repl-read-break)))
 
@@ -4167,6 +4169,7 @@
 
 (slime-define-keys slime-compiler-notes-mode-map
   ((kbd "RET") 'slime-compiler-notes-default-action-or-show-details)
+  ([return] 'slime-compiler-notes-default-action-or-show-details)
   ([mouse-2] 'slime-compiler-notes-default-action-or-show-details/mouse)
   ("q" 'slime-temp-buffer-quit))
 
@@ -5985,6 +5988,7 @@
 
 (slime-define-keys slime-xref-mode-map 
   ((kbd "RET") 'slime-show-xref)
+  ([return] 'slime-show-xref)
   ("\C-m" 'slime-show-xref)
   (" " 'slime-goto-xref)
   ("q" 'slime-xref-quit)
@@ -6516,6 +6520,7 @@
   ("v"    'sldb-show-source)
   ((kbd "RET") 'sldb-default-action)
   ("\C-m"      'sldb-default-action)
+  ([return] 'sldb-default-action)
   ([mouse-2]  'sldb-default-action/mouse)
   ([follow-link] 'mouse-face)
   ("e"    'sldb-eval-in-frame)
@@ -7339,6 +7344,7 @@
 
 (slime-define-keys slime-connection-list-mode-map
   ((kbd "RET") 'slime-goto-connection)
+  ([return] 'slime-goto-connection)
   ("d"         'slime-connection-list-make-default)
   ("g"         'slime-update-connection-list)
   ((kbd "C-k") 'slime-quit-connection-at-point)