--- a/.emacs-my	Thu Jan 27 12:06:16 2011 +0200
+++ b/.emacs-my	Thu Jan 27 17:30:57 2011 +0200
@@ -311,6 +311,12 @@
 (setq query-replace-highlight t)        ; highlight during query
 (setq search-highlight t)               ; highlight incremental search
 
+;; Make old Emacs key binding like in Emacs 23.x.
+(when (< emacs-major-version 23)
+  (global-set-key (kbd "M-s o") 'occur)
+  )
+(global-set-key [f7] 'occur)
+
 ;;; ----------------------------------------------------------------
 (message "grep, find")
 
@@ -449,11 +455,6 @@
 (if window-system (global-set-key (kbd "C-z") nil))
 (global-set-key (kbd "C-x C-z") nil)
 
-;; Make old Emacs key binding like in Emacs 23.x.
-(when (< emacs-major-version 23)
-  (global-set-key (kbd "M-s o") 'occur)
-  )
-
 ;; (global-set-key [language-change] 'ignore)
 
 ;;; ----------------------------------------------------------------