Use overlay functions directly

[gnus] / lisp / gnus-xmas.el

diff --git a/lisp/gnus-xmas.el b/lisp/gnus-xmas.el
index 598e09a..7ab6ea7 100644 (file)
--- a/lisp/gnus-xmas.el
+++ b/lisp/gnus-xmas.el
@@ -202,23 +202,12 @@ call it with the value of the `gnus-data' text property."
     (when fun
       (funcall fun data))))
 
-(defun gnus-xmas-move-overlay (extent start end &optional buffer)
-  (set-extent-endpoints extent start end buffer))
-
 (defun gnus-xmas-kill-all-overlays ()
   "Delete all extents in the current buffer."
   (map-extents (lambda (extent ignore)
                 (delete-extent extent)
                 nil)))
 
-(defun gnus-xmas-overlays-at (pos)
-  "Return a list of the extents that contain the character at POS."
-  (mapcar-extents #'identity nil nil pos (1+ pos)))
-
-(defun gnus-xmas-overlays-in (beg end)
-  "Return a list of the extents that overlap the region BEG ... END."
-  (mapcar-extents #'identity nil nil beg end))
-
 (defun gnus-xmas-window-top-edge (&optional window)
   (nth 1 (window-pixel-edges window)))
 
@@ -397,22 +386,6 @@ then we display only bindings that start with that prefix."
   (unless (face-differs-from-default-p 'underline)
     (funcall (intern "set-face-underline-p") 'underline t))
 
-  (defalias 'gnus-make-overlay
-    (lambda (beg end &optional buffer front-advance rear-advance)
-      "Create a new overlay with range BEG to END in BUFFER.
-FRONT-ADVANCE and REAR-ADVANCE are ignored."
-      (make-extent beg end buffer)))
-
-  (defalias 'gnus-copy-overlay 'copy-extent)
-  (defalias 'gnus-delete-overlay 'delete-extent)
-  (defalias 'gnus-overlay-get 'extent-property)
-  (defalias 'gnus-overlay-put 'set-extent-property)
-  (defalias 'gnus-move-overlay 'gnus-xmas-move-overlay)
-  (defalias 'gnus-overlay-buffer 'extent-object)
-  (defalias 'gnus-overlay-start 'extent-start-position)
-  (defalias 'gnus-overlay-end 'extent-end-position)
-  (defalias 'gnus-overlays-at 'gnus-xmas-overlays-at)
-  (defalias 'gnus-overlays-in 'gnus-xmas-overlays-in)
   (defalias 'gnus-kill-all-overlays 'gnus-xmas-kill-all-overlays)
   (defalias 'gnus-extent-detached-p 'extent-detached-p)
   (defalias 'gnus-add-text-properties 'gnus-xmas-add-text-properties)