From: Ken Raeburn <raeburn@raeburn.org>
Date: Tue, 30 May 2017 07:21:48 +0000 (-0400)
Subject: Support dumping variable aliases.
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=363abaed54ebf0b6b14073f0cb583e3e076f26bc;p=emacs.git

Support dumping variable aliases.

* lisp/loadup.el: If a variable is an alias, emit a defvaralias
command, and don't process its default value.
---

diff --git a/lisp/loadup.el b/lisp/loadup.el
index e3d8dc5a59a..d0f954f24ae 100644
--- a/lisp/loadup.el
+++ b/lisp/loadup.el
@@ -514,6 +514,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!
@@ -532,8 +535,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