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