From 63a4a5bfc01513a173216a0a8984ab3ef0cd0c81 Mon Sep 17 00:00:00 2001
From: Arun Isaac
Date: Thu, 31 Dec 2020 12:50:43 +0530
Subject: Deprecate plural functions.

* ksh-discharge.el (forms-format-list, form-to-org): Deprecate
form-entries, single-line-org-entries, multi-line-org-entries.
* ksh-scan2.el (forms-format-list): Deprecate form-entries.
(form-to-org): Deprecate single-line-org-entries,
multi-line-org-entries.
* ksh-scan3.el (forms-format-list, form-to-org): Deprecate
form-entries, single-line-org-entries, multi-line-org-entries.
* ksh-forms-improved.el (single-line-org-entries,
multi-line-org-entries, form-entries): Delete functions.

squash! Deprecate plural functions.
---
 ksh-forms-improved.el | 3 ---
 1 file changed, 3 deletions(-)

(limited to 'ksh-forms-improved.el')

diff --git a/ksh-forms-improved.el b/ksh-forms-improved.el
index ed2cf7e..67f03b1 100644
--- a/ksh-forms-improved.el
+++ b/ksh-forms-improved.el
@@ -40,7 +40,6 @@
   (list (format "%s\n" (car label-field))
 	(cdr label-field) "\n\n"))
 
-(setfun form-entries (mapped 'cl-mapcan 'form-entry))
 
 (defun new-record-filter (record)
   (set-values record default-field-values)
@@ -65,8 +64,6 @@
 
 (setfun single-line-org-entry (make-org-entry-function "*%s:* %s\n\n"))
 (setfun multi-line-org-entry (make-org-entry-function "\n* %s\n%s\n\n"))
-(setfun single-line-org-entries (mapped 'mapc 'single-line-org-entry))
-(setfun multi-line-org-entries (mapped 'mapc 'multi-line-org-entry))
 
 (defun text-if-non-blank (text)
   (if (and text (not (string-blank-p text)))
-- 
cgit v1.2.3