[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/org 07eced3639 2/2: org-make-parameter-alist: Change th
From: |
ELPA Syncer |
Subject: |
[elpa] externals/org 07eced3639 2/2: org-make-parameter-alist: Change the argument name |
Date: |
Mon, 21 Nov 2022 22:57:59 -0500 (EST) |
branch: externals/org
commit 07eced3639f483b7bc0351aaee66715da80354df
Author: Ihor Radchenko <yantar92@posteo.net>
Commit: Ihor Radchenko <yantar92@posteo.net>
org-make-parameter-alist: Change the argument name
* lisp/org-macs.el (org-make-parameter-alist): Change the argument
name to conventional PLIST, as the FIXME suggests.
---
lisp/org-macs.el | 17 ++++++++---------
1 file changed, 8 insertions(+), 9 deletions(-)
diff --git a/lisp/org-macs.el b/lisp/org-macs.el
index 541413a64a..9188999007 100644
--- a/lisp/org-macs.el
+++ b/lisp/org-macs.el
@@ -1324,15 +1324,14 @@ that will be added to PLIST. Returns the string that
was modified."
0 (length string) (if props (append plist props) plist) string)
string)
-(defun org-make-parameter-alist (flat)
- ;; FIXME: "flat" is called a "plist"!
- "Return alist based on FLAT.
-FLAT is a list with alternating symbol names and values. The
-returned alist is a list of lists with the symbol name in car and
-the value in cadr."
- (when flat
- (cons (list (car flat) (cadr flat))
- (org-make-parameter-alist (cddr flat)))))
+(defun org-make-parameter-alist (plist)
+ "Return alist based on PLIST.
+PLIST is a property list with alternating symbol names and values.
+The returned alist is a list of lists with the symbol name in `car'
+and the value in `cadr'."
+ (when plist
+ (cons (list (car plist) (cadr plist))
+ (org-make-parameter-alist (cddr plist)))))
(defsubst org-get-at-bol (property)
"Get text property PROPERTY at the beginning of line."