Index: hyperspec.el
===================================================================
RCS file: /project/slime/cvsroot/slime/hyperspec.el,v
retrieving revision 1.2
diff -c -r1.2 hyperspec.el
*** hyperspec.el	4 Dec 2003 16:42:53 -0000	1.2
--- hyperspec.el	31 Dec 2003 05:05:10 -0000
***************
*** 81,87 ****
                           (completing-read
                            "Look up symbol in Common Lisp HyperSpec: "
                            common-lisp-hyperspec-symbols #'boundp
!                           t symbol-at-point
                            'common-lisp-hyperspec-history)))))
    (maplist (lambda (entry)
               (browse-url (concat common-lisp-hyperspec-root "Body/" (car entry)))
--- 81,88 ----
                           (completing-read
                            "Look up symbol in Common Lisp HyperSpec: "
                            common-lisp-hyperspec-symbols #'boundp
!                           t
!                           (propertize symbol-at-point 'read-only nil)
                            'common-lisp-hyperspec-history)))))
    (maplist (lambda (entry)
               (browse-url (concat common-lisp-hyperspec-root "Body/" (car entry)))