[Emacs-diffs] scratch/raeburn-startup 363abae 30/43: Support dumping variable aliases.

[Ken Raeburn]

branch: scratch/raeburn-startup
commit 363abaed54ebf0b6b14073f0cb583e3e076f26bc
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 e3d8dc5..d0f954f 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