(custom-set-variables ;; custom-set-variables was added by Custom -- don't edit or cut/paste it! ;; Your init file should contain only one such instance. '(case-fold-search t) '(confirm-kill-emacs nil) '(current-language-environment "UTF-8") '(default-input-method "rfc1345") '(delete-selection-mode nil nil (delsel)) '(global-font-lock-mode t nil (font-lock)) '(scroll-bar-mode (quote right)) '(show-paren-mode t nil (paren)) '(text-mode-hook (quote (turn-on-auto-fill text-mode-hook-identify))) '(transient-mark-mode t)) (custom-set-faces ;; custom-set-faces was added by Custom -- don't edit or cut/paste it! ;; Your init file should contain only one such instance. '(vcursor ((((class color)) (:background "orange" :foreground "white" :underline t :family "dejavu sans"))))) (defun volatile-kill-buffer () "Kill current buffer unconditionally." (interactive) (let ((buffer-modified-p nil)) (kill-buffer (current-buffer))) ) (global-set-key (kbd "C-x k") 'volatile-kill-buffer)