X-Git-Url: https://git.gag.com/?a=blobdiff_plain;f=doc%2Fmastermenu.el;fp=doc%2Fmastermenu.el;h=0000000000000000000000000000000000000000;hb=c66233240e6c2e5262ac4e36fe4362f64cbfa9c4;hp=db8c631cecdbb785b6008fde2598a886f7c5ab02;hpb=850b28ee07ca720a9a7e9f887b5219afcba5a209;p=debian%2Ftar

diff --git a/doc/mastermenu.el b/doc/mastermenu.el
deleted file mode 100644
index db8c631c..00000000
--- a/doc/mastermenu.el
+++ /dev/null
@@ -1,91 +0,0 @@
-;;; mastermenu.el --- Redefinition of texinfo-master-menu-list
-
-;; Copyright (C) 2006, 2007 Free Software Foundation, Inc.
-
-;; Author: Sergey Poznyakoff
-;; Maintainer: bug-tar@gnu.org
-;; Keywords: maint, tex, docs
-
-;; This file is part of GNU tar documentation suite
-
-;; This program is free software; you can redistribute it and/or modify
-;; it under the terms of the GNU General Public License as published by
-;; the Free Software Foundation; either version 3, or (at your option)
-;; any later version.
-
-;; This program is distributed in the hope that it will be useful,
-;; but WITHOUT ANY WARRANTY; without even the implied warranty of
-;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
-;; GNU General Public License for more details.
-
-;; You should have received a copy of the GNU General Public License
-;; along with this program; if not, write to the Free Software Foundation,
-;; Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA.
-
-;;; Commentary:
-
-;; This file redefines texinfo-master-menu-list so that it takes into
-;; account included files.
-
-;; Known bugs: @menu without previous sectioning command will inherit
-;; documentation string from the previous menu. However, since such a
-;; menu is illegal in a texinfo file, we can live with it.
-
-(require 'texinfo)
-(require 'texnfo-upd)
-
-(defun texinfo-master-menu-list-recursive (title)
-  "Auxiliary function used by `texinfo-master-menu-list'."
-  (save-excursion
-    (let (master-menu-list)
-      (while (re-search-forward "\\(^@menu\\|^@include\\)" nil t)
-	(cond
-	 ((string= (match-string 0) "@include")
-	  (skip-chars-forward " \t")
-	  (let ((included-name (let ((start (point)))
-				 (end-of-line)
-				 (skip-chars-backward " \t")
-				 (buffer-substring start (point)))))
-	    (end-of-line)
-	    (let ((prev-title (texinfo-copy-menu-title)))
-	      (save-excursion
-		(set-buffer (find-file-noselect included-name))
-		(setq master-menu-list
-		      (append (texinfo-master-menu-list-recursive prev-title)
-			      master-menu-list))))))
-	 (t
-	  (setq master-menu-list
-		(cons (list
-		       (texinfo-copy-menu)
-		       (let ((menu-title (texinfo-copy-menu-title)))
-			 (if (string= menu-title "")
-			     title
-			   menu-title)))
-		      master-menu-list)))))
-      master-menu-list)))
-
-(defun texinfo-master-menu-list ()
-  "Return a list of menu entries and header lines for the master menu,
-recursing into included files.
-
-Start with the menu for chapters and indices and then find each
-following menu and the title of the node preceding that menu.
-
-The master menu list has this form:
-
-    \(\(\(... \"entry-1-2\"  \"entry-1\"\) \"title-1\"\)
-      \(\(... \"entry-2-2\"  \"entry-2-1\"\) \"title-2\"\)
-      ...\)
-
-However, there does not need to be a title field."
-
-  (reverse (texinfo-master-menu-list-recursive "")))
-
-(defun make-master-menu ()
-  "Create master menu in the first Emacs argument."
-  (find-file (car command-line-args-left))
-  (texinfo-master-menu nil)
-  (save-buffer))
-
-
-;;; mastermenu.el ends here