[elpa] externals/auctex b0c5a4e 20/34: Delete style/latexinfo.el from AUCTeX

[Tassilo Horn]

branch: externals/auctex
commit b0c5a4e7d02bbc41e1b9cebf2e042e61aff7a0f6
Author: Arash Esbati <arash@gnu.org>
Commit: Arash Esbati <arash@gnu.org>

    Delete style/latexinfo.el from AUCTeX
    
    * Makefile.in (STYLESRC): Delete entry for style/latexinfo.el.
    
    * doc/changes.texi: Document removal of style.
---
 Makefile.in        |   2 +-
 doc/changes.texi   |   5 ++
 style/latexinfo.el | 183 -----------------------------------------------------
 3 files changed, 6 insertions(+), 184 deletions(-)

diff --git a/Makefile.in b/Makefile.in
index 3264b9e..5b5a49d 100644
--- a/Makefile.in
+++ b/Makefile.in
@@ -91,7 +91,7 @@ STYLESRC = style/prosper.el \
           style/slides.el    style/foils.el     style/amstex.el \
           style/article.el   style/book.el      style/letter.el \
           style/report.el    style/amsart.el    style/amsbook.el \
-          style/epsf.el      style/psfig.el     style/latexinfo.el \
+          style/epsf.el      style/psfig.el                      \
           style/dutch.el     style/german.el    style/dk.el \
           style/j-article.el style/j-book.el    style/j-report.el \
           style/jarticle.el  style/jbook.el     style/jreport.el \
diff --git a/doc/changes.texi b/doc/changes.texi
index b72fa7d..2fe2769 100644
--- a/doc/changes.texi
+++ b/doc/changes.texi
@@ -88,6 +88,11 @@ declared variables with the prefix 
@samp{TeX-translate-location-}, e.g.,
 The constant @code{LaTeX-dialect} has been renamed to @code{TeX-dialect}
 and moved from @file{latex.el} to @file{tex.el}.  @code{LaTeX-dialect}
 now is an obsolete alias.
+
+@item
+The style @file{latexinfo.el} is removed from @AUCTeX{}.
+@file{latexinfo.el} was meant to support latexinfo which in return was a
+@LaTeX{}-2.09 extension of Texinfo, but didn't manage to replace Texinfo.
 @end itemize
 
 @heading News in 12.3
diff --git a/style/latexinfo.el b/style/latexinfo.el
deleted file mode 100644
index 9eb68ad..0000000
--- a/style/latexinfo.el
+++ /dev/null
@@ -1,183 +0,0 @@
-;;; latexinfo.el - Support for LaTeXinfo files.  -*- lexical-binding: t; -*-
-
-;; Copyright (C) 1993-2021  Free Software Foundation, Inc.
-
-;; Author: Marc Gemis <makke@wins.uia.ac.be>
-
-;; 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 AUCTeX; see the file COPYING.  If not, write to the Free
-;; Software Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston,
-;; MA 02110-1301 USA.
-
-;;; Code:
-
-(require 'tex)
-(require 'latex)
-
-;;; LaTeXinfo mode
-
-(defvar TeX-latexinfo-node-regexp
-  '("\\\\node[ \t]+\\([^,\n\r%]+\\)" 1 TeX-auto-label)
-  "Matches LaTeXinfo \\node commands, only current node will be found.
-We ignore next, previous and up fields.")
-
-(defvar LaTeXinfo-mode nil
-  "Non-nil means LaTeXinfo minor mode is active.")
-  (make-variable-buffer-local 'LaTeXinfo-mode)
-
-(defvar LaTeXinfo-mode-map
-  (let ((map (make-sparse-keymap)))
-    (define-key map "\C-c\C-u\C-b" #'latexinfo-format-buffer)
-    (define-key map "\C-c\C-u\C-r" #'latexinfo-format-region)
-    (define-key map "\C-c\C-u\C-s" #'latexinfo-show-structure)
-    (define-key map "\C-c\C-ud" #'makke:latexinfo-delete-structure)
-    (define-key map "\C-c\C-ug" #'latexinfo-goto-node)
-    (define-key map "\C-c\C-ui" #'makke:latexinfo-structure)
-    map)
-  "Keymap containing LaTeXinfo commands.")
-
-(or (assq 'LaTeXinfo-mode minor-mode-map-alist)
-    (setq minor-mode-map-alist
-          (cons (cons 'LaTeXinfo-mode LaTeXinfo-mode-map)
-                minor-mode-map-alist)))
-
-(defun TeX-arg-latexinfo-index (optional &optional prompt)
-  "Prompt for a LaTeXinfo index type with completion."
-  (TeX-argument-insert
-   (completing-read (TeX-argument-prompt optional prompt "Index")
-                    '(("cp") ("vr") ("fn") ("tp") ("pg") ("ky"))
-                    nil t)
-   optional))
-
-(defun LaTeX-item-latexinfo-menu ()
-  "Insert a new menu item"
-  (insert "* ::")
-  (backward-char 2))
-
-(defun latexinfo-goto-node () ; temporarily here, later in latexinfo-upd.el ??
-  "Place pointer on the node given by the user, read node with completion
-This fails when the user types in the label of something else"
-  (interactive)
-  (let ((node-name (completing-read "Goto Node: " (LaTeX-label-list))))
-    (goto-char (point-min))
-    (if (re-search-forward
-         (concat
-          TeX-esc "node[ \\t]+" node-name ","
-          "\\|"
-          TeX-esc "label{" LaTeX-section-label node-name
-          "\\|"
-          TeX-esc "label{" node-name
-          )
-         (point-max) t)
-        (beginning-of-line 1)
-    (error "No such node"))))
-
-;;; Hook
-
-(TeX-add-style-hook "latexinfo"
-                    (function
-                     (lambda ()
-                       (require 'latexinfo)
-                       (require 'latexinfo-structure)
-
-                       (require 'min-map)
-                       (setq LaTeXinfo-mode t)
-                       
-                       (TeX-auto-add-regexp TeX-latexinfo-node-regexp)
-
-                       (TeX-add-symbols
-                        '("node"
-                          (TeX-arg-literal " ")
-                          (TeX-arg-free TeX-arg-define-label "Node name")
-                          (TeX-arg-literal ", ")
-                          (TeX-arg-free TeX-arg-ref "Next node")
-                          (TeX-arg-literal ", ")
-                          (TeX-arg-free TeX-arg-ref "Previous node")
-                          (TeX-arg-literal ", ")
-                          (TeX-arg-free TeX-arg-ref "Up node"))
-                        '("setfilename" TeX-arg-file)
-
-                        '("var" t)
-                        '("dfn" t)
-                        '("emph" t)
-                        '("kbd" t)
-                        '("code" t)
-                        '("samp" t)
-                        '("key" t)
-                        '("ctrl" t)
-                        '("file" t)
-
-                        '("comment"
-                          (TeX-arg-literal " ")
-                          (TeX-arg-free "Comment"))
-                        '("c"
-                          (TeX-arg-literal " ")
-                          (TeX-arg-free "Comment"))
-
-                        '("cindex" t)
-                        '("cpsubindex" 2)
-                        '("cpindexbold" t)
-
-                        '("newindex" TeX-arg-latexinfo-index)
-
-                        '("br" nil)
-                        '("w" "Text")
-                        '("dots" nil)
-                        '("refill" nil)
-                        '("bullet" nil)
-                        '("copyright" nil)
-                        '("sp" nil)
-
-                        '("xref" TeX-arg-ref)
-                        '("pxref" TeX-arg-ref)
-                        '("inforef"
-                          (TeX-arg-literal "{")
-                          (TeX-arg-free "Name of node")
-                          (TeX-arg-literal ", ")
-                          (TeX-arg-free "Name for note")
-                          (TeX-arg-literal ", ")
-                          (TeX-arg-free TeX-arg-file "Info file")
-                          (TeX-arg-literal "}")))
-
-                       (LaTeX-add-environments "menu" "tex" "ignore" "ifinfo" 
"iftex"
-                                               "example" "same" "display" 
"format")
-
-                                        ; Menu's have a special kind of items
-                       (make-local-variable 'LaTeX-item-list)
-                       (setq LaTeX-item-list (cons '("menu" . 
LaTeX-item-latexinfo-menu)
-                                                   LaTeX-item-list))
-
-                       (make-local-variable 'TeX-font-list)
-                       (setq TeX-font-list
-                             (list (list ?\C-b (concat TeX-esc "b{") "}")
-                                   (list ?\C-c (concat TeX-esc "sc{") "}")
-                                   (list ?\C-e (concat TeX-esc "emph{") "}")
-                                   (list ?\C-i (concat TeX-esc "i{") "}")
-                                   (list ?\C-r (concat TeX-esc "r{") "}")
-                                   (list ?\C-s (concat TeX-esc "samp{") "}")
-                                   (list ?\C-t (concat TeX-esc "t{") "}")
-                                   (list ?s    (concat TeX-esc "strong{") "}")
-                                   (list ?\C-f (concat TeX-esc "file{") "}")
-                                   (list ?\C-d (concat TeX-esc "dfn{") "}")
-                                   (list ?\C-v (concat TeX-esc "var{") "}")
-                                   (list ?k    (concat TeX-esc "key{") "}")
-                                   (list ?\C-k (concat TeX-esc "kbd{") "}")
-                                   (list ?c    (concat TeX-esc "code{") "}")
-                                   (list ?C    (concat TeX-esc "cite{") "}")))
-
-                       ;; need the following stuff to let xref and pxref work
-                       (make-local-variable 'LaTeX-section-label)
-                       (setq LaTeX-section-label "")))
-                    TeX-dialect)
-
-;;; latexinfo.el ends here