diff options
| author | Kim F. Storm | 2003-01-03 13:00:08 +0000 |
|---|---|---|
| committer | Kim F. Storm | 2003-01-03 13:00:08 +0000 |
| commit | ad9de65b54ae93c104f9f4750d4ec76de61fa91a (patch) | |
| tree | fd91b8121641b44e86473d7d0195d35f0a1afe0e /lisp | |
| parent | 821adeae4e8c6336d97304ecabbe7d455411d368 (diff) | |
| download | emacs-ad9de65b54ae93c104f9f4750d4ec76de61fa91a.tar.gz emacs-ad9de65b54ae93c104f9f4750d4ec76de61fa91a.zip | |
(cua--pre-command-handler): Corrected
handling of delete-selection properties.
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/emulation/cua-base.el | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/lisp/emulation/cua-base.el b/lisp/emulation/cua-base.el index 5f8fc8533da..9018e0e95d3 100644 --- a/lisp/emulation/cua-base.el +++ b/lisp/emulation/cua-base.el | |||
| @@ -977,12 +977,12 @@ Extra commands should be added to `cua-user-movement-commands'") | |||
| 977 | 'cua-copy-region)) | 977 | 'cua-copy-region)) |
| 978 | ((eq ds 'supersede) | 978 | ((eq ds 'supersede) |
| 979 | (if cua--rectangle | 979 | (if cua--rectangle |
| 980 | 'cua-delete-rectangle ;; replace? | 980 | 'cua-delete-rectangle |
| 981 | 'cua-replace-region)) | 981 | 'cua-delete-region)) |
| 982 | (t | 982 | (t |
| 983 | (if cua--rectangle | 983 | (if cua--rectangle |
| 984 | 'cua-delete-rectangle | 984 | 'cua-delete-rectangle ;; replace? |
| 985 | 'cua-delete-region))))) | 985 | 'cua-replace-region))))) |
| 986 | (if nc | 986 | (if nc |
| 987 | (setq this-original-command this-command | 987 | (setq this-original-command this-command |
| 988 | this-command nc))))) | 988 | this-command nc))))) |