371 |
(defun radconf-describe-keywords () |
(defun radconf-describe-keywords () |
372 |
"Depending on the context invoke appropriate info page" |
"Depending on the context invoke appropriate info page" |
373 |
(interactive) |
(interactive) |
374 |
(let* ((elt (assoc (radconf-block) radconf-keyword-nodes)) |
(let ((block (radconf-locate-block))) |
375 |
(file (car (cdr elt))) |
(if (not block) |
376 |
(node (car (cdr (cdr elt))))) |
(error "No documentation found") |
377 |
(Info-goto-node (concat "(" file ")" node)) |
(let* ((elt (assoc (car block) radconf-keyword-nodes)) |
378 |
(if (get-buffer "*info*") |
(file (car (cdr elt))) |
379 |
(switch-to-buffer "*info*")))) |
(node (car (cdr (cdr elt))))) |
380 |
|
(Info-goto-node (concat "(" file ")" node)) |
381 |
|
(if (get-buffer "*info*") |
382 |
|
(switch-to-buffer "*info*")))))) |
383 |
|
|
384 |
;;;###autoload |
;;;###autoload |
385 |
(defun radconf-mode () |
(defun radconf-mode () |