emacs-elpa-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[elpa] externals/ivy 5f49149 1/2: Pacify Emacs 28 wide docstring warning


From: Basil L. Contovounesios
Subject: [elpa] externals/ivy 5f49149 1/2: Pacify Emacs 28 wide docstring warnings
Date: Tue, 28 Sep 2021 05:52:02 -0400 (EDT)

branch: externals/ivy
commit 5f49149073be755212b3e32853eeb3f4d0f972e6
Author: Basil L. Contovounesios <contovob@tcd.ie>
Commit: Basil L. Contovounesios <contovob@tcd.ie>

    Pacify Emacs 28 wide docstring warnings
    
    * counsel.el (counsel-read-directory-name)
    (counsel--kmacro-candidates)
    (counsel-kmacro-action-copy-counter-format-for-new-macro):
    * ivy.el (ivy-read-action-format-columns): Refill and reword wide
    docstrings.
---
 counsel.el | 14 ++++++++++----
 ivy.el     |  7 ++++---
 2 files changed, 14 insertions(+), 7 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)))
diff --git a/ivy.el b/ivy.el
index 851d272..33cf95d 100644
--- a/ivy.el
+++ b/ivy.el
@@ -784,10 +784,11 @@ key (a string), cmd and doc (a string)."
            "\n")))
 
 (defun ivy-read-action-format-columns (actions)
-  "Create a docstring from ACTIONS, using several columns if needed to 
preserve `ivy-height'.
+  "Create a potentially multi-column docstring from ACTIONS.
+Several columns are used as needed to preserve `ivy-height'.
 
-ACTIONS is a list.  Each list item is a list of 3 items: key (a
-string), cmd and doc (a string)."
+ACTIONS is a list with elements of the form (KEY COMMAND DOC),
+where KEY and DOC are strings."
   (let ((length (length actions))
         (i 0)
         (max-rows (- ivy-height 1))



reply via email to

[Prev in Thread] Current Thread [Next in Thread]