Permalink
Browse files

Correct help-with-topic topics

  • Loading branch information...
1 parent 3ee2835 commit 687c9f07d8f8c66a60a30a4eae7409821cf08bed @jdtsmith committed Jan 27, 2014
Showing with 13 additions and 11 deletions.
  1. +13 −11 idlw-help.el
View
@@ -991,27 +991,29 @@ Useful when source code is displayed as help. See the option
(defvar idlwave-help-with-topic-history nil
"The history of help topics selected with the minibuffer.")
-;; XXX
(defun idlwave-help-with-topic (&optional topic)
"Prompt for and provide help with TOPIC."
(interactive)
(let (list)
(unless topic
(idlwave-routines)
(setq list (append (mapcar (lambda (x)
- (concat (nth 2 x) (car x)))
+ (cons (idlwave-make-full-name x)
+ (idlwave-routine-first-link-file x)))
idlwave-system-routines)
(mapcar (lambda (x)
- (concat "." (car x)))
+ (cons (concat "." (car x)) (cdr x)))
idlwave-executive-commands-alist)
- idlwave-system-class-info))
- (setq topic
- (idlwave-completing-read
- "Help Topic: " list
- nil nil nil
- 'idlwave-help-with-topic-history)))
- (if (and topic (not (string= topic "")))
- (idlwave-help-html-link (concat topic ".html")))))
+ (mapcar (lambda (x)
+ (cons (car x) (nth 1 (assq 'link x))))
+ idlwave-system-class-info))
+ topic (idlwave-completing-read
+ "Help Topic: " list
+ nil nil nil
+ 'idlwave-help-with-topic-history)))
+ (if (and topic (not (string= topic ""))
+ (setq topic (assoc-string topic list t)))
+ (idlwave-help-html-link (cdr topic)))))
(defun idlwave-html-help-location ()

0 comments on commit 687c9f0

Please sign in to comment.