[elpa] externals/hyperbole 9c372640df 5/8: Doc strings within 80 char limit for kfile.el (#225)

[ELPA Syncer]

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

    Doc strings within 80 char limit for kfile.el (#225)
---
 ChangeLog     |  1 +
 kotl/kfile.el | 19 +++++++++++--------
 2 files changed, 12 insertions(+), 8 deletions(-)

diff --git a/ChangeLog b/ChangeLog
index 33fb4950f6..0bfd109ffb 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,5 +1,6 @@
 2022-07-26  Mats Lidell  <matsl@gnu.org>
 
+* kotl/kfile.el:
 * hib-kbd.el:
 * hib-doc-id.el:
 * hhist.el:
diff --git a/kotl/kfile.el b/kotl/kfile.el
index da3348d6f4..76df8858f3 100644
--- a/kotl/kfile.el
+++ b/kotl/kfile.el
@@ -3,9 +3,9 @@
 ;; Author:       Bob Weiner
 ;;
 ;; Orig-Date:    10/31/93
-;; Last-Mod:      5-Jun-22 at 17:59:19 by Bob Weiner
+;; Last-Mod:     22-Jul-22 at 15:17:31 by Mats Lidell
 ;;
-;; Copyright (C) 1993-2021  Free Software Foundation, Inc.
+;; Copyright (C) 1993-2022  Free Software Foundation, Inc.
 ;; See the "../HY-COPY" file for license information.
 ;;
 ;; This file is part of GNU Hyperbole.
@@ -66,7 +66,9 @@ Return the new kview."
 
 ;;;###autoload
 (defun kfile:is-p ()
-  "Iff current buffer contains an unformatted or formatted koutline, return 
file format version string, else nil."
+  "Iff current buffer contains a koutline, return file format version string.
+If not a koutline, return nil. This works both for unformatted
+and formatted koutlines."
   (let (ver-string)
     (save-excursion
       (save-restriction
@@ -100,8 +102,8 @@ Return the new kview."
 ;;; ************************************************************************
 
 (defun kfile:create (buffer)
-  "Create a new koutline file attached to BUFFER, with a single empty level 1 
kotl cell.
-Return file's kview."
+  "Create a new koutline file attached to BUFFER and return file's kview.
+File is created with a single empty level 1 kotl cell."
   (or buffer (setq buffer (current-buffer)))
   (unless (bufferp buffer)
     (error "(kfile:create): Invalid buffer argument, %s" buffer))
@@ -156,9 +158,10 @@ Return file's kview."
     view))
 
 (defun kfile:read (buffer existing-file-p &optional ver-string)
-  "Create a new kotl view by reading BUFFER or create an empty view when 
EXISTING-FILE-P is nil.
-Optional VER-STRING is the outline format version number for the BUFFER that
-was previously read by calling `kfile:is-p'.
+  "Create a new kotl view by reading BUFFER.
+Create an empty view when EXISTING-FILE-P is nil.  Optional
+VER-STRING is the outline format version number for the BUFFER
+that was previously read by calling `kfile:is-p'.
 
 Return the new view."
   (cond ((not (bufferp buffer))