80 |
The files specified by `octave-help-files' are searched." |
The files specified by `octave-help-files' are searched." |
81 |
(if octave-help-lookup-alist |
(if octave-help-lookup-alist |
82 |
() |
() |
83 |
(message "Building help lookup alist...") |
(message "Building help lookup alist...") |
84 |
(let ((files octave-help-files) file key node) |
(let ((files octave-help-files) file key node) |
85 |
(save-window-excursion |
(save-window-excursion |
86 |
(while files |
(while files |
127 |
(add-to-list 'octave-help-completion-alist |
(add-to-list 'octave-help-completion-alist |
128 |
(cons (car entry) (car entry))) |
(cons (car entry) (car entry))) |
129 |
(setq alist (cdr alist)))) |
(setq alist (cdr alist)))) |
130 |
(message "Building help completion alist...done")) |
(message "Building help completion alist...done")) |
131 |
octave-help-completion-alist) |
octave-help-completion-alist) |
132 |
|
|
133 |
;;; provide ourself |
;;; provide ourself |