diff options
| author | Stefan Monnier <monnier@iro.umontreal.ca> | 2013-12-07 23:20:50 -0500 |
|---|---|---|
| committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2013-12-07 23:20:50 -0500 |
| commit | 00a2b823737fb91e452de71df004950e11994513 (patch) | |
| tree | 8fddd474f278b4188a843746cbab8fb0492dd905 /lisp/delsel.el | |
| parent | a92fa5f1936711cdf36e53aced275adb960474c8 (diff) | |
| download | emacs-00a2b823737fb91e452de71df004950e11994513.tar.gz | |
Make registers and delete-selection-mode work on rectangles.
* lisp/register.el (describe-register-1): Don't modify the register's value.
(copy-to-register): Obey region-extract-function.
* lisp/delsel.el (delete-active-region): Obey region-extract-function.
Diffstat (limited to 'lisp/delsel.el')
| -rw-r--r-- | lisp/delsel.el | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/lisp/delsel.el b/lisp/delsel.el index 07a7a37db34..3c9a6561cde 100644 --- a/lisp/delsel.el +++ b/lisp/delsel.el @@ -78,8 +78,8 @@ any selection." "Delete the active region. If KILLP in not-nil, the active region is killed instead of deleted." (if killp - (kill-region (point) (mark)) - (delete-region (point) (mark))) + (kill-region (point) (mark) t) + (funcall region-extract-function 'delete-only)) t) (defun delete-selection-helper (type) @@ -197,9 +197,9 @@ then it takes a second \\[keyboard-quit] to abort the minibuffer." (define-key minibuffer-local-completion-map "\C-g" 'abort-recursive-edit) (define-key minibuffer-local-must-match-map "\C-g" 'abort-recursive-edit) (define-key minibuffer-local-isearch-map "\C-g" 'abort-recursive-edit) - (dolist (sym '(self-insert-command self-insert-iso yank clipboard-yank - insert-register delete-backward-char backward-delete-char-untabify - delete-char newline-and-indent newline open-line)) + (dolist (sym '(self-insert-command yank clipboard-yank + insert-register + newline-and-indent newline open-line)) (put sym 'delete-selection nil)) ;; continue standard unloading nil) |