(py-electric-delete): Implement the XEmacs 21 blessed way of checking

warsaw · warsaw · commit 1d7b0fa9cab6 · 1999-01-15T02:12:31.000Z
for delete forwardness.
diff --git a/Misc/python-mode.el b/Misc/python-mode.el
@@ -1519,10 +1519,11 @@ function in `py-delete-function'.
 \\[universal-argument] (programmatically, argument ARG) specifies the
 number of characters to delete (default is 1)."
   (interactive "*p")
-  (if (and (boundp 'delete-key-deletes-forward)
-	   delete-key-deletes-forward)
+  (if (or (and (fboundp 'delete-forward-p) ;XEmacs 21
+	       (delete-forward-p))
+	  (and (boundp 'delete-key-deletes-forward) ;XEmacs 20
+	       delete-key-deletes-forward))
       (funcall py-delete-function arg)
-    ;; else
     (py-electric-backspace arg)))
 
 ;; required for pending-del and delsel modes
