Commit 1d7b0fa9 authored by Barry Warsaw's avatar Barry Warsaw

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

for delete forwardness.
parent 94555470
......@@ -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
......
Markdown is supported
0%
or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment