[AUCTeX-diffs] GNU AUCTeX branch, master, updated. df694438623ea58bf2b41e186e272d27be3092e5

[Arash Esbati]

This is an automated email from the git hooks/post-receive script. It was
generated because a ref change was pushed to the repository containing
the project "GNU AUCTeX".

The branch, master has been updated
       via  df694438623ea58bf2b41e186e272d27be3092e5 (commit)
      from  f6dd4a4a7bb3f8ccb054ff5b38105ddf8b88a671 (commit)

Those revisions listed above that are new to this repository have
not appeared on any other notification email; so we list those
revisions in full, below.

- Log -----------------------------------------------------------------
commit df694438623ea58bf2b41e186e272d27be3092e5
Author: Arash Esbati <arash@gnu.org>
Date:   Fri Oct 22 17:38:07 2021 +0200

    ; Silence the compiler
    
    * context.el (ConTeXt-project-structure)
    (ConTeXt-numbered-section-heading)
    (ConTeXt-unnumbered-section-heading, ConTeXt-section-title)
    (ConTeXt-section-ref, ConTeXt-last-unended-start):
    * tex-info.el (Texinfo-mark-node, Texinfo-arg-next-line): Adjust
    docstrings to less than 80 characters.

diff --git a/context.el b/context.el
index eac68e4..4c16eef 100644
--- a/context.el
+++ b/context.el
@@ -174,7 +174,8 @@
   "Calls ConTeXt-XX-project-structure where XX is the current interface.")
 
 (defun ConTeXt-project-structure (N)
-  "Insert a ConTeXt project structure where N is in index into 
`ConTeXt-project-structure-list'."
+  "Insert a ConTeXt project structure.
+N is in index into `ConTeXt-project-structure-list'."
   (funcall (intern(concat
                    "ConTeXt-project-"
                    (nth N ConTeXt-project-structure-list)
@@ -509,8 +510,9 @@ in your .emacs file."
 
 (defun ConTeXt-numbered-section-heading ()
   "Hook to prompt for ConTeXt section name.
-Insert this hook into `ConTeXt-numbered-section-hook' to allow the user to 
change
-the name of the sectioning command inserted with `\\[ConTeXt-section]'."
+Insert this hook into `ConTeXt-numbered-section-hook' to allow
+the user to change the name of the sectioning command inserted
+with `\\[ConTeXt-section]'."
   (let ((string (completing-read
                  (concat "Select level (default " ConTeXt-name "): ")
                  ConTeXt-numbered-section-list
@@ -521,8 +523,9 @@ the name of the sectioning command inserted with 
`\\[ConTeXt-section]'."
 
 (defun ConTeXt-unnumbered-section-heading ()
   "Hook to prompt for ConTeXt section name.
-Insert this hook into `ConTeXt-unnumbered-section-hook' to allow the user to 
change
-the name of the sectioning command inserted with `\\[ConTeXt-section]'."
+Insert this hook into `ConTeXt-unnumbered-section-hook' to allow
+the user to change the name of the sectioning command inserted
+with `\\[ConTeXt-section]'."
   (let ((string (completing-read
                  (concat "Select level (default " ConTeXt-name "): ")
                  ConTeXt-unnumbered-section-list
@@ -533,8 +536,9 @@ the name of the sectioning command inserted with 
`\\[ConTeXt-section]'."
 
 (defun ConTeXt-section-title ()
   "Hook to prompt for ConTeXt section title.
-Insert this hook into `ConTeXt-(un)numbered-section-hook' to allow the user to 
change
-the title of the section inserted with `\\[ConTeXt-section]."
+Insert this hook into `ConTeXt-(un)numbered-section-hook' to
+allow the user to change the title of the section inserted with
+`\\[ConTeXt-section]."
   (setq ConTeXt-title (TeX-read-string "What title: ")))
 
 (defun ConTeXt-section-section ()
@@ -562,8 +566,8 @@ assumes the section already is inserted."
 
 (defun ConTeXt-section-ref ()
   "Hook to insert a reference after the sectioning command.
-Insert this hook into `ConTeXt-numbered-section-hook' to prompt for a label to 
be
-inserted after the sectioning command."
+Insert this hook into `ConTeXt-numbered-section-hook' to prompt
+for a label to be inserted after the sectioning command."
   (setq ConTeXt-reference
         (completing-read
          (TeX-argument-prompt t nil
@@ -860,7 +864,8 @@ An entry looks like: (\"environment\" . function)")
       (buffer-substring beg (point)))))
 
 (defun ConTeXt-last-unended-start ()
-  "Leave point at the beginning of the last `\\start...' that is unstopped 
looking from the current cursor."
+  "Leave point at the beginning of the last `\\start...'.
+That is unstopped looking from the current cursor."
   (while (and (re-search-backward "\\\\start[a-zA-Z]*\\|\\\\stop[a-zA-Z]*")
               (looking-at "\\\\stop[a-zA-Z]*"))
     (ConTeXt-last-unended-start)))
diff --git a/tex-info.el b/tex-info.el
index ef1e439..389175d 100644
--- a/tex-info.el
+++ b/tex-info.el
@@ -273,7 +273,7 @@ the section."
       (TeX-activate-region) )))
 
 (defun Texinfo-mark-node ()
-  "Mark the current node.  \
+  "Mark the current node.
 This is the node in which the pointer is.  It is starting at
 previous beginning of keyword `@node' and ending at next
 beginning of keyword `@node' or `@bye'."
@@ -297,7 +297,8 @@ beginning of keyword `@node' or `@bye'."
 character. Return the resulting string."
   (let ((pos 0) (map '(("comma" . ","))))
     (while (and (< pos (length
-                        node-name)) (string-match "@\\(comma\\)[[:blank:]]*{}" 
node-name pos))
+                        node-name))
+                (string-match "@\\(comma\\)[[:blank:]]*{}" node-name pos))
       (setq node-name (concat  (substring node-name 0 (match-beginning 0))
                                (cdr (assoc-string (match-string 1 node-name) 
map))
                                (substring node-name (match-end 0)))
@@ -416,7 +417,8 @@ each invocation."
     (insert " " l " @| " c " @| " r)))
 
 (defun Texinfo-arg-next-line (_optional &rest _args)
-  "Go to the beginning of next line if we are at the end of line. Otherwise 
insert an end-of-line."
+  "Go to the beginning of next line if we are at the end of line.
+Otherwise insert an end-of-line."
   (if (eolp)  (forward-line) (insert "\n")))
 
 (defun Texinfo-arg-on|off (optional &optional prompt style)

-----------------------------------------------------------------------

Summary of changes:
 context.el  | 25 +++++++++++++++----------
 tex-info.el |  8 +++++---
 2 files changed, 20 insertions(+), 13 deletions(-)


hooks/post-receive
-- 
GNU AUCTeX