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

for delete forwardness.
This commit is contained in:
Barry Warsaw 1999-01-15 02:12:31 +00:00
parent 945554709e
commit 1d7b0fa9ca
1 changed files with 4 additions and 3 deletions

View File

@ -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