699 |
|
|
700 |
(insert "\n")) ; end this menu entry |
(insert "\n")) ; end this menu entry |
701 |
(insert "@end menu") |
(insert "@end menu") |
702 |
(message |
(let ((level (texinfo-hierarchic-level))) |
703 |
;; FIXME: `level' is passed by dynamic scoping. |
(message |
704 |
"Updated \"%s\" level menu following node: %s ... " level node-name)) |
"Updated level \"%s\" menu following node: %s ... " level node-name))) |
705 |
|
|
706 |
|
|
707 |
;;; Starting menu descriptions by inserting titles |
;;; Starting menu descriptions by inserting titles |
1557 |
(texinfo-sequentially-insert-pointer level 'up) |
(texinfo-sequentially-insert-pointer level 'up) |
1558 |
(texinfo-clean-up-node-line))))) |
(texinfo-clean-up-node-line))))) |
1559 |
|
|
1560 |
|
(defun texinfo-sequentially-insert-pointer (level direction) |
1561 |
|
"Insert the `Next', `Previous' or `Up' node name at point. |
1562 |
|
Move point forward. |
1563 |
|
|
1564 |
|
The first argument is the hierarchical level of the Texinfo file, a |
1565 |
|
string such as \"section\". The second argument is direction, one of |
1566 |
|
`next', `previous', or `up'." |
1567 |
|
|
1568 |
|
(end-of-line) |
1569 |
|
(insert |
1570 |
|
", " |
1571 |
|
(save-excursion |
1572 |
|
(texinfo-pointer-name |
1573 |
|
(texinfo-sequentially-find-pointer level direction))))) |
1574 |
|
|
1575 |
(defun texinfo-sequentially-find-pointer (level direction) |
(defun texinfo-sequentially-find-pointer (level direction) |
1576 |
"Find next or previous pointer sequentially in Texinfo file, or up pointer. |
"Find next or previous pointer sequentially in Texinfo file, or up pointer. |
1577 |
Move point to section associated with the pointer. Find point even if |
Move point to section associated with the pointer. Find point even if |
1604 |
((eq direction 'up) |
((eq direction 'up) |
1605 |
(if (re-search-backward |
(if (re-search-backward |
1606 |
(eval (cdr (assoc level texinfo-update-menu-higher-regexps))) |
(eval (cdr (assoc level texinfo-update-menu-higher-regexps))) |
1607 |
;; FIXME: passed many levels down via dynamic scoping! |
(point-min) |
|
beginning |
|
1608 |
t) |
t) |
1609 |
'normal |
'normal |
1610 |
'no-pointer)) |
'no-pointer)) |
1611 |
(t |
(t |
1612 |
(error "texinfo-sequential-find-pointer: lack proper arguments"))))) |
(error "texinfo-sequential-find-pointer: lack proper arguments"))))) |
1613 |
|
|
|
(defun texinfo-sequentially-insert-pointer (level direction) |
|
|
"Insert the `Next', `Previous' or `Up' node name at point. |
|
|
Move point forward. |
|
|
|
|
|
The first argument is the hierarchical level of the Texinfo file, a |
|
|
string such as \"section\". The second argument is direction, one of |
|
|
`next', `previous', or `up'." |
|
|
|
|
|
(end-of-line) |
|
|
(insert |
|
|
", " |
|
|
(save-excursion |
|
|
(texinfo-pointer-name |
|
|
(texinfo-sequentially-find-pointer level direction))))) |
|
|
|
|
1614 |
|
|
1615 |
;;; Inserting `@node' lines |
;;; Inserting `@node' lines |
1616 |
;; The `texinfo-insert-node-lines' function inserts `@node' lines as needed |
;; The `texinfo-insert-node-lines' function inserts `@node' lines as needed |