mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-03 11:33:37 +00:00
Code Issues Releases Activity

Make "not found" message in dictionary less misleading

Browse Source 
* lisp/net/dictionary.el (dictionary-do-search): Don't say there
are more words when there aren't (bug#47056).
This commit is contained in:
Lars Ingebrigtsen 2021-03-18 08:43:22 +01:00
parent 21e1a126b5
commit 790259f01a
1 changed files with 8 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
lisp/net/dictionary.el
View File

@ -721,13 +721,14 @@ of matching words."
(if (dictionary-check-reply reply 552)
(progn
(unless nomatching
(beep)
(insert "Word not found, maybe you are looking "
"for one of these words\n\n")
(dictionary-do-matching word
dictionary
"."
'dictionary-display-only-match-result)
(insert "Word not found")
(dictionary-do-matching
word
dictionary
"."
(lambda (reply)
(insert ", maybe you are looking for one of these words\n\n")
(dictionary-display-only-match-result reply)))
(dictionary-post-buffer)))
(if (dictionary-check-reply reply 550)
(error "Dictionary \"%s\" is unknown, please select an existing one"
@ -1074,7 +1075,6 @@ If PATTERN is omitted, it defaults to \"[ \\f\\t\\n\\r\\v]+\"."
(defun dictionary-display-only-match-result (reply)
"Display the results from the current matches in REPLY without the headers."
(let ((number (nth 1 (dictionary-reply-list reply)))
(list (dictionary-simple-split-string (dictionary-read-answer) "\n+")))
(insert number " matching word" (if (equal number "1") "" "s")