[elpa] externals/auctex afd2691e56 19/24: Update style/ltxdoc.el to class version 2.1d

[Tassilo Horn]

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

    Update style/ltxdoc.el to class version 2.1d
    
    * style/ltxdoc.el ("ltxdoc"): Add '|' to `LaTeX-shortvrb-chars'
    before running the 'shortvrb' style hook.  Add missing symbols to
    the style hook incl. fontification.
    (LaTeX-ltxdoc-class-options): New variable.
    
    * tex-ispell.el (TeX-ispell-skip-cmds-list): Add one entry "cs".
---
 style/ltxdoc.el | 64 +++++++++++++++++++++++++++++++++++++++++++++++++++++----
 tex-ispell.el   |  3 +++
 2 files changed, 63 insertions(+), 4 deletions(-)

diff --git a/style/ltxdoc.el b/style/ltxdoc.el
index 8c8bbc59f6..16c26e1f39 100644
--- a/style/ltxdoc.el
+++ b/style/ltxdoc.el
@@ -1,6 +1,6 @@
 ;;; ltxdoc.el --- AUCTeX style for `ltxdoc.cls'  -*- lexical-binding: t; -*-
 
-;; Copyright (C) 2004, 2020 Free Software Foundation, Inc.
+;; Copyright (C) 2004--2022 Free Software Foundation, Inc.
 
 ;; Author: Frank Küster <frank@kuesterei.ch>
 ;; Maintainer: auctex-devel@gnu.org
@@ -25,19 +25,75 @@
 
 ;;; Commentary:
 
-;; This file adds support for `ltxdoc.cls'.
+;; This file adds support for `ltxdoc.cls' v2.1d, dated 2021/12/07.
 
 ;;; Code:
 
 (require 'tex)
 
+;; Silence the compiler:
+(declare-function font-latex-add-keywords
+                  "font-latex"
+                  (keywords class))
+(defvar LaTeX-article-class-options)
+
 (TeX-add-style-hook
  "ltxdoc"
  (lambda ()
-   (TeX-run-style-hooks "doc")
-   (TeX-run-style-hooks "ltx-base"))
+
+   ;; ltxdoc.cls loads shortvrb.sty and sets '|' as a shorthand.  We
+   ;; append it to a local version of `LaTeX-shortvrb-chars' before
+   ;; running the style hook for 'shortvrb' which is done inside
+   ;; 'doc.el':
+   (add-to-list (make-local-variable 'LaTeX-shortvrb-chars) ?| t)
+
+   (TeX-run-style-hooks "doc" "ltx-base" "article")
+
+   (TeX-add-symbols
+    '("cmd" TeX-arg-macro)
+    '("cs" (TeX-arg-eval completing-read
+                         (TeX-argument-prompt nil nil "Macro")
+                         (TeX-symbol-list)))
+    '("marg" "Mandatory argument")
+    '("oarg" "Optional argument")
+    '("parg" "Picture mode argument")
+
+    '("DocInclude"
+      (TeX-arg-eval
+       (lambda ()
+         (let ((file (file-relative-name
+                      (read-file-name
+                       "File to include: " nil nil nil nil
+                       (lambda (x)
+                         (or (file-directory-p x)
+                             (string-match "\\.\\(fdd\\|dtx\\)\\'" x))))
+                      (TeX-master-directory))))
+           (format "%s" file))))))
+
+   ;; Fontification
+   (when (and (featurep 'font-latex)
+              (eq TeX-install-font-lock 'font-latex-setup))
+     (font-latex-add-keywords '(("cmd"  "{")
+                                ("cs"   "{")
+                                ("marg" "{")
+                                ("oarg" "{")
+                                ("parg" "{"))
+                              'textual)
+     (font-latex-add-keywords '("DocInclude" "{")
+                              'reference)))
  TeX-dialect)
 
+(defvar LaTeX-ltxdoc-class-options
+  (progn
+    (TeX-load-style "article")
+    (append (remove "a5paper" LaTeX-article-class-options)
+            '("nocfg")))
+  "Class options for the ltxdoc class.
+All options are passed to article class, \"a5paper\" is disabled
+by ltxdoc.  Therefore it is also removed here.")
+
 ;; Local Variables:
 ;; coding: utf-8
 ;; End:
+
+;;; ltxdoc.el ends here
diff --git a/tex-ispell.el b/tex-ispell.el
index 5becea3c65..ed1ca38337 100644
--- a/tex-ispell.el
+++ b/tex-ispell.el
@@ -56,6 +56,7 @@
 ;; fontspec.sty
 ;; hyperref.sty
 ;; listings.sty
+;; ltxdoc.cls
 ;; ltxtable.sty
 ;; mdframed.sty
 ;; minted.sty
@@ -189,6 +190,8 @@
       ;; listings.sty
       ("lstinputlisting" . 1)
       ("lstset" . 1)
+      ;; ltxdoc.cls
+      ("cs" . 1)
       ;; ltxtable.sty
       ("LTXtable" . 2)
       ;; mdframed.sty