Make a redundant idlwave variable obsolete

* lisp/progmodes/idlw-help.el (idlwave-help-browse-url-available):
Make obsolete.
(idlwave-help-check-locations): Don't use above variable.

diff --git a/lisp/progmodes/idlw-help.el b/lisp/progmodes/idlw-help.el
index c53b9a4775c769f28b20482738da7c969569f1e3..b90bbedd453e8db12d81dc2c25c2af1edbce8419 100644 (file)
--- a/lisp/progmodes/idlw-help.el
+++ b/lisp/progmodes/idlw-help.el
@@ -37,10 +37,7 @@
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 \f
 
-
 ;;; Code:
-(defvar idlwave-help-browse-url-available t
-  "Whether browse-url is available.")
 
 (require 'browse-url)
 
@@ -332,9 +329,7 @@ Here are all keybindings.
     (when (and idlwave-help-use-assistant
               (not (eq (idlwave-help-assistant-available) t)))
       (message "Cannot locate IDL Assistant, enabling default browser.")
-      (setq idlwave-help-use-assistant nil)
-      (unless idlwave-help-browse-url-available
-       (error "browse-url is not available; install it or IDL Assistant to use HTML help")))))
+      (setq idlwave-help-use-assistant nil))))
 
 
 (defvar idlwave-current-obj_new-class)
@@ -1354,6 +1349,8 @@ IDL assistant.")
     (setq idlwave-help-assistant-socket nil
          idlwave-help-assistant-process nil)))
 
+(defvar idlwave-help-browse-url-available t)
+(make-obsolete-variable 'idlwave-help-browse-url-available nil "28.1")
 
 (provide 'idlw-help)
 (provide 'idlwave-help)