[elpa] externals/hyperbole 9b9650ba75 7/8: Doc strings within 80 char limit for klink.el (#229)

[ELPA Syncer]

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

    Doc strings within 80 char limit for klink.el (#229)
---
 ChangeLog     |  1 +
 kotl/klink.el | 16 ++++++++++------
 2 files changed, 11 insertions(+), 6 deletions(-)

diff --git a/ChangeLog b/ChangeLog
index 64ae7d9f3a..6dae423e2f 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,5 +1,6 @@
 2022-07-26  Mats Lidell  <matsl@gnu.org>
 
+* kotl/klink.el:
 * kotl/klabel.el:
 * kotl/kfile.el:
 * hib-kbd.el:
diff --git a/kotl/klink.el b/kotl/klink.el
index f2df4729ed..8ef29cfeb3 100644
--- a/kotl/klink.el
+++ b/kotl/klink.el
@@ -3,7 +3,7 @@
 ;; Author:       Bob Weiner
 ;;
 ;; Orig-Date:    15-Nov-93 at 12:15:16
-;; Last-Mod:     15-Jul-22 at 23:24:53 by Mats Lidell
+;; Last-Mod:     18-Jul-22 at 21:50:46 by Mats Lidell
 ;;
 ;; Copyright (C) 1993-2022  Free Software Foundation, Inc.
 ;; See the "../HY-COPY" file for license information.
@@ -85,9 +85,12 @@
 ;;; ************************************************************************
 
 (defun klink:absolute (label-and-pos)
-  "With point in a klink's source buffer and LABEL-AND-POS a list of 
(klink-label, klink-start, klink-end) including delimiters, return an absolute 
klink string.
-Klink is of the form: \"<absolute-file-name, cell-ref>\".
-See documentation for `kcell:ref-to-id' for valid cell-ref formats."
+  "Return an absolute klink string from LABEL-AND-POS list.
+With point in a klink's source buffer and LABEL-AND-POS a list
+of (klink-label, klink-start, klink-end) including delimiters,
+return an absolute klink string.  Klink returned is of the form:
+\"<absolute-file-name, cell-ref>\".  See documentation for
+`kcell:ref-to-id' for valid cell-ref formats."
   (when (and (derived-mode-p 'kotl-mode) label-and-pos (listp label-and-pos))
     (let* ((file-and-cell-ref (klink:parse (car label-and-pos)))
           (file (or (car file-and-cell-ref) buffer-file-name))
@@ -199,8 +202,9 @@ link-end-position, (including delimiters)."
       label-and-pos)))
 
 (defun klink:set-yank-handler (klink)
-  "Add yank-handler to KLINK so link is made relative when yanked into the 
same koutline or the same directory.
-Return the modified KLINK."
+  "Add yank-handler to KLINK and return the modified KLINK.
+Link is made relative when yanked into the same koutline or the
+same directory."
   (add-text-properties 0 (length klink)
                       (list 'yank-handler '(klink:yank-handler)
                             'yank-excluded-properties (cons 'yank-handler 
(get-text-property 0 'yank-excluded-properties klink)))