Mercurial > emacs
changeset 7866:44680acb5d14
(mouse-save-then-kill-delete-region): Turn off change hooks
for the edit operations that are not real.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Mon, 13 Jun 1994 19:35:07 +0000 |
| parents | d3e50535e6da |
| children | 087c9b909feb |
| files | lisp/mouse.el |
| diffstat | 1 files changed, 7 insertions(+), 3 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/mouse.el Mon Jun 13 19:34:21 1994 +0000 +++ b/lisp/mouse.el Mon Jun 13 19:35:07 1994 +0000 @@ -408,11 +408,15 @@ ;; 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. - (delete-region beg - (+ beg (if (> end beg) 1 -1))) + (let (before-change-function after-change-function + 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! - (primitive-undo 1 buffer-undo-list) + (let (before-change-function after-change-function + 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. (setq buffer-undo-list t)