doc/svn-doc.el

   1 ;;;; Emacs Lisp help for writing the Subversion Documentation. ;;;;
   2
   3 (defun svn-doc-visit-info-file ()
   4   "Visit the local info file in progress.
   5 Right now there's only one place to go, so no prompting is done."
   6   (interactive)
   7   (Info-goto-node (concat "(" default-directory "svn-design.info)Top")))
   8
   9
  10 (defun svn-doc-texinfo-new-node (name)
  11   "Insert a new node (defaults to `section' heading).
  12 Includes the commented separator line we like to use."
  13   ;; todo: search backwards for menu and build a completion table?
  14   (interactive "sNode name: ")
  15   (insert "@c ")
  16   (insert-char ?- 71)
  17   (insert "\n")
  18   (insert "@node " name "\n")
  19   (insert "@section " name "\n\n"))
  20