@@ -1011,6 +1011,21 @@ (delete-selection-mode t)
 
 (bind-key "S-SPC" #'set-mark-command)
 
+(defun fc/isearch-yank-symbol ()
+  "Yank the symbol at point into the isearch minibuffer.
+
+C-w does something similar in isearch, but it only looks for
+the rest of the word. I want to look for the whole string. And
+symbol, not word, as I need this for programming the most."
+  (interactive)
+  (isearch-yank-string
+   (save-excursion
+     (when (and (not isearch-forward)
+                isearch-other-end)
+       (goto-char isearch-other-end))
+     (thing-at-point 'symbol))))
+(bind-key "C-d" #'fc/isearch-yank-symbol isearch-mode-map)
+
 (req-package subword
   :init (global-subword-mode t))