[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/counsel 90783f5: Merge branch 'master' into externals/c
From: |
Basil L. Contovounesios |
Subject: |
[elpa] externals/counsel 90783f5: Merge branch 'master' into externals/counsel |
Date: |
Tue, 28 Sep 2021 05:52:27 -0400 (EDT) |
branch: externals/counsel
commit 90783f545705344aae4fdc6e8d207c0ef3564711
Merge: 2b2dd09 5f49149
Author: Basil L. Contovounesios <contovob@tcd.ie>
Commit: Basil L. Contovounesios <contovob@tcd.ie>
Merge branch 'master' into externals/counsel
---
counsel.el | 14 ++++++++++----
1 file changed, 10 insertions(+), 4 deletions(-)
diff --git a/counsel.el b/counsel.el
index 43bc998..8c1f381 100644
--- a/counsel.el
+++ b/counsel.el
@@ -3101,7 +3101,9 @@ prompt additionally for EXTRA-AG-ARGS."
:exit-codes '(1 "No matches found"))
(defun counsel-read-directory-name (prompt &optional default)
- "Read a directory name from user, a (partial) replacement of
`read-directory-name'."
+ "Read a directory name.
+This is intended as a (partial) replacement for
+`read-directory-name'."
(let ((counsel--find-file-predicate #'file-directory-p))
(ivy-read prompt
#'read-file-name-internal
@@ -5639,8 +5641,9 @@ value of a macro, using them for a new macro."
(defun counsel--kmacro-candidates ()
"Create the list of keyboard macros used by `counsel-kmacro'.
-This is a combination of `kmacro-ring' and, together in a list,
`last-kbd-macro',
-`kmacro-counter-format-start', and `kmacro-counter-value-start'."
+This is a combination of `kmacro-ring' and, together in a list,
+`last-kbd-macro', `kmacro-counter-format-start', and
+`kmacro-counter-value-start'."
(mapcar
(lambda (kmacro)
(cons
@@ -5701,7 +5704,10 @@ to 0."
(kmacro-set-counter number)))
(defun counsel-kmacro-action-copy-counter-format-for-new-macro (x)
- "Set `kmacro-default-counter-format' to an existing keyboard macro's counter
format.
+ "Set the default keyboard macro counter format.
+This sets `kmacro-default-counter-format' to the counter format
+of an existing keyboard macro.
+
This will apply to the next macro a user defines."
(let* ((actual-kmacro (cdr x))
(format (nth 2 actual-kmacro)))