diff options
| author | forcer <forcer> | 2006-06-06 14:15:00 +0000 |
|---|---|---|
| committer | forcer <mwolson@gnu.org> | 2006-06-06 14:15:00 +0000 |
| commit | 3f3081318870f5400f339e138e0115381451575a (patch) | |
| tree | b6ba94307dec75ce7adc3c3b896999663d04f013 | |
| parent | 6ab9141298b6c620983d6c70b33ae6e02fe3099e (diff) | |
emms-playlist-mode doesn't need overlay compatibility anymore
darcs-hash:20060606141539-2189f-9afa51a0ee2b36f7b083d01537cdc05f08d24670.gz
| -rw-r--r-- | emms-playlist-mode.el | 41 |
1 files changed, 0 insertions, 41 deletions
diff --git a/emms-playlist-mode.el b/emms-playlist-mode.el index 0f94d9c..9fceaa8 100644 --- a/emms-playlist-mode.el +++ b/emms-playlist-mode.el @@ -216,47 +216,6 @@ function switches back to the remembered buffer." (undo))) ;;; -------------------------------------------------------- -;;; Overlay compatability -;;; -------------------------------------------------------- - -;; Taken from CVS Emacs (2005-12-24) and modified to support Emms2 on -;; Emacs 21.4. The modifications make this function not equivalent to -;; the original `remove-overlays' from which it was copied, so don't -;; try to use it in the same way. - -;;; FIXME! After the overlay rewrite, do we still need these? -(defun emms-copy-overlay (o) - "Return a copy of overlay O." - (if (fboundp 'copy-overlay) - (copy-overlay o) - (let ((o1 (make-overlay (overlay-start o) (overlay-end o) - (overlay-buffer o))) - (props (overlay-properties o))) - (while props - (overlay-put o1 (pop props) (pop props))) - o1))) - -(defun emms-remove-all-overlays (&optional beg end) - "Clear BEG and END of overlays." - (unless beg (setq beg (point-min))) - (unless end (setq end (point-max))) - (if (< end beg) - (setq beg (prog1 end (setq end beg)))) - (save-excursion - (dolist (o (overlays-in beg end)) - (when (eq (overlay-get o nil) nil) - (if (< (overlay-start o) beg) - (if (> (overlay-end o) end) - (progn - (move-overlay (emms-copy-overlay o) - (overlay-start o) beg) - (move-overlay o end (overlay-end o))) - (move-overlay o (overlay-start o) beg)) - (if (> (overlay-end o) end) - (move-overlay o end (overlay-end o)) - (delete-overlay o))))))) - -;;; -------------------------------------------------------- ;;; Killing and yanking ;;; -------------------------------------------------------- |