*** hyperspec.el	15 Sep 2004 13:29:27 +0200	1.7
--- hyperspec.el	16 Oct 2005 23:27:48 +0200
***************
*** 43,48 ****
--- 43,51 ----
  If you copy the HyperSpec to your local system, set this variable to
  something like \"file:/usr/local/doc/HyperSpec/\".")

+ (defvar common-lisp-hyperspec-browse-function 'browse-url
+   "Function used to browse hyperspec pages.")
+
  ;;; Added variable for CLHS symbol table. See details below.
  ;;;
  ;;; 20011201 Edi Weitz
***************
*** 84,90 ****
                            t symbol-at-point
                            'common-lisp-hyperspec-history)))))
    (maplist (lambda (entry)
!              (browse-url (concat common-lisp-hyperspec-root "Body/" (car entry)))
               (if (cdr entry)
                   (sleep-for 1.5)))
             (let ((symbol (intern-soft (downcase symbol-name)
--- 87,94 ----
                            t symbol-at-point
                            'common-lisp-hyperspec-history)))))
    (maplist (lambda (entry)
!              (funcall common-lisp-hyperspec-browse-function
!                       (concat common-lisp-hyperspec-root "Body/" (car entry)))
               (if (cdr entry)
                   (sleep-for 1.5)))
             (let ((symbol (intern-soft (downcase symbol-name)