1
0
mirror of git://projects.qi-hardware.com/openwrt-packages.git synced 2024-11-19 11:49:22 +02:00
openwrt-packages/emacs/patches/001-tune-loadup.patch

35 lines
1.2 KiB
Diff
Raw Normal View History

Index: emacs23.2-openwrt/lisp/loadup.el
===================================================================
--- emacs23.2-openwrt/lisp/loadup.el (revision 360)
+++ emacs23.2-openwrt/lisp/loadup.el (working copy)
@@ -47,6 +47,13 @@
;;; Code:
+;; This reduces memory usage by a few MB. So far no negative consequences
+;; have been witnessed.
+(setq inhibit-load-charset-map t)
+
+;; Not sure whether required. Playing safe.
+(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")
@@ -326,9 +333,13 @@
;; We don't use this fns-*.el file. Instead we keep the data in PURE space.
;; Make sure that the spine of the list is not in pure space because it can
;; be destructively mutated in lread.c:build_load_history.
-(setq load-history (mapcar 'purecopy load-history))
-(setq symbol-file-load-history-loaded t)
+;; The code below makes no sense with a CANNOT_DUMP emacs build. Commented
+;; out.
+
+;; (setq load-history (mapcar 'purecopy load-history))
+;; (setq symbol-file-load-history-loaded t)
+
(set-buffer-modified-p nil)
;; reset the load-path. See lread.c:init_lread why.