diff options
| -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." | |||
| 1173 | (defun dictionary-lookup-definition () | 1173 | (defun dictionary-lookup-definition () |
| 1174 | "Unconditionally lookup the word at point." | 1174 | "Unconditionally lookup the word at point." |
| 1175 | (interactive) | 1175 | (interactive) |
| 1176 | (dictionary-new-search (cons (current-word) dictionary-default-dictionary))) | 1176 | (let ((word (current-word))) |
| 1177 | (unless word | ||
| 1178 | (error "No word at point")) | ||
| 1179 | (dictionary-new-search (cons word dictionary-default-dictionary)))) | ||
| 1177 | 1180 | ||
| 1178 | (defun dictionary-previous () | 1181 | (defun dictionary-previous () |
| 1179 | "Go to the previous location in the current buffer." | 1182 | "Go to the previous location in the current buffer." |