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

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

[elpa] externals/jit-spell 54d4049462 3/4: Add help string to "add word"


From: ELPA Syncer
Subject: [elpa] externals/jit-spell 54d4049462 3/4: Add help string to "add word" multiple choice prompt
Date: Sun, 12 Mar 2023 06:58:37 -0400 (EDT)

branch: externals/jit-spell
commit 54d40494621cd50caa7878dad32e5c8b918f5db6
Author: Augusto Stoffel <arstoffel@gmail.com>
Commit: Augusto Stoffel <arstoffel@gmail.com>

    Add help string to "add word" multiple choice prompt
---
 jit-spell.el | 16 ++++++++--------
 1 file changed, 8 insertions(+), 8 deletions(-)

diff --git a/jit-spell.el b/jit-spell.el
index a799ab1a6e..7e1acfd919 100644
--- a/jit-spell.el
+++ b/jit-spell.el
@@ -491,14 +491,14 @@ the above)."
                                 (format "*%s\n#\n" word)))
     ('query (jit-spell--accept-word
              word
-             (pcase (read-multiple-choice (substitute-quotes
-                                           (format "Add `%s' to" word))
-                                          '((?d "dictionary")
-                                            (?b "buffer")
-                                            (?s "session"))) ;TODO: help string
-               (`(?d ,_) 'dict)
-               (`(?b ,_) 'buffer)
-               (`(?s ,_) 'session)))))
+             (pcase (read-multiple-choice
+                     (substitute-quotes (format "Add `%s' to" word))
+                     '((?d "dictionary" "Save this word in your personal 
dictionary.")
+                       (?b "buffer" "Add a local word at the end of this 
buffer.")
+                       (?s "session" "Accept this spelling temporarily and in 
this buffer only.")))
+               (`(?d . ,_) 'dict)
+               (`(?b . ,_) 'buffer)
+               (`(?s . ,_) 'session)))))
   (jit-lock-refontify))
 
 (defun jit-spell-correct-word--next (arg)



reply via email to

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