--- a/.emacs-my	Thu Oct 06 11:26:17 2011 +0300
+++ b/.emacs-my	Thu Oct 06 11:35:21 2011 +0300
@@ -393,6 +393,10 @@
  x-gtk-show-hidden-files t
  )
 
+(defun my-prevent-kill-buffer ()
+  (if (equal (buffer-name) "*scratch*") nil t))
+(add-to-list 'kill-buffer-query-functions 'my-prevent-kill-buffer)
+
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 (message "switching, creating, selecting buffers")