equal
deleted
inserted
replaced
309 (setq case-fold-search t) |
309 (setq case-fold-search t) |
310 |
310 |
311 (setq query-replace-highlight t) ; highlight during query |
311 (setq query-replace-highlight t) ; highlight during query |
312 (setq search-highlight t) ; highlight incremental search |
312 (setq search-highlight t) ; highlight incremental search |
313 |
313 |
|
314 ;; Make old Emacs key binding like in Emacs 23.x. |
|
315 (when (< emacs-major-version 23) |
|
316 (global-set-key (kbd "M-s o") 'occur) |
|
317 ) |
|
318 (global-set-key [f7] 'occur) |
|
319 |
314 ;;; ---------------------------------------------------------------- |
320 ;;; ---------------------------------------------------------------- |
315 (message "grep, find") |
321 (message "grep, find") |
316 |
322 |
317 ;; This settings have effect from Emacs 22.x. |
323 ;; This settings have effect from Emacs 22.x. |
318 (when (eq system-type 'windows-nt) |
324 (when (eq system-type 'windows-nt) |
446 (global-set-key (kbd "\e\er") 'query-replace-regexp) |
452 (global-set-key (kbd "\e\er") 'query-replace-regexp) |
447 |
453 |
448 ;; Disable suspend. It ugly. |
454 ;; Disable suspend. It ugly. |
449 (if window-system (global-set-key (kbd "C-z") nil)) |
455 (if window-system (global-set-key (kbd "C-z") nil)) |
450 (global-set-key (kbd "C-x C-z") nil) |
456 (global-set-key (kbd "C-x C-z") nil) |
451 |
|
452 ;; Make old Emacs key binding like in Emacs 23.x. |
|
453 (when (< emacs-major-version 23) |
|
454 (global-set-key (kbd "M-s o") 'occur) |
|
455 ) |
|
456 |
457 |
457 ;; (global-set-key [language-change] 'ignore) |
458 ;; (global-set-key [language-change] 'ignore) |
458 |
459 |
459 ;;; ---------------------------------------------------------------- |
460 ;;; ---------------------------------------------------------------- |
460 (message "coding system, charset, locale, lang") |
461 (message "coding system, charset, locale, lang") |