branch: externals/idlwave
commit 54efc774a7f1a2e977ec03531f9bb10f13532da7
Author: JD Smith <[email protected]>
Commit: JD Smith <[email protected]>
idlwave-online-help: direct entry option
---
idlw-help.el | 7 ++++---
1 file changed, 4 insertions(+), 3 deletions(-)
diff --git a/idlw-help.el b/idlw-help.el
index e54fd6d8ef..4e5551cb03 100644
--- a/idlw-help.el
+++ b/idlw-help.el
@@ -728,7 +728,7 @@ if passed as a function. See
`idlwave-help-use-dedicated-frame'."
(not (eq (selected-frame) idlwave-help-return-frame)))
(select-frame idlwave-help-return-frame)))
-(defun idlwave-online-help (link &optional name type class keyword)
+(defun idlwave-online-help (link &optional name type class keyword entry)
"Display HTML or other special help on a certain topic.
Either loads an HTML link, if LINK is non-nil, or gets special-help on
the optional arguments, if any special help is defined. If LINK is
@@ -736,8 +736,9 @@ the optional arguments, if any special help is defined. If
LINK is
see if a link is set for it. Try extra help functions if necessary."
;; Lookup link
(if (eq link t)
- (let ((entry (idlwave-best-rinfo-assoc name type class
- (idlwave-routines) nil t)))
+ (let ((entry (or entry
+ (idlwave-best-rinfo-assoc name type class
+ (idlwave-routines) nil t))))
(if entry
(cond
;; Try keyword link
