* poem-20.el (write-region-as-binary): Bind `jam-zcat-filename-list' with nil.

[elisp/apel.git] / poe-xemacs.el

diff --git a/poe-xemacs.el b/poe-xemacs.el
index a009350..bc17426 100644 (file)
--- a/poe-xemacs.el
+++ b/poe-xemacs.el
@@ -57,11 +57,13 @@ When called interactively, prompt for the name of the color to use."
 (condition-case nil
     (require 'overlay)
   (error (defalias 'make-overlay 'make-extent)
+        (defalias 'overlayp 'extentp)
         (defalias 'overlay-put 'set-extent-property)
         (defalias 'overlay-buffer 'extent-buffer)
         (defun move-overlay (extent start end &optional buffer)
           (set-extent-endpoints extent start end)
           )
+        (defalias 'delete-overlay 'detach-extent)
         ))