branch: externals/auctex
commit df694438623ea58bf2b41e186e272d27be3092e5
Author: Arash Esbati <[email protected]>
Commit: Arash Esbati <[email protected]>
; 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.
---
context.el | 25 +++++++++++++++----------
tex-info.el | 8 +++++---
2 files changed, 20 insertions(+), 13 deletions(-)
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)
