[elpa] externals/embark ab1ee58 2/2: Missed a spot in the documentation clean up

[ELPA Syncer]

branch: externals/embark
commit ab1ee58dcc31e5c88428a7e258c12510f68b6898
Author: Omar Antolín <omar.antolin@gmail.com>
Commit: Omar Antolín <omar.antolin@gmail.com>

    Missed a spot in the documentation clean up
---
 README.org  | 6 ++----
 embark.texi | 6 ++----
 2 files changed, 4 insertions(+), 8 deletions(-)

diff --git a/README.org b/README.org
index 87b2107..4697934 100644
--- a/README.org
+++ b/README.org
@@ -574,8 +574,7 @@ metadata looks:
   (defun my-select-tab-by-name (tab)
     (interactive
      (list
-      (let ((tab-list (or (mapcar #'(lambda (tab)
-                                      (cdr (assq 'name tab)))
+      (let ((tab-list (or (mapcar (lambda (tab) (cdr (assq 'name tab)))
                                   (tab-bar-tabs))
                           (user-error "No tabs found"))))
         (completing-read
@@ -598,8 +597,7 @@ follows:
   (defun my-select-tab-by-name (tab)
     (interactive
      (list
-      (let ((tab-list (or (mapcar #'(lambda (tab)
-                                      (cdr (assq 'name tab)))
+      (let ((tab-list (or (mapcar (lambda (tab) (cdr (assq 'name tab)))
                                   (tab-bar-tabs))
                           (user-error "No tabs found"))))
         (consult--read tab-list
diff --git a/embark.texi b/embark.texi
index f5635ae..93c452e 100644
--- a/embark.texi
+++ b/embark.texi
@@ -718,8 +718,7 @@ metadata looks:
 (defun my-select-tab-by-name (tab)
   (interactive
    (list
-    (let ((tab-list (or (mapcar #'(lambda (tab)
-                                    (cdr (assq 'name tab)))
+    (let ((tab-list (or (mapcar (lambda (tab) (cdr (assq 'name tab)))
                                 (tab-bar-tabs))
                         (user-error "No tabs found"))))
       (completing-read
@@ -742,8 +741,7 @@ follows:
 (defun my-select-tab-by-name (tab)
   (interactive
    (list
-    (let ((tab-list (or (mapcar #'(lambda (tab)
-                                    (cdr (assq 'name tab)))
+    (let ((tab-list (or (mapcar (lambda (tab) (cdr (assq 'name tab)))
                                 (tab-bar-tabs))
                         (user-error "No tabs found"))))
       (consult--read tab-list