(copy-overlay): Damn typo.

diff --git a/lisp/subr.el b/lisp/subr.el
index 3b5d977c1f88a4bfdac7fe2c292839d698182469..d2363099b7cebd3054de8dc0eaf5027d173278c8 100644 (file)
--- a/lisp/subr.el
+++ b/lisp/subr.el
@@ -2239,7 +2239,7 @@ If MESSAGE is nil, instructions to type EXIT-CHAR are displayed there."
                               (overlay-buffer o))
               (let ((o1 (make-overlay (point-min) (point-min))))
                 (delete-overlay o1)
-                o1))))
+                o1)))
        (props (overlay-properties o)))
     (while props
       (overlay-put o1 (pop props) (pop props)))