Mercurial > emacs
changeset 29344:2f44841e5506
(mouse-save-then-kill-delete-region): Don't bind
before-change-function, after-change-function.
| author | Dave Love <fx@gnu.org> |
|---|---|
| date | Wed, 31 May 2000 22:48:20 +0000 |
| parents | d34547dec008 |
| children | a4d9a2ab3c73 |
| files | lisp/mouse.el |
| diffstat | 1 files changed, 2 insertions(+), 4 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/mouse.el Wed May 31 21:17:57 2000 +0000 +++ b/lisp/mouse.el Wed May 31 22:48:20 2000 +0000 @@ -953,14 +953,12 @@ ;; Delete, but make the undo-list entry share with the kill ring. ;; First, delete just one char, so in case buffer is being modified ;; for the first time, the undo list records that fact. - (let (before-change-function after-change-function - before-change-functions after-change-functions) + (let (before-change-functions after-change-functions) (delete-region beg (+ beg (if (> end beg) 1 -1)))) (let ((buffer-undo-list buffer-undo-list)) ;; Undo that deletion--but don't change the undo list! - (let (before-change-function after-change-function - before-change-functions after-change-functions) + (let (before-change-functions after-change-functions) (primitive-undo 1 buffer-undo-list)) ;; Now delete the rest of the specified region, ;; but don't record it.