Commit 48b1e7cf authored by Stefan Monnier's avatar Stefan Monnier
Browse files

* subr.el (copy-overlay): Handle deleted overlays.

parent c07ff221
2010-02-11 Stefan Monnier <monnier@iro.umontreal.ca>
* subr.el (copy-overlay): Handle deleted overlays.
* man.el (Man-completion-table): Don't signal an error if we can't run
manual-program (bug#4056).
......
......@@ -2232,10 +2232,14 @@ If MESSAGE is nil, instructions to type EXIT-CHAR are displayed there."
(defun copy-overlay (o)
"Return a copy of overlay O."
(let ((o1 (make-overlay (overlay-start o) (overlay-end o)
;; FIXME: there's no easy way to find the
;; insertion-type of the two markers.
(overlay-buffer o)))
(let ((o1 (if (overlay-buffer o)
(make-overlay (overlay-start o) (overlay-end o)
;; FIXME: there's no easy way to find the
;; insertion-type of the two markers.
(overlay-buffer o))
(let ((o1 (make-overlay (point-min) (point-min))))
(delete-overlay o1)
o1))))
(props (overlay-properties o)))
(while props
(overlay-put o1 (pop props) (pop props)))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment