diff --git a/ChangeLog b/ChangeLog index 64ae7d9f..6dae423e 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,5 +1,6 @@ 2022-07-26 Mats Lidell +* kotl/klink.el: * kotl/klabel.el: * kotl/kfile.el: * hib-kbd.el: diff --git a/kotl/klink.el b/kotl/klink.el index f2df4729..8ef29cfe 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: \"\". -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: +\"\". 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)))