mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-27 07:37:33 +00:00
Code Issues Releases Activity

(cua--pre-command-handler): Only interpret delete-selection property if mark-active.

Browse Source
This commit is contained in:
Kim F. Storm 2002-05-01 14:22:06 +00:00
parent 958e3d8a97
commit e75d337c0a
1 changed files with 22 additions and 21 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

43
lisp/emulation/cua-base.el
View File

@ -875,27 +875,28 @@ Extra commands should be added to `cua-user-movement-commands'")
(setq deactivate-mark t)))
;; Handle delete-selection property on other commands
(let* ((ds (or (get this-command 'delete-selection)
(get this-command 'pending-delete)))
(nc (cond
((eq ds 'yank)
'cua-paste)
((eq ds 'kill)
(if cua--rectangle
'cua-copy-rectangle
'cua-copy-region))
((eq ds 'supersede)
(if cua--rectangle
'cua-delete-rectangle ;; replace?
'cua-replace-region))
(ds
(if cua--rectangle
'cua-delete-rectangle
'cua-delete-region))
(t nil))))
(if nc
(setq this-original-command this-command
this-command nc))))
(if (and mark-active (not deactivate-mark))
(let* ((ds (or (get this-command 'delete-selection)
(get this-command 'pending-delete)))
(nc (cond
((not ds) nil)
((eq ds 'yank)
'cua-paste)
((eq ds 'kill)
(if cua--rectangle
'cua-copy-rectangle
'cua-copy-region))
((eq ds 'supersede)
(if cua--rectangle
'cua-delete-rectangle ;; replace?
'cua-replace-region))
(t
(if cua--rectangle
'cua-delete-rectangle
'cua-delete-region)))))
(if nc
(setq this-original-command this-command
this-command nc)))))
;; Detect extension of rectangles by mouse or other movement
(setq cua--buffer-and-point-before-command