mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-22 07:09:54 +00:00
Code Issues Releases Activity

(texinfo-master-menu-header): Delete newline at start.

Browse Source 
(texinfo-insert-master-menu-list): Add @detailmenu and
@end detailmenu commands.
This commit is contained in:
Richard M. Stallman 1997-04-20 21:02:06 +00:00
parent 092af6d867
commit 8af06c7cf9
1 changed files with 27 additions and 24 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

51
lisp/textmodes/texnfo-upd.el
View File

@ -723,6 +723,11 @@ second and subsequent lines of a multi-line description."
;;; Making the master menu
(defvar texinfo-master-menu-header
" --- The Detailed Node Listing ---\n"
"String inserted before lower level entries in Texinfo master menu.
It comes after the chapter-level menu entries.")
(defun texinfo-master-menu (update-all-nodes-menus-p)
"Make a master menu for a whole Texinfo file.
Non-nil argument (prefix, if interactive) means first update all
@ -875,39 +880,37 @@ However, there does not need to be a title field."
(setq master-menu-list (cdr master-menu-list))
;; Only insert detailed master menu if there is one....
(if (car (car master-menu-list))
(insert texinfo-master-menu-header))
;; Now, insert all the other menus
;; Now, insert all the other menus (if we have any).
;; The menu master-menu-list has a form like this:
;; ((("beta" "alpha") "title-A")
;; (("delta" "gamma") "title-B"))
(if (car (car master-menu-list))
(progn
(insert "\n@detailmenu\n")
(insert texinfo-master-menu-header)
(while master-menu-list
(message
"Inserting menu for %s .... " (car (cdr (car master-menu-list))))
;; insert title of menu section
(insert "\n" (car (cdr (car master-menu-list))) "\n\n")
;; insert each menu entry
(setq this-very-menu-list (reverse (car (car master-menu-list))))
(while this-very-menu-list
(insert "* " (car this-very-menu-list) "\n")
(setq this-very-menu-list (cdr this-very-menu-list)))
(setq master-menu-list (cdr master-menu-list)))
(while master-menu-list
(message
"Inserting menu for %s .... " (car (cdr (car master-menu-list))))
;; insert title of menu section
(insert "\n" (car (cdr (car master-menu-list))) "\n\n")
;; insert each menu entry
(setq this-very-menu-list (reverse (car (car master-menu-list))))
(while this-very-menu-list
(insert "* " (car this-very-menu-list) "\n")
(setq this-very-menu-list (cdr this-very-menu-list)))
(setq master-menu-list (cdr master-menu-list)))
(insert "@end detaimenu\n")))
;; Finish menu
(insert "@end menu\n\n")))
(defvar texinfo-master-menu-header
"\n --- The Detailed Node Listing ---\n"
"String inserted before lower level entries in Texinfo master menu.
It comes after the chapter-level menu entries.")
(defun texinfo-locate-menu-p ()
"Find the next menu in the texinfo file.
If found, leave point after word `menu' on the `@menu' line, and return t.