[Emacs-diffs] scratch/raeburn-startup 98025ef 31/43: Retain overlay properties when dumping.

[Ken Raeburn]

branch: scratch/raeburn-startup
commit 98025ef515a43a633a5330b60c2f04cda969e9cc
Author: Ken Raeburn <address@hidden>
Commit: Ken Raeburn <address@hidden>

    Retain overlay properties when dumping.
    
    * lisp/loadup.el: When dumping an overlay, save the properties and
    attach them to the newly created overlay at load time.
---
 lisp/loadup.el | 14 +++++++++++---
 1 file changed, 11 insertions(+), 3 deletions(-)

diff --git a/lisp/loadup.el b/lisp/loadup.el
index d0f954f..12c7d2d 100644
--- a/lisp/loadup.el
+++ b/lisp/loadup.el
@@ -553,9 +553,17 @@ lost after dumping")))
                          ((and (markerp v) (null (marker-buffer v)))
                           '(make-marker))
                          ((and (overlayp v) (null (overlay-buffer v)))
-                          '(let ((ol (make-overlay (point-min) (point-min))))
-                             (delete-overlay ol)
-                             ol))
+                          (let (propsets
+                                (props (overlay-properties v)))
+                            (while props
+                              (let ((prop (car props))
+                                    (val (cadr props)))
+                                (push `(overlay-put ol ',prop ',val) propsets)
+                                (setq props (cddr props))))
+                            `(let ((ol (make-overlay (point-min) (point-min))))
+                               ,@propsets
+                               (delete-overlay ol)
+                               ol)))
                          ;; abbrev-table-p isn't very robust
                          ((condition-case nil
                               (abbrev-table-p v)