[slime-devel] Patch for additional slime-pop-find-definition-stack binding

[Matthias Koeppe]

Since SLIME shadows the find-tag binding M-. with its command
slime-edit-definition, I think it should also shadow pop-tag-mark,
which is bound to M-* in Emacs, with slime-pop-find-definition-stack.  
(At least in my head, M-* is hardwired as the opposite of M-.)

I don't know why M-, (the current binding of
slime-pop-find-definition-stack) would be the opposite of M-.; in
Emacs it's bound to tags-loop-continue (related to tags-search, not
find-tag), but I certainly wouldn't mind if it is an additional
binding of slime-pop-find-definition-stack.

-- 
Matthias Koeppe -- http://www.math.uni-magdeburg.de/~mkoeppe

Index: slime.el
===================================================================
RCS file: /project/slime/cvsroot/slime/slime.el,v
retrieving revision 1.441
diff -u -p -u -r1.441 slime.el
--- slime.el	15 Dec 2004 22:32:50 -0000	1.441
+++ slime.el	16 Dec 2004 12:57:14 -0000
@@ -545,6 +545,7 @@ A prefix argument disables this behaviou
     ("\C-i" slime-complete-symbol :prefixed t :inferior t)
     ("\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)