Index: hyperspec.el
===================================================================
RCS file: /project/slime/cvsroot/slime/hyperspec.el,v
retrieving revision 1.2
diff -u -r1.2 hyperspec.el
--- hyperspec.el	4 Dec 2003 16:42:53 -0000	1.2
+++ hyperspec.el	22 Jan 2004 21:10:07 -0000
@@ -60,6 +60,16 @@
 
 (defvar common-lisp-hyperspec-symbols (make-vector 67 0))
 
+
+(defun clhs-thing-at-point-no-properties (thing)
+  "Return thing of type THING at point, but without text properties."
+  (let ((inhibit-read-only t)
+	(object-at-point (thing-at-point thing)))
+    (set-text-properties 0 (length object-at-point) nil
+			 object-at-point)
+    object-at-point))
+
+
 (defun common-lisp-hyperspec (symbol-name)
   "View the documentation on SYMBOL-NAME from the Common Lisp HyperSpec.
 If SYMBOL-NAME has more than one definition, all of them are displayed with
@@ -73,7 +83,8 @@
 Visit http://www.lispworks.com/reference/HyperSpec/ for more information.
 If you copy the HyperSpec to another location, customize the variable
 `common-lisp-hyperspec-root' to point to that location."
-  (interactive (list (let ((symbol-at-point (thing-at-point 'symbol)))
+  (interactive (list (let ((symbol-at-point 
+			      (clhs-thing-at-point-no-properties 'symbol)))
                        (if (and symbol-at-point
                                 (intern-soft (downcase symbol-at-point)
                                              common-lisp-hyperspec-symbols))