This commit is contained in:
Henrik Lissner 2015-12-12 01:26:34 -05:00
parent 335afb0cc9
commit c997bcc936

View file

@ -55,7 +55,7 @@
backup-directory-alist `((".*" . ,(concat narf-temp-dir "backup/"))) backup-directory-alist `((".*" . ,(concat narf-temp-dir "backup/")))
;; Remember undo history ;; Remember undo history
undo-tree-auto-save-history t undo-tree-auto-save-history t
undo-tree-history-directory-alist `(("." . ,(concat narf-temp-dir "undo/")))) undo-tree-history-directory-alist `(("." . ,(concat narf-temp-dir "undo/"))))
;;; UTF-8 please ;;; UTF-8 please
@ -74,7 +74,6 @@
(require 'autoloads)) (require 'autoloads))
(require 'core-vars) (require 'core-vars)
(require 'core-defuns) (require 'core-defuns)
;; (require 'diminish)
(autoload 'use-package "use-package" "" nil 'macro) (autoload 'use-package "use-package" "" nil 'macro)
(eval-when-compile (eval-when-compile
@ -134,6 +133,10 @@
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(defun narf-init () (defun narf-init ()
(setq-default
gc-cons-threshold 16777216
gc-cons-percentage 0.3)
(defadvice save-buffers-kill-emacs (around no-query-kill-emacs activate) (defadvice save-buffers-kill-emacs (around no-query-kill-emacs activate)
"Prevent annoying \"Active processes exist\" query when you quit Emacs." "Prevent annoying \"Active processes exist\" query when you quit Emacs."
(cl-flet ((process-list ())) ad-do-it)) (cl-flet ((process-list ())) ad-do-it))