diff options
| author | Barry Warsaw <barry@python.org> | 1999-01-15 02:12:31 (GMT) |
|---|---|---|
| committer | Barry Warsaw <barry@python.org> | 1999-01-15 02:12:31 (GMT) |
| commit | 1d7b0fa9cab647e2227cefa2969ef359f959f065 (patch) | |
| tree | 36167482b8de16514d8f783fb73f507bf8a44a46 /Misc | |
| parent | 945554709e06aba86509aa0cf6ae59a004499145 (diff) | |
| download | cpython-1d7b0fa9cab647e2227cefa2969ef359f959f065.zip cpython-1d7b0fa9cab647e2227cefa2969ef359f959f065.tar.gz cpython-1d7b0fa9cab647e2227cefa2969ef359f959f065.tar.bz2 | |
(py-electric-delete): Implement the XEmacs 21 blessed way of checking
for delete forwardness.
Diffstat (limited to 'Misc')
| -rw-r--r-- | Misc/python-mode.el | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/Misc/python-mode.el b/Misc/python-mode.el index 48d1b61..15d9f09 100644 --- 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 |