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