[slime-cvs] CVS slime/contrib

[CVS User sboukarev]

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

Modified Files:
	ChangeLog slime-repl.el 
Log Message:
* slime-repl.el (slime-list-repl-short-cuts): Don't scroll to the
bottom, don't error if a shortcut has no documentation.


--- /project/slime/cvsroot/slime/contrib/ChangeLog	2010/05/16 06:11:44	1.382
+++ /project/slime/cvsroot/slime/contrib/ChangeLog	2010/05/19 06:55:15	1.383
@@ -1,3 +1,8 @@
+2010-05-19  Stas Boukarev  <stassats at gmail.com>
+
+	* slime-repl.el (slime-list-repl-short-cuts): Don't scroll to the
+	bottom, don't error if a shortcut has no documentation.
+
 2010-05-16  Stas Boukarev  <stassats at gmail.com>
 
 	* swank-arglists.lisp (decode-arglist): Handle (x . y) macro arglists.
--- /project/slime/cvsroot/slime/contrib/slime-repl.el	2010/05/13 15:31:07	1.44
+++ /project/slime/cvsroot/slime/contrib/slime-repl.el	2010/05/19 06:55:15	1.45
@@ -1253,24 +1253,25 @@
     (slime-repl-add-to-input-history (prin1-to-string sexp)))
   (slime-eval-async sexp cont package))
 
-
 (defun slime-list-repl-short-cuts ()
   (interactive)
-  (slime-with-popup-buffer ("*slime-repl-help*")
+  (slime-with-popup-buffer ((slime-buffer-name :repl-help))
     (let ((table (sort* (copy-list slime-repl-shortcut-table) #'string<
                         :key (lambda (x) 
                                (car (slime-repl-shortcut.names x))))))
-      (dolist (shortcut table)
-        (let ((names (slime-repl-shortcut.names shortcut)))
-          (insert (pop names)) ;; first print the "full" name
-          (when names
-            ;; we also have aliases
-            (insert " (aka ")
-            (while (cdr names)
-              (insert (pop names) ", "))
-            (insert (car names) ")"))
-        (insert "\n     " (slime-repl-shortcut.one-liner shortcut)
-                "\n"))))))
+      (save-excursion
+        (dolist (shortcut table)
+          (let ((names (slime-repl-shortcut.names shortcut)))
+            (insert (pop names)) ;; first print the "full" name
+            (when names
+              ;; we also have aliases
+              (insert " (aka ")
+              (while (cdr names)
+                (insert (pop names) ", "))
+              (insert (car names) ")"))
+            (when (slime-repl-shortcut.one-liner shortcut)
+              (insert "\n     " (slime-repl-shortcut.one-liner shortcut)))
+            (insert "\n")))))))
 
 (defun slime-save-some-lisp-buffers ()
   (if slime-repl-only-save-lisp-buffers