/[emacs]/emacs/lisp/textmodes/texnfo-upd.el
ViewVC logotype

Diff of /emacs/lisp/textmodes/texnfo-upd.el

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

revision 1.46 by schwab, Fri Mar 1 16:02:00 2002 UTC revision 1.47 by bob, Sun Mar 3 17:30:07 2002 UTC
# Line 699  is the menu entry name, and the cdr of P Line 699  is the menu entry name, and the cdr of P
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
# Line 1557  regardless of its hierarchical level." Line 1557  regardless of its hierarchical level."
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
# Line 1589  or `Up' pointer." Line 1604  or `Up' pointer."
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

Legend:
Removed from v.1.46  
changed lines
  Added in v.1.47

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