equal
deleted
inserted
replaced
249 (mapc (lambda (hook) (add-hook hook (lambda nil (setq scroll-margin my-scroll-margin)))) |
249 (mapc (lambda (hook) (add-hook hook (lambda nil (setq scroll-margin my-scroll-margin)))) |
250 ;; TODO its good invoke delete-dups for list, but delete-dups not exist in Emacs 21.4 |
250 ;; TODO its good invoke delete-dups for list, but delete-dups not exist in Emacs 21.4 |
251 (append my-text-mode-hook-list my-devel-mode-hook-list my-scroll-margin-mode-hook-list) ) |
251 (append my-text-mode-hook-list my-devel-mode-hook-list my-scroll-margin-mode-hook-list) ) |
252 |
252 |
253 ;; ---------------------------------------------------------------------- |
253 ;; ---------------------------------------------------------------------- |
254 ;; searching. |
254 ;; search, isearch, occur. |
255 |
255 |
256 (setq case-fold-search t) |
256 (setq case-fold-search t) |
257 |
257 |
258 (setq query-replace-highlight t) ; highlight during query |
258 (setq query-replace-highlight t) ; highlight during query |
259 (setq search-highlight t) ; highlight incremental search |
259 (setq search-highlight t) ; highlight incremental search |
260 |
|
261 ;; ---------------------------------------------------------------------- |
|
262 ;; *Occur* |
|
263 (global-set-key [f7] 'occur) ; Key binding as in mc |
|
264 |
260 |
265 ;; ---------------------------------------------------------------------- |
261 ;; ---------------------------------------------------------------------- |
266 ;; grep, find. |
262 ;; grep, find. |
267 |
263 |
268 ;; Assume that we have GNU grep, so -H available. |
264 ;; Assume that we have GNU grep, so -H available. |