branch: externals/org
commit 21726c7b899445456b37813df14d32069c2371d2
Author: Stefan Kangas <stefankan...@gmail.com>
Commit: Kyle Meyer <k...@kyleam.com>
Backport commit 0e76716c5 from Emacs
* lisp/org-agenda.el (org-agenda-filter-completion-function):
* lisp/org-table.el (org-table-eval-formula):
* lisp/org.el (org-set-regexps-and-options):
* lisp/ox.el (org-export--get-inbuffer-options): Delete redundant
lambdas around unary functions. (Bug#66816)
Delete redundant lambdas around unary functions
0e76716c5faa5e91ac3913b02ba4dc690cf5df83
Stefan Kangas
Tue Feb 11 19:04:00 2025 +0100
---
lisp/org-agenda.el | 2 +-
lisp/org-table.el | 3 +--
lisp/org.el | 2 +-
lisp/ox.el | 2 +-
4 files changed, 4 insertions(+), 5 deletions(-)
diff --git a/lisp/org-agenda.el b/lisp/org-agenda.el
index 87eda4700b..8fdd998fc5 100644
--- a/lisp/org-agenda.el
+++ b/lisp/org-agenda.el
@@ -8186,7 +8186,7 @@ FLAG specifies the type of completion operation to
perform. This
function is passed as a collection function to `completing-read',
which see."
(let ((completion-ignore-case t) ;tags are case-sensitive
- (confirm (lambda (x) (stringp x)))
+ (confirm #'stringp)
(prefix "")
(operator "")
table
diff --git a/lisp/org-table.el b/lisp/org-table.el
index 22eecd5536..59e1b49f92 100644
--- a/lisp/org-table.el
+++ b/lisp/org-table.el
@@ -2539,8 +2539,7 @@ location of point."
;; replace fields with duration values if relevant
(if duration
(setq fields
- (mapcar (lambda (x) (org-table-time-string-to-seconds x))
- fields)))
+ (mapcar #'org-table-time-string-to-seconds fields)))
(if (eq numbers t)
(setq fields (mapcar
(lambda (x)
diff --git a/lisp/org.el b/lisp/org.el
index a11eee9429..ab5316a0b1 100644
--- a/lisp/org.el
+++ b/lisp/org.el
@@ -4283,7 +4283,7 @@ related expressions."
'("ARCHIVE" "CATEGORY" "COLUMNS" "PRIORITIES"))))
;; Startup options. Get this early since it does change
;; behavior for other options (e.g., tags).
- (let ((startup (cl-mapcan (lambda (value) (split-string value))
+ (let ((startup (cl-mapcan #'split-string
(cdr (assoc "STARTUP" alist)))))
(dolist (option startup)
(pcase (assoc-string option org-startup-options t)
diff --git a/lisp/ox.el b/lisp/ox.el
index cc50d03176..7f3f66a6f2 100644
--- a/lisp/ox.el
+++ b/lisp/ox.el
@@ -1552,7 +1552,7 @@ Assume buffer is in Org mode. Narrowing, if any, is
ignored."
(newline
(mapconcat #'identity values "\n"))
(split
- (cl-mapcan (lambda (v) (split-string v)) values))
+ (cl-mapcan #'split-string values))
((t)
(org-last values))
(otherwise
