[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)