equal
deleted
inserted
replaced
297 (setq search-highlight t) ; highlight incremental search |
297 (setq search-highlight t) ; highlight incremental search |
298 |
298 |
299 ;;; ---------------------------------------------------------------- |
299 ;;; ---------------------------------------------------------------- |
300 ;;; grep, find. |
300 ;;; grep, find. |
301 |
301 |
|
302 ;; (require 'grep) |
|
303 |
302 ;; This settings have effect from Emacs 22.x. |
304 ;; This settings have effect from Emacs 22.x. |
303 (when (eq system-type 'windows-nt) |
305 (when (eq system-type 'windows-nt) |
304 ;; Workaround for Cygwin shell, when set 'CYGWIN=noglob'. By default 'shell-quote-argument' |
306 ;; Workaround for Cygwin shell, when set 'CYGWIN=noglob'. By default 'shell-quote-argument' |
305 ;; quoted by double '\' chars this cause failure. |
307 ;; quoted by double '\' chars this cause failure. |
306 (defun shell-quote-argument (argument) |
308 (defun shell-quote-argument (argument) |
311 ) |
313 ) |
312 |
314 |
313 ;; Do not set t because some grep do not has --color options. |
315 ;; Do not set t because some grep do not has --color options. |
314 (setq grep-highlight-matches nil) |
316 (setq grep-highlight-matches nil) |
315 (setq grep-use-null-device nil) |
317 (setq grep-use-null-device nil) |
|
318 |
|
319 (add-to-list 'grep-find-ignored-directories "build" t) |
|
320 (add-to-list 'grep-find-ignored-directories "dist" t) |
|
321 (add-to-list 'grep-find-ignored-directories "lib" t) |
316 |
322 |
317 (global-set-key [M-f7] 'rgrep) |
323 (global-set-key [M-f7] 'rgrep) |
318 |
324 |
319 ;;; ---------------------------------------------------------------- |
325 ;;; ---------------------------------------------------------------- |
320 ;;; syntax highlighting. |
326 ;;; syntax highlighting. |