Github/emacs
2
0
Fork 1
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-24 05:47:36 +00:00
Code Issues Projects Releases Packages Wiki Activity

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

Browse source
This commit is contained in:
Stefan Monnier 2010-02-11 14:35:36 -05:00
parent c07ff22119
commit 48b1e7cf2b
2 changed files with 10 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
lisp/ChangeLog
View file

@ -1,5 +1,7 @@
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).

12
lisp/subr.el
View file

@ -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)))