[slime-cvs] CVS slime

[CVS User heller]

Update of /project/slime/cvsroot/slime
In directory cl-net:/tmp/cvs-serv20781

Modified Files:
	ChangeLog slime.el 
Log Message:
* slime.el (slime-keys): Remove the binding for C-c C-i. M-TAB
can also be pressed with M-C-i which is probably not taken
by the window manager.  ESC TAB would also work.  Maybe we
should reuse C-c C-i for slime-inspect.
Move C-c C-y to slime-repl.e.
Remove C-c C-f: it's already on C-c C-d f.
Remove C-c M-0: slime-restore-window-configuration doesn't exist.
Remove M-g: slime-quit doesn't work since ages.

* slime-repl.el (slime-mode-map): Bind C-c~ not ~.
Reported by James Wright.
(slime-repl-mode-map): Bind M-TAB.
Remove C-c C-k: compiling the REPL buffer doesn't work anyway.
Remove C-cC-b, C-c:, C-cE, C-cC-d, C-cC-w, C-M-x, C-cC-t, C-cC-l:
those are already bound in slime-parent-map.

--- /project/slime/cvsroot/slime/ChangeLog	2009/01/05 21:58:14	1.1640
+++ /project/slime/cvsroot/slime/ChangeLog	2009/01/07 09:21:44	1.1641
@@ -1,3 +1,14 @@
+2009-01-07  Helmut Eller  <heller at common-lisp.net>
+
+	* slime.el (slime-keys): Remove the binding for C-c C-i. M-TAB
+	can also be pressed with M-C-i which is probably not taken
+	by the window manager.  ESC TAB would also work.  Maybe we
+	should reuse C-c C-i for slime-inspect.
+	Move C-c C-y to slime-repl.e.
+	Remove C-c C-f: it's already on C-c C-d f.
+	Remove C-c M-0: slime-restore-window-configuration doesn't exist.
+	Remove M-g: slime-quit doesn't work since ages.
+
 2009-01-05  Helmut Eller  <heller at common-lisp.net>
 
 	Create a compilation-log buffer so that next-error works but
--- /project/slime/cvsroot/slime/slime.el	2009/01/05 21:58:21	1.1103
+++ /project/slime/cvsroot/slime/slime.el	2009/01/07 09:21:44	1.1104
@@ -544,21 +544,16 @@
     ("\C-c\C-k"   slime-compile-and-load-file)
     ("\C-c\M-k"   slime-compile-file)
     ("\C-c\C-c"   slime-compile-defun)
-    ;; Editing/navigating
-    ("\M-\C-i"    slime-complete-symbol)
-    ("\C-c\C-i"   slime-complete-symbol)
+    ;; Editing
+    ("\M-\t"      slime-complete-symbol)
+    (" "          slime-space)
     ;; Evaluating
     ;;("\C-x\M-e" slime-eval-last-expression-display-output :inferior t)
     ("\C-c\C-p"   slime-pprint-eval-last-expression)
-    ("\C-c\C-y"   slime-call-defun)
-    ;;("\M-g"     slime-quit :prefixed t :inferior t :sldb t)
-    ;; Documentation
-    (" "          slime-space)
-    ("\C-c\C-f"   slime-describe-function)
+    ;; Misc
     ("\C-c\C-u"   slime-undefine-function)
     ("\C-c\C-m"   slime-macroexpand-1)
     ("\C-c\M-m"   slime-macroexpand-all)
-    ("\C-c\M-0"   slime-restore-window-configuration)
     ([?\C-\M-.]   slime-next-location)
     ;; ;; Shadow unwanted bindings from inf-lisp
     ;; ("\C-a"    slime-nop :prefixed t :inferior t :sldb t)
@@ -3387,7 +3382,8 @@
     ((:file filename)
      (let ((filename (slime-from-lisp-filename filename)))
        (slime-check-location-filename-sanity filename)
-       (set-buffer (find-file-noselect filename))))
+       (set-buffer (or (get-file-buffer filename)
+                       (find-file-noselect filename)))))
     ((:buffer buffer-name)
      (slime-check-location-buffer-name-sanity buffer-name)
      (set-buffer buffer-name))