comparison lisp/textmodes/texnfo-upd.el @ 143:fa6580d92860

*** empty log message ***

142:df6ec648915f

  "Make a menu of all the appropriate nodes in this section.
`Appropriate nodes' are those associated with sections that are 
at the level specified by LEVEL.  Point is left at the end of menu."
  (let*
      ((case-fold-search t)
       (beginning (texinfo-update-menu-region-beginning level))
       (end (texinfo-update-menu-region-end level))
       (first (texinfo-menu-first-node beginning end))
       (node-name (progn
                    (goto-char beginning)
                    (texinfo-copy-node-name)))

  (interactive "P")
  (widen)
  (goto-char (point-min))

  ;; Move point to location after `top'.
  (if (not (re-search-forward "^@node [ \t]*top" nil t))
      (error "This buffer needs a Top node!"))

  (let ((first-chapter                  
         (save-excursion (re-search-forward "^@node") (point))))
    (if (re-search-forward texinfo-master-menu-header first-chapter t)

Searches forward for a section.  Hence, point must be before the
section whose type will be found.  Does not move point.  Signal an
error if the node is not the top node and a section is not found."
  (save-excursion
    (cond
     ((re-search-forward "^@node [ \t]*top" nil t)
      "top")
     ((re-search-forward texinfo-section-types-regexp nil t)
      (buffer-substring (progn (beginning-of-line) ; copy its name
                               (1+ (point)))
                        (progn (forward-word 1)

Return position of the beginning of the node line; do not move point.
Thus, if this level is subsection, searches backwards for section node.
Only argument is a string of the general type of section."
  
  (cond
   ((string-equal "top" level)
    (save-excursion
      (re-search-forward "^@node [ \t]*top" nil t) (point)))
   ((string-equal "chapter" level)
    (save-excursion
      (re-search-backward "^@node [ \t]*top" nil t)
      ;; Leave point at end of line so texinfo-menu-locate-entry-p does not
      ;; accidentally copy an info-only title for the top node into
      ;; the main or master menu
      (end-of-line)
      (point)))
   (t
    (save-excursion
      (re-search-backward
       (concat

The keys are strings specifying the general hierarchical level in the
document; the values are regular expressions.")

(defvar texinfo-update-menu-higher-regexps
  '(("top" . "^@node [ \t]*DIR") 
    ("chapter" . "^@node [ \t]*top")
    ("section" .
     (concat 
      "\\(^@\\("
      texinfo-chapter-level-regexp
      "\\)[ \t]*\\)"))

                menu-list))
    
    ;; Go to outer file
    (switch-to-buffer (find-file-noselect (car files)))
    (goto-char (point-min))
    (if (not (re-search-forward "^@node [ \t]*top" nil t))
        (error "This buffer needs a Top node!"))
    (beginning-of-line)
    (texinfo-delete-existing-pointers)
    (end-of-line)
    (insert ", " next-node-name ", (dir), (dir)")

143:fa6580d92860

  "Make a menu of all the appropriate nodes in this section.
`Appropriate nodes' are those associated with sections that are 
at the level specified by LEVEL.  Point is left at the end of menu."
  (let*
      ((case-fold-search t)
       (beginning
	(save-excursion
	  (goto-char (texinfo-update-menu-region-beginning level))
	  (end-of-line)
	  (point)))
       (end (texinfo-update-menu-region-end level))
       (first (texinfo-menu-first-node beginning end))
       (node-name (progn
                    (goto-char beginning)
                    (texinfo-copy-node-name)))

  (interactive "P")
  (widen)
  (goto-char (point-min))

  ;; Move point to location after `top'.
  (if (not (re-search-forward "^@node [ \t]*top[ \t]*\\(,\\|$\\)" nil t))
      (error "This buffer needs a Top node!"))

  (let ((first-chapter                  
         (save-excursion (re-search-forward "^@node") (point))))
    (if (re-search-forward texinfo-master-menu-header first-chapter t)

Searches forward for a section.  Hence, point must be before the
section whose type will be found.  Does not move point.  Signal an
error if the node is not the top node and a section is not found."
  (save-excursion
    (cond
     ((re-search-forward "^@node [ \t]*top[ \t]*\\(,\\|$\\)"
			 (save-excursion
			   (end-of-line)
			   (point))
			 t)
      "top")
     ((re-search-forward texinfo-section-types-regexp nil t)
      (buffer-substring (progn (beginning-of-line) ; copy its name
                               (1+ (point)))
                        (progn (forward-word 1)

Return position of the beginning of the node line; do not move point.
Thus, if this level is subsection, searches backwards for section node.
Only argument is a string of the general type of section."
  
  (cond
   ((or (string-equal "top" level)
	(string-equal "chapter" level))
    (save-excursion
      (goto-char (point-min))
      (re-search-forward "^@node [ \t]*top[ \t]*\\(,\\|$\\)" nil t)
      (beginning-of-line)
      (point)))
   (t
    (save-excursion
      (re-search-backward
       (concat

The keys are strings specifying the general hierarchical level in the
document; the values are regular expressions.")

(defvar texinfo-update-menu-higher-regexps
  '(("top" . "^@node [ \t]*DIR") 
    ("chapter" . "^@node [ \t]*top[ \t]*\\(,\\|$\\)")
    ("section" .
     (concat 
      "\\(^@\\("
      texinfo-chapter-level-regexp
      "\\)[ \t]*\\)"))

                menu-list))
    
    ;; Go to outer file
    (switch-to-buffer (find-file-noselect (car files)))
    (goto-char (point-min))
    (if (not (re-search-forward "^@node [ \t]*top[ \t]*\\(,\\|$\\)" nil t))
        (error "This buffer needs a Top node!"))
    (beginning-of-line)
    (texinfo-delete-existing-pointers)
    (end-of-line)
    (insert ", " next-node-name ", (dir), (dir)")