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

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

[elpa] externals/capf-autosuggest e393440 57/63: Don't make doc strings


From: ELPA Syncer
Subject: [elpa] externals/capf-autosuggest e393440 57/63: Don't make doc strings wider than 80 characters
Date: Wed, 27 Oct 2021 14:58:04 -0400 (EDT)

branch: externals/capf-autosuggest
commit e3934409e68c008dfe0b1b877ab5ee85a3eb7643
Author: jakanakaevangeli <jakanakaevangeli@chiru.no>
Commit: jakanakaevangeli <jakanakaevangeli@chiru.no>

    Don't make doc strings wider than 80 characters
---
 capf-autosuggest.el | 18 +++++++++++++-----
 1 file changed, 13 insertions(+), 5 deletions(-)

diff --git a/capf-autosuggest.el b/capf-autosuggest.el
index a065f33..426e621 100644
--- a/capf-autosuggest.el
+++ b/capf-autosuggest.el
@@ -254,11 +254,19 @@ into an auto-suggested overlay.  COMMAND must not modify 
buffer.
 NAME must not be called if variable
 `capf-autosuggest-active-mode' is inactive.  NAME is suitable for
 binding in `capf-autosuggest-active-mode-map'."
-  `(defun ,name ()
-     ,(format "`%s', possibly moving point into an auto-suggested overlay."
-              command)
-     (interactive)
-     (capf-autosuggest-call-partial-accept-cmd #',command)))
+  (let ((doc (format
+              "`%s', possibly moving point into an auto-suggested overlay."
+              command)))
+    (unless (< (length doc) 80)
+      (setq doc (format "\
+Execute command, possibly moving point into an auto-suggested overlay.
+`%s'
+and make it possible for this command to enter an auo-suggested overlay."
+                        command)))
+    `(defun ,name ()
+       ,doc
+       (interactive)
+       (capf-autosuggest-call-partial-accept-cmd #',command))))
 
 (defun capf-autosuggest-call-partial-accept-cmd (command)
   "Call COMMAND interactively, stepping into auto-suggested overlay.



reply via email to

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