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.

diff --git a/lisp/loadup.el b/lisp/loadup.el
index d0f954f24aef12dedddd6f71c640276a951b7ef2..12c7d2d720f416bc2f8a6e793405f48fd4a0c258 100644 (file)
--- 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)