[elpa] externals/hyperbole b3cded1419 1/5: Doc strings within 80 char limit for hargs.el (#213)

[ELPA Syncer]

branch: externals/hyperbole
commit b3cded141995bd08b3fa7002c7ea5e86c0ff10d4
Author: Mats Lidell <mats.lidell@lidells.se>
Commit: GitHub <noreply@github.com>

    Doc strings within 80 char limit for hargs.el (#213)
---
 ChangeLog |  4 ++++
 hargs.el  | 10 ++++++----
 2 files changed, 10 insertions(+), 4 deletions(-)

diff --git a/ChangeLog b/ChangeLog
index cd403609ab..1fe73dfb4a 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,7 @@
+2022-07-20  Mats Lidell  <matsl@gnu.org>
+
+* hargs.el: Shorten docs strings to be within 80 char limit.
+
 2022-07-19  Mats Lidell  <matsl@gnu.org>
 
 * test/demo-tests.el (fast-demo-key-series-shell-apropos): Add optional
diff --git a/hargs.el b/hargs.el
index 305254c02f..effd499b99 100644
--- a/hargs.el
+++ b/hargs.el
@@ -3,7 +3,7 @@
 ;; Author:       Bob Weiner
 ;;
 ;; Orig-Date:    31-Oct-91 at 23:17:35
-;; Last-Mod:     15-Jul-22 at 22:07:35 by Mats Lidell
+;; Last-Mod:     20-Jul-22 at 19:17:13 by Mats Lidell
 ;;
 ;; Copyright (C) 1991-2022  Free Software Foundation, Inc.
 ;; See the "HY-COPY" file for license information.
@@ -75,12 +75,14 @@ Convert NUL characters to colons for use with grep lines."
 (defun hargs:delimited (start-delim end-delim
                        &optional start-regexp-flag end-regexp-flag
                        list-positions-flag exclude-regexp)
-  "Return a normalized, single line, delimited string that point is within the 
first line of, or nil.
+  "Return a delimited string that point is within the first line of, or nil.
+The string is normalized and reduced to a single line.
 START-DELIM and END-DELIM are strings that specify the argument
 delimiters.  With optional START-REGEXP-FLAG non-nil, START-DELIM is
 treated as a regular expression.  END-REGEXP-FLAG is similar.
-With optional LIST-POSITIONS-FLAG, return list of (string-matched start-pos 
end-pos).
-With optional EXCLUDE-REGEXP, any matched string is ignored if it matches this 
regexp."
+With optional LIST-POSITIONS-FLAG, return list of (string-matched
+start-pos end-pos).  With optional EXCLUDE-REGEXP, any matched
+string is ignored if it matches this regexp."
   (let* ((opoint (point))
         (line-begin (line-beginning-position))
         ;; This initial limit if the forward search limit for start delimiters