[Emacs-diffs] Changes to emacs/lisp/textmodes/texnfo-upd.el

[Robert J. Chassell]

Index: emacs/lisp/textmodes/texnfo-upd.el
diff -c emacs/lisp/textmodes/texnfo-upd.el:1.46 
emacs/lisp/textmodes/texnfo-upd.el:1.47
*** emacs/lisp/textmodes/texnfo-upd.el:1.46     Fri Mar  1 11:02:00 2002
--- emacs/lisp/textmodes/texnfo-upd.el  Sun Mar  3 12:30:07 2002
***************
*** 699,707 ****
  
      (insert "\n")) ; end this menu entry
    (insert "@end menu")
!   (message
!    ;; FIXME: `level' is passed by dynamic scoping.
!    "Updated \"%s\" level menu following node: %s ... " level node-name))
  
  
  ;;; Starting menu descriptions by inserting titles
--- 699,707 ----
  
      (insert "\n")) ; end this menu entry
    (insert "@end menu")
!   (let ((level (texinfo-hierarchic-level)))
!     (message
!      "Updated level \"%s\" menu following node: %s ... " level node-name)))
  
  
  ;;; Starting menu descriptions by inserting titles
***************
*** 1557,1562 ****
--- 1557,1577 ----
        (texinfo-sequentially-insert-pointer level 'up)
        (texinfo-clean-up-node-line)))))
  
+ (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)))))
+ 
  (defun texinfo-sequentially-find-pointer (level direction)
    "Find next or previous pointer sequentially in Texinfo file, or up pointer.
  Move point to section associated with the pointer.  Find point even if
***************
*** 1589,1616 ****
          ((eq direction 'up)
           (if (re-search-backward
                (eval (cdr (assoc level texinfo-update-menu-higher-regexps)))
!               ;; FIXME: passed many levels down via dynamic scoping!
!               beginning
                t)
               'normal
             'no-pointer))
          (t
           (error "texinfo-sequential-find-pointer: lack proper arguments")))))
- 
- (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)))))
  
  
  ;;; Inserting address@hidden' lines
--- 1604,1615 ----
          ((eq direction 'up)
           (if (re-search-backward
                (eval (cdr (assoc level texinfo-update-menu-higher-regexps)))
!               (point-min)
                t)
               'normal
             'no-pointer))
          (t
           (error "texinfo-sequential-find-pointer: lack proper arguments")))))
  
  
  ;;; Inserting address@hidden' lines