awesome-emacs/doomemacs
1
0
Fork 0
mirror of https://github.com/doomemacs/doomemacs synced 2025-08-01 12:17:25 -05:00
Code Issues Packages Projects Releases Wiki Activity

Fix references to old dictionary/thesaurus lookup commands

Browse Source 
And pass word explicitly to powerthesaurus.
This commit is contained in:
Henrik Lissner
2020-01-02 20:03:50 -05:00
parent f313c77ac7
commit 6938f8b97d
2 changed files with 10 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

9
modules/tools/lookup/autoload/lookup.el
View File

@ -353,4 +353,11 @@ Otherwise, falls back on `find-file-at-point'."
(unless +lookup-dictionary-enable-online
;; TODO Implement offline synonyms backend
(user-error "No offline dictionary implemented yet"))
(powerthesaurus-lookup-word-dwim))
;; Necessary because powerthesaurus lacks a way to pass text directly
(with-temp-buffer
(insert identifier)
;; HACK I'd rather use `+lookup-symbol-or-region' for consistency, but
;; powerthesaurus lacks a simple way to pass a string directly to any
;; of its lookup functions, so...
(cl-letf (((symbol-function 'use-region-p) (lambda () t)))
(powerthesaurus-lookup-word (point-min) (point-max)))))