Mercurial > emacs
comparison lisp/delsel.el @ 50422:b03765d292c2
(delete-active-region): Don't explicitly deactivate mark.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Thu, 03 Apr 2003 22:58:49 +0000 |
| parents | 2538b11fc837 |
| children | 695cf19ef79e |
comparison
equal
deleted
inserted
replaced
| 50421:713cf8885bc9 | 50422:b03765d292c2 |
|---|---|
| 73 | 73 |
| 74 (defun delete-active-region (&optional killp) | 74 (defun delete-active-region (&optional killp) |
| 75 (if killp | 75 (if killp |
| 76 (kill-region (point) (mark)) | 76 (kill-region (point) (mark)) |
| 77 (delete-region (point) (mark))) | 77 (delete-region (point) (mark))) |
| 78 (setq mark-active nil) | |
| 79 (run-hooks 'deactivate-mark-hook) | |
| 80 t) | 78 t) |
| 81 | 79 |
| 82 (defun delete-selection-pre-hook () | 80 (defun delete-selection-pre-hook () |
| 83 (when (and delete-selection-mode transient-mark-mode mark-active | 81 (when (and delete-selection-mode transient-mark-mode mark-active |
| 84 (not buffer-read-only)) | 82 (not buffer-read-only)) |