[elpa] externals/idlwave 595045c953 226/360: Remove ".html" unless anchored, for IDL 7.0

[ELPA Syncer]

branch: externals/idlwave
commit 595045c953241662461de8425a3a9972411e748e
Author: JD Smith <jdtsmith@gmail.com>
Commit: JD Smith <jdtsmith@gmail.com>

    Remove ".html" unless anchored, for IDL 7.0
---
 idlw-help.el | 7 ++++---
 1 file changed, 4 insertions(+), 3 deletions(-)

diff --git a/idlw-help.el b/idlw-help.el
index efcf4c59c7..011194b834 100644
--- a/idlw-help.el
+++ b/idlw-help.el
@@ -1294,9 +1294,10 @@ the idlhelp script.")
 
 (defun idlwave-help-eclipse-help-open-link (&optional link)
   "Start IDL Eclipse-Help (if needed), loading link FULL-LINK, if passed."
-  (let ((command (idlwave-help-eclipse-help-command))
-       (extra-args (if link `("-topic" ,link))))
-    (apply 'call-process command nil 0 nil extra-args)))
+  (let ((command (idlwave-help-eclipse-help-command)))
+    (if (string-match "\.html$" link) ;; Strip HTML, unless anchored
+       (setq link (substring link 0 (match-beginning 0))))
+    (apply 'call-process command nil 0 nil (if link `("-topic" ,link)))))
   
 
 ;;----- Control the IDL Assistant, which shipped with IDL v6.2