From 8a55d10629b9d53206db2dabc5e2357d7d313af4 Mon Sep 17 00:00:00 2001 From: Stefan Kangas Date: Thu, 16 Sep 2021 11:48:08 +0200 Subject: [PATCH] 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. --- lisp/progmodes/idlw-help.el | 9 +++------ 1 file changed, 3 insertions(+), 6 deletions(-) diff --git a/lisp/progmodes/idlw-help.el b/lisp/progmodes/idlw-help.el index c53b9a4775c..b90bbedd453 100644 --- a/lisp/progmodes/idlw-help.el +++ b/lisp/progmodes/idlw-help.el @@ -37,10 +37,7 @@ ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; - ;;; 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) -- 2.39.5