[slime-cvs] CVS slime

[heller]

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

Modified Files:
	hyperspec.el 
Log Message:
(common-lisp-hyperspec): Strip all text properties from the
symbol-at-point to avoid problems with read-only text.

Patch from Paul Collins <paul at briny.ondioline.org>.


--- /project/slime/cvsroot/slime/hyperspec.el	2006/10/28 08:44:41	1.10
+++ /project/slime/cvsroot/slime/hyperspec.el	2006/12/07 07:36:54	1.11
@@ -86,9 +86,10 @@
   (interactive (list (let* ((symbol-at-point (thing-at-point 'symbol))
 			    (stripped-symbol 
 			     (and symbol-at-point
-				  (downcase
-				   (common-lisp-hyperspec-strip-cl-package 
-				    symbol-at-point)))))
+				  (substring-no-properties
+				   (downcase
+				    (common-lisp-hyperspec-strip-cl-package 
+				     symbol-at-point))))))
                        (if (and stripped-symbol
                                 (intern-soft stripped-symbol
                                              common-lisp-hyperspec-symbols))