[slime-cvs] CVS slime

[heller]

Update of /project/slime/cvsroot/slime
In directory clnet:/tmp/cvs-serv15128

Modified Files:
	ChangeLog slime.el 
Log Message:
* slime.el (slime-show-apropos): Use lisp-syntax-table to make
M-. more useful.

--- /project/slime/cvsroot/slime/ChangeLog	2008/08/06 19:51:29	1.1398
+++ /project/slime/cvsroot/slime/ChangeLog	2008/08/06 19:51:35	1.1399
@@ -11,6 +11,11 @@
 
 2008-08-06  Helmut Eller  <heller at common-lisp.net>
 
+	* slime.el (slime-show-apropos): Use lisp-syntax-table to make
+	M-. more useful.
+
+2008-08-06  Helmut Eller  <heller at common-lisp.net>
+
 	Queue interrupts in various places.
 
 	* swank-backend.lisp (*pending-slime-interrupts*): New variable.
--- /project/slime/cvsroot/slime/slime.el	2008/08/05 18:19:34	1.960
+++ /project/slime/cvsroot/slime/slime.el	2008/08/06 19:51:35	1.961
@@ -5865,11 +5865,9 @@
     (slime-eval-async
      `(swank:apropos-list-for-emacs ,string ,only-external-p
                                     ,case-sensitive-p ',package)
-     (lexical-let ((string string)
-                   (package buffer-package)
-                   (summary (slime-apropos-summary string case-sensitive-p
-                                                   package only-external-p)))
-       (lambda (r) (slime-show-apropos r string package summary))))))
+     (slime-rcurry #'slime-show-apropos string buffer-package
+                   (slime-apropos-summary string case-sensitive-p
+                                          package only-external-p)))))
 
 (defun slime-apropos-all ()
   "Shortcut for (slime-apropos <string> nil nil)"
@@ -5894,7 +5892,9 @@
           (setq header-line-format summary)
         (insert summary "\n\n"))
       (slime-set-truncate-lines)
-      (slime-print-apropos plists))))
+      (slime-print-apropos plists)
+      (set-syntax-table lisp-mode-syntax-table)
+      (goto-char (point-min)))))
 
 (eval-when-compile (require 'apropos))