/[radius]/radius/elisp/radconf-mode.el
ViewVC logotype

Diff of /radius/elisp/radconf-mode.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.9 by gray, Thu Jul 31 10:17:41 2003 UTC revision 1.10 by gray, Thu Jul 31 10:57:57 2003 UTC
# Line 371  Line 371 
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 ()

Legend:
Removed from v.1.9  
changed lines
  Added in v.1.10

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26