From: Daniel Martín <mardani29@yahoo.es>
Date: Sun, 16 Oct 2022 09:25:17 +0000 (+0200)
Subject: Signal an error in dictionary lookup if there's no word at point
X-Git-Tag: emacs-29.0.90~1616^2~593
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=f9726408f6cb56b3a97a9e76be166a5156faec0b;p=emacs.git

Signal an error in dictionary lookup if there's no word at point

* lisp/net/dictionary.el (dictionary-lookup-definition): Signal an
error when there is no word at point (bug#58552).
---

diff --git a/lisp/net/dictionary.el b/lisp/net/dictionary.el
index 4c52382c672..b8f5018005b 100644
--- a/lisp/net/dictionary.el
+++ b/lisp/net/dictionary.el
@@ -1173,7 +1173,10 @@ allows editing it."
 (defun dictionary-lookup-definition ()
   "Unconditionally lookup the word at point."
   (interactive)
-  (dictionary-new-search (cons (current-word) dictionary-default-dictionary)))
+  (let ((word (current-word)))
+    (unless word
+      (error "No word at point"))
+    (dictionary-new-search (cons word dictionary-default-dictionary))))
 
 (defun dictionary-previous ()
   "Go to the previous location in the current buffer."