Use thing-at-point as initial input

* helm-dictionary.el (helm-dictionary): Do it.
emacs-helm · Nov 10, 2019 · 6a21ac1 · 6a21ac1
1 parent 805ce85
commit 6a21ac1
Showing 1 changed file with 3 additions and 1 deletion.
diff --git a/helm-dictionary.el b/helm-dictionary.el
@@ -269,9 +269,11 @@ browser in `helm-browse-url-default-browser-alist'"
           (lambda (x) (helm-dictionary-build (car x) (cdr x)))
           (if (stringp helm-dictionary-database)
               (list (cons "Search dictionary" helm-dictionary-database))
-            helm-dictionary-database))))
+            helm-dictionary-database)))
+        (input (thing-at-point 'word)))
     (helm :sources (append helm-source-dictionary (list helm-source-dictionary-online))
           :full-frame t
+          :input input
           :candidate-number-limit 500
           :buffer "*helm dictionary*")))