X-Git-Url: http://git.ozo.com/?a=blobdiff_plain;ds=sidebyside;f=packages%2Futils%2Femacs%2Fpatches%2F010-tune-loadup.patch;fp=packages%2Futils%2Femacs%2Fpatches%2F010-tune-loadup.patch;h=0043c43347c8fb8391c60c007fc88ab12347854a;hb=111f23e274eafeeddfc16d57c8bb7f105426a41c;hp=0000000000000000000000000000000000000000;hpb=2725be805c7ea3de6274d21468891f5a8463674a;p=librewrt%2F.git

diff --git a/packages/utils/emacs/patches/010-tune-loadup.patch b/packages/utils/emacs/patches/010-tune-loadup.patch
new file mode 100644
index 0000000..0043c43
--- /dev/null
+++ b/packages/utils/emacs/patches/010-tune-loadup.patch
@@ -0,0 +1,31 @@
+Index: emacs23.2-openwrt-q/lisp/loadup.el
+===================================================================
+--- emacs23.2-openwrt-q.orig/lisp/loadup.el	2010-12-18 20:22:56.000000000 +0100
++++ emacs23.2-openwrt-q/lisp/loadup.el	2010-12-18 20:23:14.000000000 +0100
+@@ -47,6 +47,14 @@
+ 
+ ;;; Code:
+ 
++;; This reduces memory usage by a few MB.  So far no negative consequences
++;; have been witnessed.
++(setq inhibit-load-charset-map t)
++
++;; Purify does in fact _safe_ memory (more efficient than normal' heap?)  so
++;; do not disable it for now.
++;(setq purify-flag nil)
++
+ ;; Add subdirectories to the load-path for files that might get
+ ;; autoloaded when bootstrapping.
+ (if (or (equal (nth 3 command-line-args) "bootstrap")
+@@ -80,9 +88,10 @@
+ (load "emacs-lisp/backquote")
+ (load "subr")
+ 
++;; not doing garbage collection this often decreases start-up time by 5s
+ ;; Do it after subr, since both after-load-functions and add-hook are
+ ;; implemented in subr.el.
+-(add-hook 'after-load-functions '(lambda (f) (garbage-collect)))
++;(add-hook 'after-load-functions '(lambda (f) (garbage-collect)))
+ 
+ ;; We specify .el in case someone compiled version.el by mistake.
+ (load "version.el")