diff options
| author | Daniel MartÃn <mardani29@yahoo.es> | 2022-10-16 11:25:17 +0200 |
|---|---|---|
| committer | Lars Ingebrigtsen <larsi@gnus.org> | 2022-10-16 11:25:17 +0200 |
| commit | f9726408f6cb56b3a97a9e76be166a5156faec0b (patch) | |
| tree | 4dad73cd64446b2d3516a04d7396574efa819ae0 /lisp/net | |
| parent | 45aabe6edae8d841a8985853394baddad4a1949e (diff) | |
| download | emacs-f9726408f6cb56b3a97a9e76be166a5156faec0b.tar.gz emacs-f9726408f6cb56b3a97a9e76be166a5156faec0b.tar.bz2 emacs-f9726408f6cb56b3a97a9e76be166a5156faec0b.zip | |
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).
Diffstat (limited to 'lisp/net')
| -rw-r--r-- | lisp/net/dictionary.el | 5 |
1 files changed, 4 insertions, 1 deletions
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." |