[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] scratch/raeburn-startup 2653005 5/7: Support dumping varia
From: |
Ken Raeburn |
Subject: |
[Emacs-diffs] scratch/raeburn-startup 2653005 5/7: Support dumping variable aliases. |
Date: |
Tue, 30 May 2017 04:53:34 -0400 (EDT) |
branch: scratch/raeburn-startup
commit 2653005f2aa7d15680caf0e986f58dde3586cb1a
Author: Ken Raeburn <address@hidden>
Commit: Ken Raeburn <address@hidden>
Support dumping variable aliases.
* lisp/loadup.el: If a variable is an alias, emit a defvaralias
command, and don't process its default value.
---
lisp/loadup.el | 7 +++++--
1 file changed, 5 insertions(+), 2 deletions(-)
diff --git a/lisp/loadup.el b/lisp/loadup.el
index 0d67323..9379057 100644
--- a/lisp/loadup.el
+++ b/lisp/loadup.el
@@ -506,6 +506,9 @@ lost after dumping")))
(push `(fset ',s (symbol-function ',(intern (subr-name
(symbol-function s))))) cmds))
(push `(fset ',s ,(macroexp-quote (symbol-function s)))
cmds)))
+ (if (not (eq (indirect-variable s) s))
+ (push `(defvaralias ',s ',(indirect-variable s))
+ cmds))
(when (and (default-boundp s)
(not (macroexp--const-symbol-p s 'any-value))
;; I think we don't need/want these!
@@ -524,8 +527,8 @@ lost after dumping")))
charsets charset-aliases unified-charsets
abbrev-tables abbrev-counter
abbrev-make-cmds abbrev-assign-cmds
- cmds))))
- ;; FIXME: Handle varaliases!
+ cmds)))
+ (eq (indirect-variable s) s))
(let ((v (default-value s)))
(push `(set-default
',s
- [Emacs-diffs] scratch/raeburn-startup updated (d38cc1a -> 143492e), Ken Raeburn, 2017/05/30
- [Emacs-diffs] scratch/raeburn-startup 04ef26e 1/7: Suppress some dump-related Lea-malloc calls., Ken Raeburn, 2017/05/30
- [Emacs-diffs] scratch/raeburn-startup ddae7c3 3/7: Allow dumping of elisp--xref-identifier-completion-table., Ken Raeburn, 2017/05/30
- [Emacs-diffs] scratch/raeburn-startup ea962a8 4/7: Load uniquify after dump/reload., Ken Raeburn, 2017/05/30
- [Emacs-diffs] scratch/raeburn-startup 2653005 5/7: Support dumping variable aliases.,
Ken Raeburn <=
- [Emacs-diffs] scratch/raeburn-startup a6adefd 2/7: Clear out doc strings matching DOC file before dumping., Ken Raeburn, 2017/05/30
- [Emacs-diffs] scratch/raeburn-startup 7b8795b 6/7: Retain overlay properties when dumping., Ken Raeburn, 2017/05/30
- [Emacs-diffs] scratch/raeburn-startup 143492e 7/7: ; admin/notes/big-elc: Notes on this experimental branch., Ken Raeburn, 2017/05/30