blob: bb8297b8f4b3a86196e0f27b752217288c659098 (
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
|
;;; 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-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
|
