[slime-cvs] CVS update: slime/slime.el

[Helmut Eller]

Update of /project/slime/cvsroot/slime
In directory common-lisp.net:/tmp/cvs-serv11787

Modified Files:
	slime.el 
Log Message:
(slime-keys): Bind M-* to slime-pop-find-definition-stack for
compatibility with standard Emacs convention.
Date: Thu Dec 16 22:08:03 2004
Author: heller

Index: slime/slime.el
diff -u slime/slime.el:1.441 slime/slime.el:1.442
--- slime/slime.el:1.441	Wed Dec 15 23:32:50 2004
+++ slime/slime.el	Thu Dec 16 22:08:02 2004
@@ -546,6 +546,7 @@
     ("\M-i" slime-fuzzy-complete-symbol :prefixed t :inferior t)
     ("\M-." slime-edit-definition :inferior t :sldb t)
     ("\M-," slime-pop-find-definition-stack :inferior t :sldb t)
+    ("\M-*" slime-pop-find-definition-stack :inferior t :sldb t)
     ("\C-q" slime-close-parens-at-point :prefixed t :inferior t)
     ("\C-c\M-q" slime-reindent-defun :inferior t)
     ;; Evaluating
@@ -6127,9 +6128,9 @@
 
 (defun sldb-insert-frame (frame &optional detailedp)
   (destructuring-bind (number string) frame
-    (slime-insert-propertized 
+    (slime-insert-propertized
      `(frame ,frame sldb-default-action sldb-toggle-details)
-     "  " (in-sldb-face frame-label (format "%d" number)) ": "
+     " " (in-sldb-face frame-label (format "%2d" number)) ": "
      (if detailedp
          (in-sldb-face detailed-frame-line string)
        (in-sldb-face frame-line string))
@@ -7347,6 +7348,7 @@
 The results are presented in an outline-mode buffer, with the tests
 that succeeded initially folded away."
   (interactive)
+  (assert (not (slime-busy-p)))
   (slime-create-test-results-buffer)
   (unwind-protect
       (slime-execute-tests)