.emacs-my
changeset 865 2a99ede322cd
parent 864 adacfc97125b
child 866 b6b520b4e11e
equal deleted inserted replaced
864:adacfc97125b 865:2a99ede322cd
   456  use-dialog-box t
   456  use-dialog-box t
   457  x-gtk-show-hidden-files t
   457  x-gtk-show-hidden-files t
   458  )
   458  )
   459 
   459 
   460 (defun my-prevent-kill-buffer ()
   460 (defun my-prevent-kill-buffer ()
   461   (if (equal (buffer-name) "*scratch*") nil t))
   461   (if (member (buffer-name) '("*scratch*" "NOTE.org")) nil t))
   462 (add-to-list 'kill-buffer-query-functions 'my-prevent-kill-buffer)
   462 (add-to-list 'kill-buffer-query-functions 'my-prevent-kill-buffer)
   463 
   463 
   464 (define-key global-map "\C-ct" (lambda nil (interactive) (switch-to-buffer "*scratch*")))
   464 (define-key global-map "\C-ct" (lambda nil (interactive) (switch-to-buffer "*scratch*")))
   465 
   465 
   466 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
   466 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;