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

[Matthias Koeppe]

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

Modified Files:
	slime.el 
Log Message:
(slime-presentation-menu, slime-presentation-menu) 
(slime-inspect-presented-object): Quote the presentation id, as it
can be a cons.

Date: Sun Aug  7 18:53:32 2005
Author: mkoeppe

Index: slime/slime.el
diff -u slime/slime.el:1.517 slime/slime.el:1.518
--- slime/slime.el:1.517	Thu Aug  4 21:19:43 2005
+++ slime/slime.el	Sun Aug  7 18:53:31 2005
@@ -2943,7 +2943,7 @@
          (window (if (featurep 'xemacs) (event-window event) (caadr event))))
     (with-current-buffer (window-buffer window)
       (let* ((what (get-text-property point 'slime-repl-old-output))
-             (choices (slime-eval `(swank::menu-choices-for-presentation-id ,what)))
+             (choices (slime-eval `(swank::menu-choices-for-presentation-id ',what)))
              (count 0))
         (when choices
           (if (symbolp choices)
@@ -2959,7 +2959,7 @@
                 (let ((nchoice (1+ (position (symbol-name choice) choices :test 'equal))))
                   (eval (slime-eval 
                          `(swank::execute-menu-choice-for-presentation-id
-                           ,what ,nchoice ,(nth (1- nchoice) choices)))))))))))))
+                           ',what ,nchoice ,(nth (1- nchoice) choices)))))))))))))
 
 
 (defun slime-repl-insert-prompt (result &optional time)
@@ -7731,7 +7731,7 @@
 (defvar slime-saved-window-config)
 
 (defun slime-inspect-presented-object (id)
-  (slime-inspect `(swank::init-inspector ,(format "(swank::lookup-presented-object %s)" id))))
+  (slime-inspect `(swank::init-inspector ,(format "(swank::lookup-presented-object '%s)" id))))
 
 (defun slime-inspect (form)
   "Eval an expression and inspect the result."