qi-hardware/openwrt-packages
1
0
Fork 0
mirror of git://projects.qi-hardware.com/openwrt-packages.git synced 2024-11-04 23:21:53 +02:00
Code

updated Emacs loadup.el

Browse Source
This commit is contained in:
David Kühling 2010-12-16 00:48:36 +01:00
parent ccd581858e
commit 5c645d10e1
1 changed files with 6 additions and 21 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

27
emacs/patches/001-tune-loadup.patch
View File

@ -1,8 +1,8 @@
Index: emacs23.2-openwrt/lisp/loadup.el Index: emacs23.2-openwrt/lisp/loadup.el
=================================================================== ===================================================================
--- emacs23.2-openwrt/lisp/loadup.el (revision 360) --- emacs23.2-openwrt/lisp/loadup.el (.../emacs-openwrt/lisp) (revision 357)
+++ emacs23.2-openwrt/lisp/loadup.el (working copy) +++ emacs23.2-openwrt/lisp/loadup.el (.../nanonote/emacs23.2-openwrt/lisp) (working copy)
@@ -47,6 +47,13 @@ @@ -47,6 +47,14 @@
;;; Code: ;;; Code:
@ -10,25 +10,10 @@ Index: emacs23.2-openwrt/lisp/loadup.el
+;; have been witnessed. +;; have been witnessed.
+(setq inhibit-load-charset-map t) +(setq inhibit-load-charset-map t)
+ +
+;; Not sure whether required. Playing safe. +;; Purify does in fact _safe_ memory (more efficient than normal' heap?) so
+(setq purify-flag nil) +;; do not disable it for now.
+;(setq purify-flag nil)
+ +
;; Add subdirectories to the load-path for files that might get ;; Add subdirectories to the load-path for files that might get
;; autoloaded when bootstrapping. ;; autoloaded when bootstrapping.
(if (or (equal (nth 3 command-line-args) "bootstrap") (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.