.emacs-my
changeset 719 694f7e388f2b
parent 718 19ab21ec7640
child 721 3eb929c032f4
equal deleted inserted replaced
718:19ab21ec7640 719:694f7e388f2b
   390 
   390 
   391 (setq
   391 (setq
   392  use-dialog-box t
   392  use-dialog-box t
   393  x-gtk-show-hidden-files t
   393  x-gtk-show-hidden-files t
   394  )
   394  )
       
   395 
       
   396 (defun my-prevent-kill-buffer ()
       
   397   (if (equal (buffer-name) "*scratch*") nil t))
       
   398 (add-to-list 'kill-buffer-query-functions 'my-prevent-kill-buffer)
   395 
   399 
   396 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
   400 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
   397 (message "switching, creating, selecting buffers")
   401 (message "switching, creating, selecting buffers")
   398 
   402 
   399 (iswitchb-mode 1)
   403 (iswitchb-mode 1)