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

[Luke Gorrie]

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

Modified Files:
	slime.el 
Log Message:
(sldb-prune-initial-frames): Tweaked regexp for matching SWANK's own
stack frames for effectiveness in SBCL.

(slime-keys): Shadow remaining inf-lisp keys (C-c C-a, C-c C-v) with a
null `slime-nop' command until we put them to a real use.

Date: Tue Jun 29 10:39:01 2004
Author: lgorrie

Index: slime/slime.el
diff -u slime/slime.el:1.344 slime/slime.el:1.345
--- slime/slime.el:1.344	Tue Jun 29 01:12:44 2004
+++ slime/slime.el	Tue Jun 29 10:39:01 2004
@@ -494,7 +494,15 @@
     ("\I"  slime-inspect :prefixed t :inferior t :sldb t)
     ("\C-]" slime-close-all-sexp :prefixed t :inferior t :sldb t)
     ("\C-xt" slime-list-threads :prefixed t :inferior t :sldb t)
-    ("\C-xc" slime-list-connections :prefixed t :inferior t :sldb t)))
+    ("\C-xc" slime-list-connections :prefixed t :inferior t :sldb t)
+    ;; Shadow unwanted bindings from inf-lisp
+    ("\C-a" slime-nop :prefixed t :inferior t :sldb t)
+    ("\C-v" slime-nop :prefixed t :inferior t :sldb t)))
+
+(defun slime-nop ()
+  "The null command. Used to shadow currently-unused keybindings."
+  (interactive)
+  nil)
 
 (defvar slime-doc-map (make-sparse-keymap)
   "Keymap for documentation commands. Bound to a prefix key.")
@@ -5544,7 +5552,7 @@
 Regexp heuristics are used to avoid showing SWANK-internal frames."
   (or (loop for frame in frames
             for (number string) = frame
-            until (string-match "[^(]*(\\(SWANK\\|swank\\):" string)
+            until (string-match "^(+\\(SWANK\\|swank\\)\\>" string)
             collect frame)
       frames))
 
@@ -6198,6 +6206,7 @@
   (push (point) slime-inspector-mark-stack))
 
 (defun slime-inspector-copy-down (number)
+  "Evaluate the slot at point via the REPL (to set `*')."
   (interactive (list (slime-inspector-object-at-point)))
   (slime-repl-send-string (format "%s" `(swank:inspector-nth-part ,number)))
   (slime-repl))