blob: 9868bad3150ce81f82612b096bfe48f003ae4235 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
|
;;; search-conf.el --- My configurations for searching -*- lexical-binding: t; -*-
(setq search-whitespace-regexp ".*?")
(setq isearch-lax-whitespace t)
(setq isearch-lazy-count t)
(setq isearch-allow-scroll 'unlimited)
;;;###autoload
(defun durand-search-replace-symbol (&optional arg)
"Search the symbol at point and query-replace.
If ARG is negative, replace backwards."
(interactive "p")
(isearch-forward-symbol-at-point arg)
(isearch-repeat-backward 1)
(isearch-exit)
(isearch-query-replace-regexp (cond ((< arg 0) arg))))
(define-key global-map (vector ?\M-s ?%) #'durand-search-replace-symbol)
(provide 'search-conf)
;;; search-conf.el ends here
|
