branch: externals/idlwave
commit b5d1b2c6a61c4e3a8d622f73d38091cc36f09d98
Author: JD Smith <[email protected]>
Commit: JD Smith <[email protected]>
Make link relative to help location
---
idlw-help.el | 4 +++-
1 file changed, 3 insertions(+), 1 deletion(-)
diff --git a/idlw-help.el b/idlw-help.el
index f69f4f76f9..a87062edd3 100644
--- a/idlw-help.el
+++ b/idlw-help.el
@@ -305,6 +305,7 @@ It collects and prints the diagnostics messages."
;; Everything else
(t
(setq mod1 (append (list t) module))))
+
(if mod3
(condition-case nil
(apply 'idlwave-online-help mod1)
@@ -582,7 +583,8 @@ see if a link is set for it. Try extra help functions if
necessary."
;; If possible, subsume as anchor under idl.htm
(if (file-exists-p alternate)
- (setq help-loc (concat alternate "#")))
+ (setq link (file-relative-name link help-loc)
+ help-loc (concat alternate "#")))
(setq full-link (browse-url-file-url (concat help-loc link)))
