       (isearch-yank-regexp
        (concat "\\_<" (regexp-quote sym) "\\_>")))))
 
-(defun isearch-current-symbol (&optional partialp)
-  "Incremental search forward with symbol under point.
-
-    Prefixed with \\[universal-argument] will find all partial
-    matches."
-  (interactive "P")
-  (let ((start (point)))
-    (isearch-forward-regexp nil 1)
-    (isearch-yank-symbol partialp)))
-
-(defun isearch-backward-current-symbol (&optional partialp)
-  "Incremental search backward with symbol under point.
-
-    Prefixed with \\[universal-argument] will find all partial
-    matches."
-  (interactive "P")
-  (let ((start (point)))
-    (isearch-backward-regexp nil 1)
-    (isearch-yank-symbol partialp)))
-
-
 ;; Search for the highlighted string in ALL buffers `search-all-buffers'
 ;; Source: http://stackoverflow.com/questions/2641211/emacs-interactively-search-open-buffers
 (require 'cl)

;; DEL during isearch should edit the search string, not jump back to the previous result
(define-key isearch-mode-map [remap isearch-delete-char] 'isearch-del-char)

;; Key bindings
(bind-keys
 :map modi-mode-map
 ("C-S-s" . isearch-current-symbol)
 ("C-S-r" . isearch-backward-current-symbol))

(bind-to-modi-map "s" search-all-buffers)



;; Time-stamp: <2014-10-23 09:33:12 kmodi>

;; Search

